求助飞哥

sqqr

飞哥曾发表如下程式： (defun c:test( / ent dis)
(setq ent (car (entsel)))
(setq dis (getreal "\n输入距离:"))
(vla-offset (vlax-ename->vla-object ent) (/ dis 2.0))
(vla-offset (vlax-ename->vla-object ent) (- (/ dis 2.0)))
(entdel ent)
(princ)
)
但能否修改为可选取多条直线呢？？任意样条曲线行不行？？偏置定值如40可否？

BDYCAD

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

sqqr

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

BDYCAD

保留原線把程序的(entdel ent) 這句刪去 就ok