sqqr 发表于 2005-1-14 13:48:00

求助飞哥

飞哥曾发表如下程式：



(defun c:test( / ent dis)<BR>       (setq ent (car (entsel)))<BR>       (setq dis (getreal "\n输入距离:"))<BR>       (vla-offset (vlax-ename-&gt;vla-object ent) (/ dis 2.0))<BR>       (vla-offset (vlax-ename-&gt;vla-object ent) (- (/ dis 2.0)))<BR>       (entdel ent)<BR>       (princ)<BR>) <BR>


但能否修改为可选取多条直线呢？？任意样条曲线行不行？？偏置定值如40可否？

BDYCAD 发表于 2005-1-14 13:55:00

(defun c:test( / ent dis)<BR>       (princ "\n选择要偏移的线或曲线或圆或弧:")<BR>       (setq ss (ssget ) i 0 run (sslength ss))<BR>       (setq dis (getreal "\n输入距离:"))<BR>       (repeat run<BR>       (setq ent (ssname ss i)) <BR>       (vla-offset (vlax-ename-&gt;vla-object ent) (/ dis 2.0))<BR>       (vla-offset (vlax-ename-&gt;vla-object ent) (- (/ dis 2.0)))<BR>       (entdel ent)<BR>                       (setq i (1+ i)))<BR>       (princ)<BR>)

sqqr 发表于 2005-1-14 15:11:00

本帖最后由 作者 于 2005-1-14 15:56:57 编辑 <br /><br /> 谢谢<A name=5663><FONT color=#990000><B>BDYCAD</B></FONT></A>！



能否修改一下，保留原曲线呢？并且要求向内or向外单向偏置呢。

BDYCAD 发表于 2005-1-14 16:20:00

保留原線把程序的(entdel ent) 這句刪去 就ok
页: [1]
查看完整版本: 求助飞哥