freezl 发表于 2006-5-12 23:41:00

能够引用SendCommand创建的对象吗？

<P>ThisDrawing.SendCommand "_Circle" &amp; vbCr &amp; "2,2,0" &amp; vbCr &amp; "4" &amp; vbCr<BR>这是用SendCommand创建的一个圆，我怎么才能在程序中引用它呢？</P>
<P>Dim end As Object</P>
<P>Set end =ThisDrawing.SendCommand "_Circle" &amp; vbCr &amp; "2,2,0" &amp; vbCr &amp; "4" &amp; vbCr</P>
<P>我试过了这样是不行的，谁能告诉我怎么办啊 ？</P>

mccad 发表于 2006-5-13 06:00:00

<P>看看你有哪个空间中画图，然后取该空间的最后一个图元。</P>
<P>如果是画图的话，建议使用专用的画图方法来做。</P>

xinghesnak 发表于 2006-5-13 08:37:00

<P>同意mccad的意见，改成这样：</P>
<P>Dim aa As Object</P>
<P>ThisDrawing.SendCommand "_Circle" &amp; vbCr &amp; "2,2,0" &amp; vbCr &amp; "4" &amp; vbCr</P>
<P>Set aa = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)</P>
<P>&nbsp;</P>

yuangw1234 发表于 2006-5-13 15:12:00

<P>不晓得以下方法对你是否有帮助</P>
<P><BR>Public Sub cmm()<BR>ThisDrawing.SendCommand "c 3,3 5 "<BR>&nbsp;&nbsp;&nbsp; Dim ssetObj As AcadSelectionSet<BR>&nbsp;&nbsp; Set ssetObj = ThisDrawing.SelectionSets.Add("SSxxxExT")<BR>ssetObj.Select acSelectionSetLast '×&cent;&Ograve;&acirc;&Otilde;&acirc;&cedil;&ouml;<BR>For Each sobj In ssetObj<BR>MsgBox sobj.ObjectName<BR>Next sobj<BR>End Sub<BR></P>

xinghesnak 发表于 2006-5-13 15:36:00

楼上的也是好方法！顶顶。。。。。。
页: [1]
查看完整版本: 能够引用SendCommand创建的对象吗？