VB中可以調用CAD自動繪圖嗎？

設置myacadeapp = getobject(，" AutoCAD。應用程序”)'檢查AutoCAD是否已打開。

如果Err & lt& gt“0 Then”未打開。

呃。清楚的

set myacadeapp = createobject(" AutoCAD。應用程序”)'打開CAD。

如果出錯，那麽

MsgBox錯誤。數量和數量。":" & amp呃。“描述”無法打開。

出口接頭

如果…就會結束

如果…就會結束

出錯時轉到錯誤

MyAcadApp。“Visible = True”顯示CAD。

設置activeDoc = myAcadApp。活動文檔

將起點(0到2)變暗為雙精度

將端點(0到2)顯示為雙精度

' Dim LineObj As AcadLine '如果繪圖中有錯誤，請將其更改為Dim LineObj As Object。

起點(0) = 0:起點(1) = 0:起點(2) = 0

端點(0) = 30:端點(1) = 20:端點(2) = 0

set line obj = active doc . model space . addline(起點，終點)'畫線。

prcExit:

設置activeDoc = Nothing

設置myAcadApp = Nothing

出口接頭

prcERR:

MsgBox錯誤。數量和數量。":" & amp呃。描述，vbCritical，“錯誤”

繼續退出

末端接頭