一次偏移多条线的代码可以简化吗 最好能列表输入数值

zj20190405

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)
  )