左怀政 发表于 2013-6-2 10:30:03

记忆拉伸

在本站找了记忆拉伸的LISP的插件 但是使用的时候不能用捕捉拉伸了哪位大侠能完善下 这个功能是它能记忆上次拉伸的命令还可以带捕捉拉伸    下面是我下载的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)
   )
   )
)

pastor 发表于 2019-1-8 19:42:59

可以选择点或者输入长度。

左怀政 发表于 2013-6-2 10:41:09

我的意思是能记住上次拉伸的数据同样还保留原S拉伸 的一切功能捕捉各种点   使用起来方便

Hermite 发表于 2019-7-29 18:42:30

pastor 发表于 2019-1-8 19:42
可以选择点或者输入长度。

这个多段线时是移动。

匆匆肥马 发表于 2019-9-24 22:41:37

这个看起来还不错

LIULISHENG 发表于 2020-4-10 19:38:21

这个不错的

KO你 发表于 2020-11-23 20:13:12

pastor 发表于 2019-1-8 19:42
可以选择点或者输入长度。

如果能忽略选项A、B选项，用空格确定重复上次的数据，输入数值或点取距离保留CAD默认的这样更快捷使用。

asdttkjn 发表于 2021-8-14 20:56:12

这个功能非常强大
页: [1]
查看完整版本: 记忆拉伸