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

求助：块插入点问题

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

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

<p>dim Blo as acadblock</p><p>set blo=thisdrawing.blocks.item(thisdrawing.blocks.count-1)</p><p>dim Cir as acadcircle</p><p>set cir=blo.item(0)</p><p>dim Cen</p><p>cen=cir.center</p><p>现写的程序，应该行，调试一下。。。。。。</p>

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

<p>多谢高手的解答，但是运行到</p><p>set cir=blo.item(0)就出错啊？</p>

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

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

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

<p>版主，怎么样才能使块炸开获取坐标再恢复啊？</p><p>7楼的，请教一下，怎样根据块参照得到块定义啊？</p>

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

<p>在进一步讨论之前，你要在详细一点你的意图。</p><p>你现在定义了一个块，块的插入点不在圆心上，现在我要获取块的圆心坐标</p><p>你需要块参照内的圆心坐标</p><p>这个坐标确定是指WCS下的坐标吗？你的块内只有一个圆吗，你要通过拾取圆来得到坐标呢还是其它什么方法，也可以上张图。</p>

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

<p>对啊，我需要块参照的圆心坐标，而不是块的圆心坐标，块是由一个圆和几条直线、一个填充图案组成</p>
页: [1] 2
查看完整版本: 求助：块插入点问题