HandletoObject在VB中如何写

兰州人

在AutoCAD的VBA中调试成功如下语句.

set EntyObj = ThisDrawing.HandletoObject("54EA") '句柄

EntyObj.color = acRed '通过句柄的实体变成红色

上面语句移植到VB中,语句定义出错.

请教各位大侠,

set EntyObj = ThisDrawing.HandletoObject("54EA") 这句话如何改

谢谢

雪山飞狐_lzh

 ThisDrawing是空值么？

 

wyj7485

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

谢谢