求助：块插入点问题

liuyang4740 · 发表于 2007-10-13 15:20:00

求助：我现在定义了一个块，块的插入点不在圆心上，现在我要获取块的圆心坐标，该怎么获取？请指教！

xinghesnak · 发表于 2007-10-13 16:18:00

dim Blo as acadblock

set blo=thisdrawing.blocks.item(thisdrawing.blocks.count-1)

dim Cir as acadcircle

set cir=blo.item(0)

dim Cen

cen=cir.center

现写的程序，应该行，调试一下。。。。。。

liuyang4740 · 发表于 2007-10-15 09:35:00

多谢高手的解答，但是运行到

set cir=blo.item(0)就出错啊？

alin · 发表于 2007-10-15 10:06:00

是要块定义的圆心坐标，还是块参照内的圆心坐标？

liuyang4740 · 发表于 2007-10-15 19:16:00

需要块参照内的圆心坐标

alin · 发表于 2007-10-15 21:34:00

GetSubEntity方法可以得到选择的圆在块定义中的圆心座标。要经过矩阵变换才能得到世界坐标系的值。LISP有Jon Fleming的程序可用，VBA的现成代码没找到。也可以炸开该块得到坐标后恢复。

xinghesnak · 发表于 2007-10-16 10:01:00

根据块参照的名字得到块定义，然后同上方法提取应该也行。。。。。望大家拍砖

liuyang4740 · 发表于 2007-10-18 09:24:00

版主，怎么样才能使块炸开获取坐标再恢复啊？

7楼的，请教一下，怎样根据块参照得到块定义啊？

alin · 发表于 2007-10-18 09:59:00

在进一步讨论之前，你要在详细一点你的意图。

你现在定义了一个块，块的插入点不在圆心上，现在我要获取块的圆心坐标

你需要块参照内的圆心坐标

这个坐标确定是指WCS下的坐标吗？你的块内只有一个圆吗，你要通过拾取圆来得到坐标呢还是其它什么方法，也可以上张图。

liuyang4740 · 发表于 2007-10-18 13:54:00

对啊，我需要块参照的圆心坐标，而不是块的圆心坐标，块是由一个圆和几条直线、一个填充图案组成

账号		自动登录	找回密码
密码			注册