请高手指点“关于在lisp中画多段线并取长度”的问题

monkey110

(defun c:ll (/ CURVE TLEN SS N SUMLEN)
( F; ]' z  R; l, d1 l# ?  
(command "pline")       ;要实现此功能代码应如何写？？？

  (vl-load-com)
/ V7 D, {8 ?+ N  (setq ss (ENTLAST))
& {( Z# Z5 e* T/ i              (setq CURVE (vlax-ename->vla-object ss))
/ L2 H* k2 [. Q, E& n3 ^                  (setq TLEN (vlax-curve-getdistatparam CURVE (vlax-curve-getendparam CURVE)))
                     (print (strcat "选" "总长度=" (rtos tlen 2 4)))
                         (princ)
)
, ~$ _  T8 p; L5 j: k* J本人初学菜鸟，上面的代码有问题，请高手指点怎样写才能达到我的目的！？

Camello

(command "pline")
(while (= (logand (getvar "CmdActive") 1) 1) (command pause))  ; add this line

monkey110

,非常感谢Camello，谢谢！！！