|
|
(defun c:ll (/ CURVE TLEN SS N SUMLEN)
5 ?, ~& n$ K4 B; F
/ B2 t {8 Q- U& G4 G(command "pline") ;要实现此功能代码应如何写？？？ F- l q4 \: H2 m2 I
* R6 ?1 j. E. N. n: B& r
(vl-load-com)1 L# M5 u8 y. q' U) G; h
(setq ss (ENTLAST))
* \6 H. t: z& _* j8 K6 z7 `! f; A! ` (setq CURVE (vlax-ename->vla-object ss))8 O1 y: x0 r1 c+ h8 ~/ ?/ @# E4 W
(setq TLEN (vlax-curve-getdistatparam CURVE (vlax-curve-getendparam CURVE)))/ P. O! u2 {5 v6 E! [5 ^5 D% _7 {/ ]
(print (strcat "选" "总长度=" (rtos tlen 2 4))), N! M! m0 L2 s' e; s; b
(princ)
' Z/ z! E' h' Z)' Z3 C% P6 D- `4 Z3 D
本人初学菜鸟，上面的代码有问题，请高手指点怎样写才能达到我的目的！？ |
|
发表于 2010-7-8 23:40
楼主
,非常感谢Camello，谢谢！！！