|
|
发表于 2006-8-7 10:40:00
|
显示全部楼层
1,先引用acad
2,调用acad
Public Function CallCAD()
On Error Resume Next
Dim AcadApp As AcadApplication
Set AcadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set AcadApp = CreateObject("AutoCAD.Application")
AcadApp.Visible = True
If Err Then
MsgBox Err.Description
Exit Function
End If
End If
Set acadDoc = AcadApp.ActiveDocument
End Function
3,set EntyObj = acadDoc.HandletoObject("54EA")
|
|
置顶卡
