怎么样用程序获取所选对象的句柄？

翔羽

在CAD下，输入move命令后，提示选择对象，根据提示进行对象移动操作,请问用VBA程序怎么实现？同时怎么样用程序获取所选对象的句柄？时间很着急，请大家多帮忙~~

翔羽

没人回答吗？

wyj7485

(handent Obj.handle)

mccad

wyj7485发表于2005-9-21 15:05:00(handent Obj.handle)

晕倒，这是什么语言啊？

wyj7485

呵呵,完整的如下:

ThisDrawing.SendCommand "MOVE" & vbCr & "(handent " & Chr(34) & Obj.handle & Chr(34) & ")" & vbCr ........

翔羽

请问ThisDrawing.SendCommand "MOVE" & vbCr & "(handent " & Chr(34) & Obj.handle & Chr(34) & ")" & vbCr ........是直接用吗？

以下程序调用失败：提示对象变量或with块没有设置

Private Sub aa()
Dim obj As AcadObject
ThisDrawing.SendCommand "MOVE" & vbCr & "(handent " & VBA.Chr(34) & [U]obj.Handle[/U] & VBA.Chr(34) & ")" & vbCr
End Sub

MJTD_7777

(handent Obj.handle)

是Lisp语句吧。

Private Sub aa()
Dim obj As AcadObject
ThisDrawing.SendCommand "MOVE" & vbCr & "(handent  "  & obj.Handle &  ")" & vbCr
End Sub

注意：handent后有一个空格.

翔羽

handent后有加一个空格的时候，运行也不行啊

你可以自己试试看阿

提示错误：提示对象变量或with块没有设置