Question

用lisp改变直线的长度

大家好:
使用CAD命令lengthen---> T 指定总长度可以改变线的总长，不仅可以改直线，也可以改多段线
能不能直接用lisp写出来呢?输入命令tt, 提示输入长度，然后选择线条。

Answer 1

(Defun C:TT (/ lineLength)
(setq lineLength (getreal "\n输入长度"))
(if (> lineLength 0.0)
(progn
(setvar "cmdecho" 1)
(command ".LENGTHEN" "t" lineLength pause)
)
)
(prin1)
)