记忆拉伸

GDFGFGF · 发表于 2021-11-27 19:43

请问大师本程序如何改下：输入完拉伸距离后,增加用鼠标左键确认。谢谢!

(defun c

S (/ s_dis)
  (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)
)
  )
)

yanchao316 · 发表于 2021-12-1 10:26

搜索下论坛，你会发现有更好用的

GDFGFGF · 发表于 2021-11-28 08:20

自己顶一下

tigcat · 发表于 2021-11-28 11:21

谢谢楼主分享

tdl555 · 发表于 2021-12-4 19:01

谢谢楼主分享

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

[提问] 记忆拉伸

评分