xmq1103 发表于 2020-9-1 18:11
您好，请问能实现往两个方向偏移吗，正向用正数，反向用负数
例如：
(defun c:tt( / l p bb lst)
(setq l(entsel"请选择偏移的基线："))
(setq p (getpoint "点取偏移方向："))
(setq bb nil)
(while
(setq aa (getint "\n输入值"))
(princ "\n空格结束输入")
(setq bb (cons aa bb))
(setq lst (reverse bb))
)
(pianyi l p lst)
)