怎樣用VB對AutoCAD 進行二次開發？急！急！急！

最基本的首先妳要在vb中加載autocad庫，當然妳要裝了autocad，可以用vb控制建立cad文件，然後向cad文件中寫數據。對於在CAD中建立直角坐標系，建議妳看壹下wcs對應的cad中的對象是哪壹個，然後用vb調用建立wcs。下面是壹個vb中創建CAD文件並向模型空間畫直線的代碼。

前提壹定要在vb中加載CAD，記得CAD的幫助文件中有vba的幫助，建議妳下載cad vba二次開發的書籍，百度文庫有。希望能夠采納我的回答！！！！！

Sub 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

上一篇:玩轉Puppeteer

下一篇:expma指標詳解