求助：command "lengthen"命令结束

osikou · 发表于 2020-9-6 22:08:41

（cad2020）选取线段，提取长度，但是lengthen命令还会继续执行，如何提取完后使之结束并继续后面的操作。请求指点，谢谢。

(command "lengthen" ent1 "")
(setq l1 (getvar "perimeter"))

Bao_lai · 发表于 2020-9-7 00:12:06

(defun c:tt(/ ent1 l1)
(while (= nil ent1) (setq ent1 (ssget ":e:s" '((0 . "*line,circle,ellipse,arc")))))
(command "lengthen" ent1 "")
(setq l1 (getvar "perimeter"))
(princ)
)

osikou · 发表于 2020-9-7 07:25:29

谢谢您的回复，问题还是没有解决，cad依然继续执行lengthen命令，要求输入数值（或选择）。
(defun c:tt1(/ ent1 l1 pp pt1)
(while (= nil ent1) (setq ent1 (ssget ":e:s" '((0 . "*line,circle,ellipse,arc")))))
(command "lengthen" ent1 "")
(setq l1 (getvar "perimeter"))
(setq pp (rtos l1 2 0))

(setq pt1 (getpoint "point"))
(command "text" "tl" pt1 l1 0 pp)
(princ)
)

osikou · 发表于 2020-9-7 07:31:55

另外，cad2014版本试用就没有问题。为什么cad2020有问题呢？

Bao_lai · 发表于 2020-9-7 08:41:46

我用的是2014，你说的2020没有安装。

gamexia · 发表于 2022-3-28 20:43:13

(command "lengthen" ent1 "" "" "" )
加2个空格

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

[提问] 求助：command "lengthen"命令结束