如何逐一读取选择集中园的中心点坐标和直径

torch

请教高手，如何逐一读取选择集中园的中心点坐标和直径

雪山飞狐_lzh

你的选择集还有其它实体（比如直线）么？

myfreemind

如果都是圆的话 For Each ent In sset
cpnt = ent.Center
dia = ent.Diameter
Next

torch

谢谢大侠


但是我的对象不是园,而是一个插入的块,可能为中心对称图形

雪山飞狐_lzh

如果是块引用（注意：不是块）



dim i as acadentity





a=obj.name


for each i in thisdrawing.blocks(a)


if i.entityname="AcDbCircle"


debug.print i.center(0) & i.center(1) & i.center(2)


debug i..Diameter


end if


next i