[求助]如何通过编制VB程序获取CAD图中对象的句柄

xnn2004

我想通过编制VB程序，获取CAD图中对象的句柄，应该如何实现呢？请各位高手指点一下，谢谢！

jkbanana

可以用 Handle 属性

object.Handle

xnn2004

这个我知道阿，在vba里我能实现获取对象的句柄，可是我想通过现启动vb程序，然后切换到cad界面中去选择对象获取对象的句柄。

wyj7485

先了解一下vb操作cad的例子

lxyflr

On Error Resume Next
Form3.Label1.Caption = "正在调用cad"
Form3.Visible = True
Set acadapp = GetObject(, "autocad.application")  '若AutoCad已启动 , 则直接得到
If Err Then
  Err.Clear
  Form3.Label1.Caption = "无cad实例，正在启动"
  Form3.Refresh

  Set acadapp = CreateObject("autocad.application")   '若AutoCad未启动，则运行它
 ' If Err Then
 '  MsgBox Err.Description
 '  Exit Sub
 ' End If
End If
上述代码就可获得控制cad了，acadapp就是cad的一个实例了，调用他的属性和方法就可以了

weianhui

支持楼上的,  不过是不是还要在工程中包含CAD类型库