用lisp改变直线的长度

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

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

1. 电脑系统【卸载或更改程序】，点击autocad，添加功能【express tools】。 2. (setq ss1 (acet-geom-intersectwith ent1 ent2 0));取得两个对象交点集合，如果没有交点nil。