求助！！关于统计封闭区域内多段线的数量！

TimeT

各位大侠！因工作需要，需要大量统计一个闭区域内多段线的数量，很是繁琐，请各位大侠帮帮忙。
如果能够随带标出区域的面积，那是最好不过。
悬赏只是个噱头，还望各位大侠不弃！
不胜感激！

hlmdf

不是很完整，用着先吧……
统计面积、对象个数：

2. (defun c:TA(/ ss tarea obj k l)
   
3.   (setvar "cmdecho" 0)
   
4.   (if (setq ss (ssget))
   
5.     (progn
   
6.       (vl-load-com)
   
7.       (setq l (sslength ss) k 0 tarea 0 )
   
8.       (repeat l
   
9.         (setq ename (ssname ss k))
   
10.         (setq obj (vlax-ename->vla-object ename))
    
11.         (if (vlax-property-available-p obj "area")
    
12.           (setq tarea (+ (vlax-get-property obj 'area) tarea))
    
13.         )
    
14.         (setq k (1+ k))
    
15.       )
    
16.       (setq tarea (/ tarea 1000000))
    
17.       (princ (strcat "\n共选择 " (itoa l) " 个对象 | 总面积: " (rtos tarea 2 3)))
    
18.     )
    
19.     (princ "\n未选择对象")
    
20.   )
    
21.   (setvar "cmdecho" 1)
    
22.   (prin1)
    
23. )

(defun c:TA(/ ss tarea obj k l)<br />   (setvar "cmdecho" 0)<br />   (if (setq ss (ssget))<br />     (progn<br />       (vl-load-com)<br />       (setq l (sslength ss) k 0 tarea 0 )<br />       (repeat l<br />         (setq ename (ssname ss k))<br />         (setq obj (vlax-ename->vla-object ename))<br />         (if (vlax-property-available-p obj "area")<br />           (setq tarea (+ (vlax-get-property obj 'area) tarea))<br />         )<br />         (setq k (1+ k))<br />       )<br />       (setq tarea (/ tarea 1000000))<br />       (princ (strcat "\n共选择 " (itoa l) " 个对象 | 总面积: " (rtos tarea 2 3)))<br />     )<br />     (princ "\n未选择对象")<br />   )<br />   (setvar "cmdecho" 1)<br />   (prin1)<br /> )

统计线段长度、数量：

2. (defun c:TG(/ ss tlen obj k l)
   
3.   (setvar "cmdecho" 0)
   
4.   (if (setq ss (ssget))
   
5.     (progn
   
6.       (vl-load-com)
   
7.       (setq l (sslength ss) k 0 tlen 0 )
   
8.       (repeat l
   
9.         (setq ename (ssname ss k))
   
10.         (setq obj (vlax-ename->vla-object ename))
    
11.         (if (= (cdr (assoc 0 (entget ename))) "MLINE")
    
12.           (setq tlen (+ tlen (ml-length ename)))
    
13.           (setq tlen (+ tlen (vlax-curve-getdistatparam ename (vlax-curve-getendparam ename))))
    
14.         )
    
15.         (setq k (1+ k))
    
16.       )
    
17.       (princ (strcat "\n共选择 " (itoa l) " 个对象 | 总长度: " (rtos tlen 2 0)))
    
18.     )
    
19.     (princ "\n未选择对象")
    
20.   )
    
21.   (setvar "cmdecho" 1)
    
22.   (prin1)
    
23. )

(defun c:TG(/ ss tlen obj k l)<br />   (setvar "cmdecho" 0)<br />   (if (setq ss (ssget))<br />     (progn<br />       (vl-load-com)<br />       (setq l (sslength ss) k 0 tlen 0 )<br />       (repeat l<br />         (setq ename (ssname ss k))<br />         (setq obj (vlax-ename->vla-object ename))<br />         (if (= (cdr (assoc 0 (entget ename))) "MLINE")<br />           (setq tlen (+ tlen (ml-length ename)))<br />           (setq tlen (+ tlen (vlax-curve-getdistatparam ename (vlax-curve-getendparam ename))))<br />         )<br />         (setq k (1+ k))<br />       )<br />       (princ (strcat "\n共选择 " (itoa l) " 个对象 | 总长度: " (rtos tlen 2 0)))<br />     )<br />     (princ "\n未选择对象")<br />   )<br />   (setvar "cmdecho" 1)<br />   (prin1)<br /> )

TimeT

试用中。。。
谢谢！！

TimeT

大侠，不好意思，我没有表述清楚。主要是统计一个封闭区域内其他多段线的数量（条数）
具体还麻烦看看图片（不会发，还麻烦移步附件），统计黄色区域内绿色多段线的数量，如果可能的会面积也如黄色文字般显示。。
不胜感激！

hlmdf

TimeT 发表于 2012-4-16 13:05
大侠，不好意思，我没有表述清楚。主要是统计一个封闭区域内其他多段线的数量（条数）
具体还麻烦看看图片 ...

呃,CAD好像没有选择封闭多义线区域图元的功能，难道要历遍所有图元判断是否在该区域内？
求高手解释下……

hlmdf

TimeT 发表于 2012-4-16 13:05
大侠，不好意思，我没有表述清楚。主要是统计一个封闭区域内其他多段线的数量（条数）
具体还麻烦看看图片 ...

标注面积：

2. (defun c:TAT(/ ss tarea obj k l)
   
3.   (setvar "cmdecho" 0)
   
4.   (if (setq ss (ssget))
   
5.     (progn
   
6.       (vl-load-com)
   
7.       (setq l (sslength ss) k 0 tarea 0 )
   
8.       (repeat l
   
9.         (setq ename (ssname ss k))
   
10.         (setq obj (vlax-ename->vla-object ename))
    
11.         (if (vlax-property-available-p obj "area")
    
12.           (setq tarea (+ (vlax-get-property obj 'area) tarea))
    
13.         )
    
14.         (setq k (1+ k))
    
15.       )
    
16.       (setq tarea (/ tarea 1000000))
    
17.       (princ (strcat "\n共选择 " (itoa l) " 个对象 | 总面积: " (rtos tarea 2 3)))
    
18.       (command "text" (getpoint "\n选取文字插入点") "" "" (rtos tarea 2 3))
    
19.     )
    
20.     (princ "\n未选择对象")
    
21.   )
    
22.   (setvar "cmdecho" 1)
    
23.   (prin1)
    
24. )

(defun c:TAT(/ ss tarea obj k l)<br />   (setvar "cmdecho" 0)<br />   (if (setq ss (ssget))<br />     (progn<br />       (vl-load-com)<br />       (setq l (sslength ss) k 0 tarea 0 )<br />       (repeat l<br />         (setq ename (ssname ss k))<br />         (setq obj (vlax-ename->vla-object ename))<br />         (if (vlax-property-available-p obj "area")<br />           (setq tarea (+ (vlax-get-property obj 'area) tarea))<br />         )<br />         (setq k (1+ k))<br />       )<br />       (setq tarea (/ tarea 1000000))<br />       (princ (strcat "\n共选择 " (itoa l) " 个对象 | 总面积: " (rtos tarea 2 3)))<br />       (command "text" (getpoint "\n选取文字插入点") "" "" (rtos tarea 2 3))<br />     )<br />     (princ "\n未选择对象")<br />   )<br />   (setvar "cmdecho" 1)<br />   (prin1)<br /> )

标注前可以先设置下textsize

TimeT

谢谢hlmdf！！
学习了。

652758365

..........................

无厘崖

各种厉害哦，学习下！