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

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
cpnt = ent.Center
dia = ent.Diameter
Next

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

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

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

如果是块引用（注意：不是块） 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

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