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