兰州人 发表于 2006-8-5 12:18:00

HandletoObject在VB中如何写

在的VBA中调试成功如下语句.
set EntyObj = ThisDrawing.HandletoObject("54EA") '句柄
EntyObj.color = acRed '通过句柄的实体变成红色
上面语句移植到VB中,语句定义出错.
请教各位大侠,
set EntyObj = ThisDrawing.HandletoObject("54EA") 这句话如何改
谢谢

雪山飞狐_lzh 发表于 2006-8-6 15:31:00

ThisDrawing是空值么？

wyj7485 发表于 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")

crazylsp 发表于 2012-10-11 17:11:00


谢谢
页: [1]
查看完整版本: HandletoObject在VB中如何写