王者之弩 发表于 2013-3-30 19:50:08

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

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

)

潇湘飞雨 发表于 2013-3-31 14:25:13

虽然用的少纯支持了

xotoo 发表于 2013-4-1 23:36:59

王者之弩 发表于 2013-3-30 19:50 static/image/common/back.gif
(defun c:oi()




谢谢
非常感谢
页: 1 2 [3]
查看完整版本: 小程序--连续偏移