[编程申请]：求某一层中所有PLINE长度的总和?

smcdp

求某一层中所有PLINE长度的总和?

e2002

有没有弧线段和Fit或Spline过的LwPolyline?

梦断江南

用area/a/o/选物体，自动求出总周长，总面积

XDSoft

最初由 YYL 发布
[B]求某一层中所有PLINE长度的总和? [/B]

;|
   命令:cal_poly_len
   功能:计算指定层上的选取的POLYLINE实体的长度总和
   说明: 1.程序允许输入层名也可以拾取指定层上的实体获得层名
           允许交互选择POLYLINE实体,回车全选
         2.计算结果保留4位有效数字,自己可以修改下面程序的(rtos dist 1 4)
           把4改为自己需要的.结果采用科学计数法,若要换10进制,请把上面的1改为2.
         3.程序仅仅对POLYLINE,LWPOLYLINE实体有效,修改下面程序的
           (setq filter....)函数,将*polyline改为其他曲线实体,可以支持所有任意的曲线.
           如"*polyline,line,circle,arc,ellipse,spline"支持所有曲线.
         
         对程序的建议请到晓东CAD空间-论坛
         http://www.xdcad.net/forum "编程申请"
         
   程序需要配合XDRX_API使用
|;

2. 
   
3. (defun c:cal_clen (/ $get_lyr lyr filter ss e ept dist dist1)
   
4.   (defun $get_lyr (/ lyr $pick_lyr)
   
5.     (defun $pick_lyr (/ lyr)
   
6.       (if (xdrx_entsel "\n请拾取指定层上的一个实体确定层名<退出>:")
   
7.         (setq lyr (xdrx_getentdxf 8))
   
8.       )
   
9.       lyr
   
10.     )
    
11.     (if (= (setq lyr (getstring "\n请输入层名<拾取>:"))
    
12.            ""
    
13.         )
    
14.       (setq lyr ($pick_lyr))
    
15.     )
    
16.     lyr
    
17.   )
    
18.   (if (and
    
19.         (setq lyr ($get_lyr))
    
20.         (progn
    
21.           (setq filter (list (cons 8 lyr) '(0 . "*polyline")))
    
22.           (prompt "\n请选择要计算长度的*POLYLINE实体<全选>:")
    
23.           (if (not (setq ss (ssget filter)))
    
24.             (setq ss (ssget "x" filter))
    
25.           )
    
26.         )
    
27.       )
    
28.     (progn
    
29.       (xdrx_setsstodb ss 0)
    
30.       (setq dist 0)
    
31.       (while (setq e (xdrx_getentdata 0))
    
32.         (setq ept (xdrx_curve_GetPoint e)
    
33.               ept (last ept)
    
34.               dist1 (xdrx_curve_getDistAtPoint e ept)
    
35.               dist (+ dist1 dist)
    
36.         )
    
37.       )
    
38.       (prompt (strcat "\n层 " lyr " 上所有POLYLINE的长度总和是:"
    
39.                       (rtos dist 1 4)
    
40.               )
    
41.       )
    
42.     )
    
43.   )
    
44.   (princ)
    
45. )
    

<br /> (defun c:cal_clen (/ $get_lyr lyr filter ss e ept dist dist1)<br />   (defun $get_lyr (/ lyr $pick_lyr)<br />     (defun $pick_lyr (/ lyr)<br />       (if (xdrx_entsel "\n请拾取指定层上的一个实体确定层名<退出>:")<br />         (setq lyr (xdrx_getentdxf 8))<br />       )<br />       lyr<br />     )<br />     (if (= (setq lyr (getstring "\n请输入层名<拾取>:"))<br />            ""<br />         )<br />       (setq lyr ($pick_lyr))<br />     )<br />     lyr<br />   )<br />   (if (and<br />         (setq lyr ($get_lyr))<br />         (progn<br />           (setq filter (list (cons 8 lyr) '(0 . "*polyline")))<br />           (prompt "\n请选择要计算长度的*POLYLINE实体<全选>:")<br />           (if (not (setq ss (ssget filter)))<br />             (setq ss (ssget "x" filter))<br />           )<br />         )<br />       )<br />     (progn<br />       (xdrx_setsstodb ss 0)<br />       (setq dist 0)<br />       (while (setq e (xdrx_getentdata 0))<br />         (setq ept (xdrx_curve_GetPoint e)<br />               ept (last ept)<br />               dist1 (xdrx_curve_getDistAtPoint e ept)<br />               dist (+ dist1 dist)<br />         )<br />       )<br />       (prompt (strcat "\n层 " lyr " 上所有POLYLINE的长度总和是:"<br />                       (rtos dist 1 4)<br />               )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

smcdp

2. 
   
3. (defun c:plinearea()
   
4.   (setq 总面积 0)
   
5.   (setq 面积 0)
   
6.   (setq 总周长 0)
   
7.   (setq 周长 0)
   
8.   (setq k 0)
   
9.   (setq a nil)
   
10.   (setq a (ssget))
    
11.   (setq Len(sslength a))
    
12.   (repeat Len
    
13.     (setq name(ssname a k))
    
14.     (setq ent1(entget name))
    
15.     (setq na(assoc 0 ent1))
    
16.     (setq na(cdr na))
    
17.     (if (= na "SPLINE") (progn
    
18.         (command "area" "o" name )
    
19.         (setq 面积(getvar "area"))
    
20.         (setq 总面积(+ 总面积 面积))
    
21.         (setq 周长(getvar "perimeter"))
    
22.         (setq 总周长(+ 总周长 周长))
    
23.     ))
    
24.     (if (= na "POLYLINE") (progn
    
25.         (command "area" "o" name )
    
26.         (setq 面积(getvar "area"))
    
27.         (setq 总面积(+ 总面积 面积))
    
28.         (setq 周长(getvar "perimeter"))
    
29.         (setq 总周长(+ 总周长 周长))
    
30.     ))
    
31.     (if (= na "LWPOLYLINE") (progn
    
32.         (command "area" "o" name )
    
33.         (setq 面积(getvar "area"))
    
34.         (setq 总面积(+ 总面积 面积))
    
35.         (setq 周长(getvar "perimeter"))
    
36.         (setq 总周长(+ 总周长 周长))
    
37.     ))
    
38.     (setq k(+ k 1))  
    
39.   )
    
40.   (print "总面积=" )
    
41.   (print 总面积)
    
42.   (print "总周长=" )
    
43.   (print 总周长)
    
44. )
    

<br /> (defun c:plinearea()<br />   (setq 总面积 0)<br />   (setq 面积 0)<br />   (setq 总周长 0)<br />   (setq 周长 0)<br />   (setq k 0) <br />   (setq a nil)<br />   (setq a (ssget))<br />   (setq Len(sslength a)) <br />   (repeat Len<br />     (setq name(ssname a k))<br />     (setq ent1(entget name))<br />     (setq na(assoc 0 ent1))<br />     (setq na(cdr na))<br />     (if (= na "SPLINE") (progn <br />         (command "area" "o" name ) <br />         (setq 面积(getvar "area"))<br />         (setq 总面积(+ 总面积 面积)) <br />         (setq 周长(getvar "perimeter"))<br />         (setq 总周长(+ 总周长 周长)) <br />     )) <br />     (if (= na "POLYLINE") (progn <br />         (command "area" "o" name ) <br />         (setq 面积(getvar "area"))<br />         (setq 总面积(+ 总面积 面积)) <br />         (setq 周长(getvar "perimeter"))<br />         (setq 总周长(+ 总周长 周长)) <br />     ))<br />     (if (= na "LWPOLYLINE") (progn <br />         (command "area" "o" name ) <br />         (setq 面积(getvar "area"))<br />         (setq 总面积(+ 总面积 面积)) <br />         (setq 周长(getvar "perimeter"))<br />         (setq 总周长(+ 总周长 周长)) <br />     ))<br />     (setq k(+ k 1))  <br />   )<br />   (print "总面积=" )<br />   (print 总面积)<br />   (print "总周长=" )<br />   (print 总周长)<br /> )<br />