记忆拉伸

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
打开捕捉不就行了..

这插件打开捕捉你不输入数值拉不动，必须输入数值

账号		自动登录	找回密码
密码			注册

记忆拉伸

相关帖子