小程序--连续偏移

王者之弩

xotoo 发表于 2011-11-6 14:24
想找一个连续输入偏移距离然后相对于上一个偏移点偏移的那种程序

(defun c:oi()

  
  (setq l(entsel"选择要偏移直线："));确定选择的直线
  (setq b 0)
  (setq p (getpoint"输入偏移方向："));确定偏移方向
  (repeat 1000
     (setq a (getreal"请输入偏移量："))
     (setq b (+ a b))
     (command "offset" b l p "")
  )
  
)

潇湘飞雨

虽然用的少  纯支持了

xotoo

王者之弩 发表于 2013-3-30 19:50
(defun c:oi()

  

谢谢
非常感谢