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

记忆拉伸

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


(defun c:LS (/ 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:29

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

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

自己顶一下

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

谢谢楼主分享

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

谢谢楼主分享
页: [1]
查看完整版本: 记忆拉伸