torch 发表于 2004-6-26 14:22:00

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

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

雪山飞狐_lzh 发表于 2004-6-26 14:26:00

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

myfreemind 发表于 2004-6-26 14:31:00

如果都是圆的话


For Each ent In sset<BR>cpnt = ent.Center<BR>dia = ent.Diameter<BR>Next

torch 发表于 2004-6-26 15:43:00

谢谢大侠


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

雪山飞狐_lzh 发表于 2004-6-26 16:36:00

本帖最后由 作者 于 2004-6-26 17:20:12 编辑

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



dim i as acadentity





a=obj.name


for each i in thisdrawing.blocks(a)


if i.entityname="AcDbCircle"


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


debug i..Diameter


end if


next i
页: [1]
查看完整版本: 如何逐一读取选择集中园的中心点坐标和直径