记忆拉伸

左怀政 · 发表于 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

这个功能非常强大

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

记忆拉伸

相关帖子

本帖子中包含更多资源

浏览过的版块