yuangw1234 发表于 2006-4-30 11:42:00

請問用sendcommand畫出的圓怎樣賦給一個acadcircle

<P>dim cmd as string ,circ as acadcircle</P>
<P>dim pt(2) as double</P>
<P>pt(0)=1 : pt(1)=2 : pt(2)=0.5</P>
<P>cmd="circle" &amp; vbcr &amp;&nbsp; " pt" &amp; "5"</P>
<P>thisdrawing.sendcommand cmd</P>
<P>请问这样画出后的圆怎样可以赋给我刚定义的的circ</P>
<P>因为我要给圆著色，请知道的高手指点，谢谢(不要建议我用addcircle方法）</P>

雪山飞狐_lzh 发表于 2006-4-30 18:52:00

还是想问问,为什么不用用addcircle方法?

yuangw1234 发表于 2006-4-30 22:02:00

<P>版主，是圆确实是可以，但有些东西没有add的方法，就象画正多边形，它要用到addpolyline，然后要一大堆的点，而我用sendcommand的方法来的容易得多，你有方法将sendcommand后的图形赋给一样物件吗？可不可以dim obj as acadobject</P>
<P>set obj=thisdrawing,sendcommand cmd</P>
<P>其实我还没有试过</P>

zyq_dummy 发表于 2006-5-3 14:59:00

<P>如果不用addcircle:</P>
<P>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'注意这个<BR>For Each sobj In ssetObj<BR>MsgBox sobj.ObjectName<BR>Next sobj<BR>还是建议用addcircle</P>

yuangw1234 发表于 2006-5-5 09:47:00

多谢！
页: [1]
查看完整版本: 請問用sendcommand畫出的圓怎樣賦給一個acadcircle