xuzhenjun130 发表于 2011-3-14 10:16:23

autocad2008二次开发,怎么样将vb代码转化为autoit?[已解决]

本帖最后由 xuzhenjun130 于 2011-8-26 10:06 编辑

autocad开发人员手册里的一段代码,请高手帮忙翻译成autoitSub Ch2_AddLineVB()
    On Error Resume Next

    ' 连接至 AutoCAD 应用程序
    Dim acadApp As AcadApplication
    Set acadApp = GetObject _
                  (, "AutoCAD.Application.17")
    If Err Then
      Err.Clear
      Set acadApp = CreateObject _
                  ("AutoCAD.Application.17")
      If Err Then
            MsgBox Err.Description
            Exit Sub
      End If
    End If

    ' 连接至 AutoCAD 图形
    Dim acadDoc As AcadDocument
    Set acadDoc = acadApp.ActiveDocument

    ' 创建直线的端点
    Dim lineObj As AcadLine
    Dim startPoint(0 To 2) As Double
    Dim endPoint(0 To 2) As Double
    startPoint(0) = 1
    startPoint(1) = 1
    startPoint(2) = 0
    endPoint(0) = 5
    endPoint(1) = 5
    endPoint(2) = 0
    ' 在模型空间中创建 Line 对象
    Set lineObj = acadDoc.ModelSpace.AddLine _
                         (startPoint, endPoint)
    ZoomAll
    acadApp.visible = True
End Sub
另外,有没有高手肯做一个操作autocad的autoit函数呢?
autocad已经开放很多编程接口,有点类似excel的。
希望有高手能作一下贡献

这个问题有点蛋疼了,估计很少人有那样的需求

ywq111 发表于 2011-3-14 12:05:24

{:face (356):}看起来不难,等au3高手。。。哈哈

boyhong 发表于 2011-3-14 14:45:11

关注中。。。真正专业做CAD二次开发,会用AUTOIT?收藏本贴严重关注中。。。。

tryhi 发表于 2011-3-14 16:31:51

我也收藏关注一下

xuzhenjun130 发表于 2011-3-21 22:12:37

{:face (319):}那么有意义的autocad函数开发,怎么就没人干呢?在国外都是没有人关注这点,来开发啊
自己来顶{:face (270):}
高手快点出现吧

kevinch 发表于 2011-3-21 22:29:12

On Error Resume Next就这一句我都没在au3里用出来过{:face (197):}

tulio 发表于 2018-9-7 10:14:43

等au3高手。。。哈哈
页: [1]
查看完整版本: autocad2008二次开发,怎么样将vb代码转化为autoit?[已解决]