求多段线长度

何泓岭

求多段线长度

【KAIXIN】

要分享源码就要弄完整一点点

2. (defun C:KK (/ CURVE TLEN SS N SUMLEN)
   
3. (vl-load-com)
   
4. (setq SUMLEN 0)
   
5. (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
   
6. (setq N 0)
   
7. (repeat (sslength SS)
   
8. (setq CURVE (vlax-ename->vla-object (ssname SS N)))
   
9. (setq TLEN (vlax-curve-getdistatparam CURVE (vlax-curve-getendparam CURVE)))
   
10. (setq SUMLEN (+ SUMLEN TLEN 0))
    
11. (setq N (1+ N))
    
12. )
    
13.   (setq PS (getpoint "\n请指定长度文本放置点："))
    
14.   (command "text" pS 2.5 0 (strcat "L=" (rtos sumlen 2 2)))
    
15. (PRINC))
    
16. (princ "\n程序：统计线段长度 命令：KK") (PRINC)

(defun C:KK (/ CURVE TLEN SS N SUMLEN) <br /> (vl-load-com) <br /> (setq SUMLEN 0) <br /> (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC")))) <br /> (setq N 0) <br /> (repeat (sslength SS) <br /> (setq CURVE (vlax-ename->vla-object (ssname SS N))) <br /> (setq TLEN (vlax-curve-getdistatparam CURVE (vlax-curve-getendparam CURVE))) <br /> (setq SUMLEN (+ SUMLEN TLEN 0)) <br /> (setq N (1+ N)) <br /> ) <br />   (setq PS (getpoint "\n请指定长度文本放置点："))<br />   (command "text" pS 2.5 0 (strcat "L=" (rtos sumlen 2 2)))<br /> (PRINC)) <br /> (princ "\n程序：统计线段长度 命令：KK") (PRINC)

yjr111

经典在此！永不过时。。。
http://www.mjtd.com/Codes/ArticleShow.asp?ArticleID=1275