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

monkey110

(defun c:ll (/ CURVE TLEN SS N SUMLEN)
  
0 C' G; F( x$ ^- ~3 G  Y1 A(command "pline")       ;要实现此功能代码应如何写？？？
: i' x0 A/ ~1 C" D5 H
1 j, c. a+ I$ Z5 {0 g5 T* |$ g  (vl-load-com)
) [2 m7 p4 k1 l  (setq ss (ENTLAST))
4 I3 B3 p3 `+ u$ l7 J# M              (setq CURVE (vlax-ename->vla-object ss))
; w  H2 n, M* J& P/ [+ T1 o                  (setq TLEN (vlax-curve-getdistatparam CURVE (vlax-curve-getendparam CURVE)))
                     (print (strcat "选" "总长度=" (rtos tlen 2 4)))
" G( t3 j+ R' V9 k# m4 Y                         (princ)
! \3 w  f) K; c# _% |)
. v0 [. g1 r' A% N, W$ o* N9 v本人初学菜鸟，上面的代码有问题，请高手指点怎样写才能达到我的目的！？

Camello

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

monkey110

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