|
|
(defun c:ll (/ CURVE TLEN SS N SUMLEN)( p- R6 h3 r9 Y9 r! X% M$ b
" O. ~2 n6 y% c, Q5 q- T2 L(command "pline") ;要实现此功能代码应如何写？？？* z& t. q) Y9 P) |8 S7 ]5 \7 U: Z
* o- v- E! j! Z( `
(vl-load-com)0 Q* ]0 _5 m& D, ^5 | q( N
(setq ss (ENTLAST))
9 @1 }7 o- n5 U0 h7 E0 C (setq CURVE (vlax-ename->vla-object ss))
5 V" N, {' V$ u8 q (setq TLEN (vlax-curve-getdistatparam CURVE (vlax-curve-getendparam CURVE)))* k& E3 R$ F2 k+ w9 b6 t
(print (strcat "选" "总长度=" (rtos tlen 2 4)))9 ]4 |% `* G1 A( J9 A; m2 b
(princ)! d4 A: v- t* ~+ r
)
& Y, E7 o. K: H' J' w本人初学菜鸟，上面的代码有问题，请高手指点怎样写才能达到我的目的！？ |
|
发表于 2010-7-8 23:40
楼主
,非常感谢Camello，谢谢！！！