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

翔羽 · 发表于 2005-9-21 12:29:00

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

翔羽 · 发表于 2005-9-21 14:09:00

没人回答吗？

wyj7485 · 发表于 2005-9-21 15:05:00

(handent Obj.handle)

mccad · 发表于 2005-9-21 21:22:00

晕倒，这是什么语言啊？

wyj7485 · 发表于 2005-9-22 08:27:00

呵呵,完整的如下:
ThisDrawing.SendCommand "MOVE" & vbCr & "(handent " & Chr(34) & Obj.handle & Chr(34) & ")" & vbCr ........

翔羽 · 发表于 2005-9-24 10:43:00

请问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 · 发表于 2005-9-24 15:16:00

(handent Obj.handle)
是Lisp语句吧。
Private Sub aa()
Dim obj As AcadObject
ThisDrawing.SendCommand "MOVE" & vbCr & "(handent " & [U]obj.Handle[/U] & ")" & vbCr
End Sub
注意：handent后有一个空格.

翔羽 · 发表于 2005-9-24 18:37:00

handent后有加一个空格的时候，运行也不行啊
你可以自己试试看阿
提示错误：提示对象变量或with块没有设置

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

发表回复

精选推荐