通过指定层统计直线做的源码（——）

fkyourmather

由free-lancer热心指导完成！非常感谢！

1. (defun c:jk (/)
   
2.   (vl-load-com)
   
3.   (vl-catch-all-apply
   
4.     (function
   
5.       (lambda (/ ss ssl i len)
   
6. (princ "\n统计范围.....")
   
7. (while
   
8.    (setq
   
9.      ss (ssget '((0 . "line") (8 . "BEAM,DIM,COOL,CORE")))
   
10.    )
    
11.     (setq ssl (sslength ss)
    
12.    i   -1
    
13.    len 0.
    
14.     )
    
15.     (repeat ssl
    
16.       (setq e   (ssname ss (setq i (1+ i)))
    
17.      len (+ len
    
18.      (vlax-curve-getdistatparam
    
19.        e
    
20.        (vlax-curve-getendparam e)
    
21.      )
    
22.          )
    
23.       )
    
24.     )
    
25.     (princ (strcat "Totle Length = " (vl-princ-to-string len)))
    
26. )
    
27.       )
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )
    
32. ;目前我想在更好的处理结果 (PRINC 层名)（PRINC  长度）有大师说把图层作为变量 晚点我试试 这样更加方便
    
33. 
    
34. 
    
35. 
    
36. ;新人要是不能看的明白可以参考一下函数
    
37. (defun c:tt (/ curve tlen ss n i)
    
38.   (vl-load-com)
    
39.   (setq i 0)
    
40.   (princ (strcat "\n请选择线"))
    
41.   (if (setq ss (ssget (list '(-4 . "<OR") '(8 . "DIM,CORE,COOL,CENTER") '(-4 . "OR>") '(-4 . "<OR") '(0 . "LINE") '(-4 . "OR>"))))
    
42.     (progn
    
43.       (setq n 0)
    
44.       (repeat (sslength ss)
    
45.         (setq curve (vlax-ename->vla-object (ssname ss n)))
    
46.         (setq tlen (vlax-curve-getDistAtParam curve (vlax-curve-getEndParam curve)))
    
47.         (setq i (+ i tlen))
    
48.         (setq n (1+ n))
    
49.       )
    
50.       (print (strcat "总长度: " (rtos i 2 4))))
    
51.   )
    
52.   (princ)
    
53. )

(defun c:jk (/)<br />   (vl-load-com)<br />   (vl-catch-all-apply<br />     (function<br />       (lambda (/ ss ssl i len)<br /> (princ "\n统计范围.....")<br /> (while<br />    (setq<br />      ss (ssget '((0 . "line") (8 . "BEAM,DIM,COOL,CORE")))<br />    )<br />     (setq ssl (sslength ss)<br />    i   -1<br />    len 0.<br />     )<br />     (repeat ssl<br />       (setq e   (ssname ss (setq i (1+ i)))<br />      len (+ len<br />      (vlax-curve-getdistatparam<br />        e<br />        (vlax-curve-getendparam e)<br />      )<br />          )<br />       )<br />     )<br />     (princ (strcat "Totle Length = " (vl-princ-to-string len)))<br /> )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> ;目前我想在更好的处理结果 (PRINC 层名)（PRINC  长度）有大师说把图层作为变量 晚点我试试 这样更加方便<br /> <br /> <br /> <br /> ;新人要是不能看的明白可以参考一下函数<br /> (defun c:tt (/ curve tlen ss n i)<br />   (vl-load-com)<br />   (setq i 0)<br />   (princ (strcat "\n请选择线"))<br />   (if (setq ss (ssget (list '(-4 . "<OR") '(8 . "DIM,CORE,COOL,CENTER") '(-4 . "OR>") '(-4 . "<OR") '(0 . "LINE") '(-4 . "OR>"))))<br />     (progn<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 i (+ i tlen))<br />         (setq n (1+ n))<br />       )<br />       (print (strcat "总长度: " (rtos i 2 4))))<br />   )<br />   (princ)<br /> )

2012淡然之马

可以加多一步，
提取文字，
到任意指定位置

fkyourmather

2012淡然之马 发表于 2013-5-22 15:53
可以加多一步，
提取文字，
到任意指定位置

可以发代码提供参考

pimixixi

是的,这个比较好,

金鹅起飞

谢谢楼主分享，向楼主学习

bai2000

同意2楼的意见