关于图层中线段统计

TENGOMARK

各位好！

      我有一个小的问题需要大家帮忙：

有A B C D E F图层，如何选中A图层，关闭其余图层，显示出人眼看完，没有问题，按下 Y 后回车，统计出A图层上的线段（POLYLINE）长度总长与线段个数，打印在命令行，然后开放其余层。

      在此先谢了，不知哪位高手能够帮忙，当然，主要是如何只选中A层，关闭其余层，与统计长度及开放其它层。这主要的四个问题。

ZZXXQQ

下面程序将顺序改了改，先选择一个实体，再将图层设到该实体所在层，……

3. ;在龙版基础上改了改。
4. (defun C:LENOF (/ CURVE TLEN SS N SUMLEN)
5. (vl-load-com)
6. (setvar "CMDECHO" 0)
7. (if (and (setq s1 (entsel "\n选择一个实体 :"))
8.           (setq ent (entget (car s1)))) (progn
9.   (setq lnm (cdr (assoc 8 ent)))
10.   (command "layer" "s" lnm "f" "*" "")
11.   (setq yn (strcase (getstring "\n是否继续 ? Y/<N> :")))
12.   (setq SUMLEN 0)
13.   (if (and (= yn "Y") (setq ss (ssget "X" '((0 . "*POLYLINE"))))) (progn
14.    (setq n 0)
15.    (repeat (sslength SS)
16.     (setq CURVE (vlax-ename->vla-object (ssname SS N)))
17.     (setq TLEN (vlax-curve-getdistatparam
18.      CURVE
19.      (vlax-curve-getendparam CURVE)
20.      )
21.     )
22.     (setq SUMLEN (+ SUMLEN TLEN))
23.     (setq N (1+ N))
24.    )
25.    (print (strcat "总长度: " (rtos SUMLEN 2 5)))
26.   ))
27.   (command "layer" "T" "*" "")
28. ))
29. (setvar "CMDECHO" 1)
30. (princ)
31. )

;在龙版基础上改了改。 (defun C:LENOF (/ CURVE TLEN SS N SUMLEN) (vl-load-com) (setvar "CMDECHO" 0) (if (and (setq s1 (entsel "\n选择一个实体 :"))           (setq ent (entget (car s1)))) (progn   (setq lnm (cdr (assoc 8 ent)))   (command "layer" "s" lnm "f" "*" "")   (setq yn (strcase (getstring "\n是否继续 ? Y/<N> :")))   (setq SUMLEN 0)   (if (and (= yn "Y") (setq ss (ssget "X" '((0 . "*POLYLINE"))))) (progn    (setq n 0)    (repeat (sslength SS)     (setq CURVE (vlax-ename->vla-object (ssname SS N)))     (setq TLEN (vlax-curve-getdistatparam      CURVE      (vlax-curve-getendparam CURVE)      )     )     (setq SUMLEN (+ SUMLEN TLEN))     (setq N (1+ N))    )    (print (strcat "总长度: " (rtos SUMLEN 2 5)))   ))   (command "layer" "T" "*" "") )) (setvar "CMDECHO" 1) (princ) )

TENGOMARK

版主！

      非常感谢您的回复，我下了您的程序段，做了个试验，发现还有两个小问题。

1，计算出来的总长度度不对，比如我在一个层里画了20条10mm的线条，执行您的程序，总长度执行下来为327.36848，不知道问题在哪儿。

2，执行完后不能把其余层的画的东西自动解除而显现出来。

      万望版主能够继续给于帮助，

     不胜感激！！！

     在此先谢了。

龙龙仔

請提供測試圖

龙龙仔

3. (defun C:LENOF (/ CURVE ENT LNM N S1 SS SUMLEN TLEN YN)
4.   (vl-load-com)
5.   (setvar "CMDECHO" 0)
6.   (if (and (setq s1 (entsel "\n選擇一個實體 :"))
7.     (setq ent (entget (car s1)))
8.       )
9.     (progn
10.       (setq lnm (cdr (assoc 8 ent)))
11.       (command "_.layer" "s" lnm "f" "*" "")
12.       (setq yn (strcase (getstring "\n是否繼續 ? Y/<N> :")))
13.       (setq SUMLEN 0)
14.       (if
15. (and (= yn "Y")
16.       (setq ss (ssget "X" (list '(0 . "*polyline") (cons 8 lnm))))
17. )
18.   (progn
19.     (setq n 0)
20.     (repeat (sslength SS)
21.       (setq CURVE (vlax-ename->vla-object (ssname SS N)))
22.       (setq TLEN (vlax-curve-getdistatparam
23.      CURVE
24.      (vlax-curve-getendparam CURVE)
25.    )
26.       )
27.       (setq SUMLEN (+ SUMLEN TLEN))
28.       (setq N (1+ N))
29.     )
30.     (print (strcat "總長度: " (rtos SUMLEN 2 5)))
31.   )
32.       )
33.     )
34.   )
35.   (command "_.undo" 1)
36.   (setvar "CMDECHO" 1)
37.   (princ)
38. )

(defun C:LENOF (/ CURVE ENT LNM N S1 SS SUMLEN TLEN YN)   (vl-load-com)   (setvar "CMDECHO" 0)   (if (and (setq s1 (entsel "\n選擇一個實體 :"))     (setq ent (entget (car s1)))       )     (progn       (setq lnm (cdr (assoc 8 ent)))       (command "_.layer" "s" lnm "f" "*" "")       (setq yn (strcase (getstring "\n是否繼續 ? Y/<N> :")))       (setq SUMLEN 0)       (if (and (= yn "Y")       (setq ss (ssget "X" (list '(0 . "*polyline") (cons 8 lnm)))) )   (progn     (setq n 0)     (repeat (sslength SS)       (setq CURVE (vlax-ename->vla-object (ssname SS N)))       (setq TLEN (vlax-curve-getdistatparam      CURVE      (vlax-curve-getendparam CURVE)    )       )       (setq SUMLEN (+ SUMLEN TLEN))       (setq N (1+ N))     )     (print (strcat "總長度: " (rtos SUMLEN 2 5)))   )       )     )   )   (command "_.undo" 1)   (setvar "CMDECHO" 1)   (princ) )

TENGOMARK

超级版主：您好！

    非常感谢版主的指点，这次版主提供的程序非常好用，经过试验，已经满足要求了。

看来明经网英才辈出！

    我开发的几个程序在工作上有的已经用上，并且已经大大提高了效率，有的将要用上，从学习开始到程序的实用，花费了4个多月的时间，几个百思不得的问题，在明经网的帮助与指点下，一一化解，大大缩短了整个进程！

    从内心深深地、深深地感谢明经网！

    明经网将是我的铁杆网站！