记忆拉伸怎么改指定距离拉伸比如0.15

htlaser · 发表于 2018-6-2 12:05:14

本帖最后由 htlaser 于 2018-6-2 15:05 编辑

(defun c:ss (/ 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)
)
  )
)
(defun c:ss1 ( )
(command ".STRETCH" (ssget) "" (SETQ AA (getpoint "\n指定基点:"))
(SETQ A2 (GETPOINT AA "\n指点方向")) (POLAR AA (ANGLE AA A2) 1) "")
(progn)
)
还是出错

puzb2023 · 发表于 2024-3-2 08:56:38

不错

，谢谢分享，要是能带预览功能就好了

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

[提问] 记忆拉伸 怎么改指定距离拉伸 比如0.15

[提问] 记忆拉伸怎么改指定距离拉伸比如0.15