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

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

(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

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

		自动登录	找回密码
密码			立即注册

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