monkey110 发表于 2010-7-8 23:40

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

(defun c:ll (/ CURVE TLEN SS N SUMLEN)

(command "pline")       ;要实现此功能代码应如何写？？？

(vl-load-com)
(setq ss (ENTLAST))
            (setq CURVE (vlax-ename->vla-object ss))
                  (setq TLEN (vlax-curve-getdistatparam CURVE (vlax-curve-getendparam CURVE)))
                     (print (strcat "选" "总长度=" (rtos tlen 2 4)))
                         (princ)
)
本人初学菜鸟，上面的代码有问题，请高手指点怎样写才能达到我的目的！？

Camello 发表于 2010-7-9 09:23

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

monkey110 发表于 2010-7-9 12:25

:victory: ,非常感谢Camello，谢谢！！！
页: [1]
查看完整版本: 请高手指点“关于在lisp中画多段线并取长度”的问题