TLHMQH 发表于 2007-3-20 12:17:00

[求助]请编个二维中的对齐命令

<p>在三维操作中有个命令：对齐（align）</p><p>在二维操作中也很有用，但其有两个缺点：</p><p>1、<em>指定第三个源点或 &lt;继续&gt;:</em></p><p>在二维操作中只用两个对齐点，需按一次回车取消第三个对齐点。</p><p>2、<em>是否基于对齐点缩放对象？[是(Y)/否(N)] &lt;否&gt;:</em>
        </p><p>系统默认方式是&lt;否&gt;，而正常操作中大部分是选择是(Y)，这就需要多按一次Y。</p><p>上面两项给操作带来多余步骤。</p><p>请高手编个程序，能有对齐（align）功能，但却简化上面两个步骤</p>

sailorcwx 发表于 2007-3-25 18:45:00

<p>(command "align" (ssget) "" pause pause pause pause "" "Y")</p>

sailorcwx 发表于 2007-3-25 18:47:00

<p>函数格式</p><p>(defun c:a ()<br/>&nbsp; (command "align" (ssget) "" pause pause pause pause "" "Y")<br/>&nbsp; (princ)<br/>&nbsp; )</p>

TLHMQH 发表于 2007-3-26 23:03:00

<p>谢谢楼上，高手。辛苦了！</p>
页: [1]
查看完整版本: [求助]请编个二维中的对齐命令