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
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
CAD有AddIn的開發介面的。uj5u.com熱心網友回復：
請參考VBA for AutoCAD聯機幫助。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/46864.html
標籤：資源