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

monkey110

(defun c:ll (/ CURVE TLEN SS N SUMLEN)
* [- I# }* a! e  
% Z9 t+ m% G( }6 g5 m* d(command "pline")       ;要实现此功能代码应如何写？？？
* c8 }0 o; h2 E; L
  (vl-load-com)
  (setq ss (ENTLAST))
  T5 w9 X9 c* H! C: z! h; E; y7 C              (setq CURVE (vlax-ename->vla-object ss))
                  (setq TLEN (vlax-curve-getdistatparam CURVE (vlax-curve-getendparam CURVE)))
# v& s+ {# w/ ?, b4 q% L4 ~                     (print (strcat "选" "总长度=" (rtos tlen 2 4)))
/ e, o1 d1 r. y1 ^$ Q: W                         (princ)
)
/ ?, z5 x( p/ n: o; R! Q7 \. }本人初学菜鸟，上面的代码有问题，请高手指点怎样写才能达到我的目的！？

Camello

(command "pline")
7 ?/ \$ x& C6 s! O(while (= (logand (getvar "CmdActive") 1) 1) (command pause))  ; add this line

monkey110

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