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

yuangw1234

dim cmd as string ,circ as acadcircle

dim pt(2) as double

pt(0)=1 : pt(1)=2 : pt(2)=0.5

cmd="circle" & vbcr &  " pt" & "5"

thisdrawing.sendcommand cmd

请问这样画出后的圆怎样可以赋给我刚定义的的circ

因为我要给圆著色，请知道的高手指点，谢谢(不要建议我用addcircle方法）

雪山飞狐_lzh

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

yuangw1234

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

set obj=thisdrawing,sendcommand cmd

其实我还没有试过

zyq_dummy

如果不用addcircle:

ThisDrawing.SendCommand "c 3,3 5 "
    Dim ssetObj As AcadSelectionSet
   Set ssetObj = ThisDrawing.SelectionSets.Add("SSxxxExT" ))
ssetObj.Select acSelectionSetLast'注意这个
For Each sobj In ssetObj
MsgBox sobj.ObjectName
Next sobj
还是建议用addcircle

yuangw1234

多谢！