你会 stretch 吗？
CAD拉伸命令不大好用，为此，搜遍本坛，都没有找到一个合适的代码，也许你会说，很多啊，确实，很多，但不符合我这“挑剔”的人，因为我是画图的，不是写代码的下面拼凑几句代码，暂时自己用吧，没办法。
因为本坛高手如云，谁能写个反应器吗？记录键盘的输入，如果有输入，就记录存于变量，即可进一步：实现“记忆距离的拉伸”。
;;;;;;;三领-拉伸;;;;;;框选样式代码;;;;;;;;;;;;;;;;;;;;;;;;
;;:1:可以定点定距离
;;:2:可以任意拉伸;;:3:可以输入距离拉伸
;;;4:和原CAD一样，具有拖曳效果
(defun c:slstrch (/ ss oldorh oldosm basicpoint)
(vl-cmdf "select" "c" pause)
(setq ss (ssget "p"))
(setq oldorh (getvar "ORTHOMODE"))
(setq oldosm (getvar "OSMODE"))
(setvar "ORTHOMODE" 1) ;;;正交打开
(setvar "OSMODE" 16383) ;;;;;对象捕捉 开
(setq basicpoint (getpoint "\n指定基点(右键任意拉伸)或【输入距离D】:"))
(if (= nil basicpoint)
(setq basicpoint (nth 1 (grread 5)))
)
(command "_.stretch" ss "" basicpoint pause)
(setvar "ORTHOMODE" oldorh) ;;;恢复正交
(setvar "OSMODE" oldosm) ;;;;;恢复捕捉
(princ)
)
页:
[1]