yoyrtweq 发表于 2017-9-12 21:38:12

记忆拉伸

本帖最后由 yoyrtweq 于 2017-9-12 22:16 编辑



在本站找了记忆拉伸的LISP的插件 但是使用的时候不能用捕捉拉伸了哪位大侠能完善下 这个功能它能记忆上次拉伸的命令还可以带捕捉拉伸，就是CAD自带的效果。此插件不带捕捉，必须填数值才能拉伸    下面是我下载的LISP

(defun c:jyls (/ s_dis)
(cmdla0)
   (command ".STRETCH" (ssget) "")
   (command (setq BasicPoint (getpoint "\n指定基点:")))
   (if (= nil s_dis_all)
   (progn
       (setq s_dis_all (getreal "\n输入拉伸距离:"))
       (command s_dis_all)
   )
   (progn
       (setq
s_dis (getreal
   (strcat "\n输入拉伸距离<" (rtos s_dis_all 2 4) ">:")
      )
       )
       (if (= nil s_dis)
(setq s_dis s_dis_all)
       )
       (command s_dis)
       (setq s_dis_all s_dis)
(cmdla1)
   )
   )
)









q3_2006 发表于 2017-9-13 17:17:19

打开捕捉不就行了..

yoyrtweq 发表于 2017-9-13 22:06:18

q3_2006 发表于 2017-9-13 17:17
打开捕捉不就行了..

这插件打开捕捉你不输入数值拉不动，必须输入数值
页: [1]
查看完整版本: 记忆拉伸