CAD AutoLisp 偏移复制

通过选择对象来实现偏移距离复制

(defun c:TT()
  ;输入
  (while (= (setq ent (entsel)) nil))
  (setq di (getdist "\n请输入距离:"))
  (setq dibak di)
  (setq n 5)
  (setq pt (getpoint "\n请指定方向:"))
  ;计算
  (repeat n
    (command "offset" di ent pt "")
    (setq di (+ di dibak))
  )
)