vb开发cad技术之vb链接cad

Question

Public acadApp As Object
Public acadDoc As Object
Dim mLine As Object
Function boot_CAD() As Boolean
     On Error Resume Next
     Set acadApp = GetObject(, "AutoCAD.Application")
     If Err Then
        Err.Clear
        Set acadApp = CreateObject("AutoCAD.Application")
        If Err Then
           MsgBox "您没有安装 AutoCAD ，或安装版本错误！", vbOKOnly + vbInformation, "CAD简易绘图系统"
           boot_CAD = False
           BtOK = False
           Exit Function
        End If
     End If
     Set acadDoc = acadApp.ActiveDocument
     acadApp.Visible = True
     boot_CAD = True
End Function
Private Sub Command1_Click()
   Dim mStPt(2) As Double, mEdPt(2) As Double
   Dim mLine As Object
   If boot_CAD = True Then
   
      mStPt(0) = 1
      mStPt(1) = 2
      mStPt(2) = 0
      mEdPt(0) = 2
      mEdPt(1) = 3
      mEdPt(2) = 0
      Set mLine = acadDoc.ModelSpace.AddLine(mStPt, mEdPt)
      mLine.Color = 1
      mLine.Update
      ZoomAll
   End If
End Sub

Answer 1

CAD有AddIn的开发接口的。

Answer 2

请参考VBA for AutoCAD联机帮助。