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

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

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

翔羽 发表于 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-21 15:05:00static/image/common/back.gif(handent Obj.handle)

<BR>晕倒，这是什么语言啊？

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

<P>呵呵,完整的如下:</P>
<P>ThisDrawing.SendCommand "MOVE" &amp; vbCr &amp; "(handent " &amp; Chr(34) &amp; Obj.handle &amp; Chr(34) &amp; ")" &amp; vbCr ........<BR></P>

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

<P>请问ThisDrawing.SendCommand "MOVE" &amp; vbCr &amp; "(handent " &amp; Chr(34) &amp; Obj.handle &amp; Chr(34) &amp; ")" &amp; vbCr ........是直接用吗？</P>
<P>以下程序调用失败：提示对象变量或with块没有设置</P>
<P>Private Sub aa()<BR>Dim obj As AcadObject<BR>ThisDrawing.SendCommand "MOVE" &amp; vbCr &amp; "(handent " &amp; VBA.Chr(34) &amp; obj.Handle &amp; VBA.Chr(34) &amp; ")" &amp; vbCr<BR>End Sub</P>

MJTD_7777 发表于 2005-9-24 15:16:00

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

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

<P>handent后有加一个空格的时候，运行也不行啊</P>
<P>你可以自己试试看阿</P>
<P>提示错误：提示对象变量或with块没有设置</P>
页: [1]
查看完整版本: 怎么样用程序获取所选对象的句柄？