按线型统计长度,并加总!??

lincctw_ccl

请教下列序该如何修改才能使它有加总的计算?

现在可算 Continuous和hidden 的各自 线长

但我还想加个 计算 Continuous和hidden 的加总

烦请各位有空帮改下

谢谢

;;;按线型统计长度

(defun c:tt (/)

(setvar"cmdecho" 0)

(setq E0 (ssget '((0 . "LWPOLYLINE")(6. "Continuous,hidden"))))

(setqP1 (getpoint "指定统计结果写入位置："))

  (setqR1 (sslength E0))

  (setq        wl 0

             R2 0

                                             )

  (while(/= R1 R2)

    (setqE1 (ssname E0 0))

    (setqXX (CDR (assoc 6 (ENTGET E1))))

    (setqE2 (ssget "P" (list (cons 6 XX))))

    (setqiA 0)

    (repeat(sslength E2)

      (setq E3 (ssname E2 iA))

      (command"lengthen" E3 "")

      (setqwl (+ wl (getvar "perimeter")));;各类型线长

      (setqiA (+ iA 1))   

                   )            

    (setqJG (strcat XX " : " "线长 "(rtos wl 2 2) "mm"))

    (COMMAND"text" P1 3 0 JG "")

    (setqP1 (POLAR P1 (* PI 1.5) 6))

    (setqR2 (+ R2 (sslength E2)))

    (setqwl 0)

    (command"Select" E0 "R" E2 "")

    (setqE0 (ssget "_P"))

    )

             (setvar "cmdecho" 1)

             )

Andyhon

Ref Link:
http://www.lee-mac.com/totallengthandarea.html

自贡黄明儒

我也写了了一个按线型、颜色、图层统计线长的，你可以参考一下
http://bbs.mjtd.com/thread-107342-1-1.html

lincctw_ccl

自贡黄明儒 发表于 2013-9-30 11:52
我也写了了一个按线型、颜色、图层统计线长的，你可以参考一下
http://bbs.mjtd.com/thread-107342-1-1.ht ...

谢谢指点!
您的lsp太多子程序了!
我对于子程序还一知半解的!
我找时间再研究看看!

lincctw_ccl

Andyhon 发表于 2013-9-30 07:52
Ref Link:
http://www.lee-mac.com/totallengthandarea.html

谢谢指点!
我找时间再研究看看!

xyp1964

2. ;; 按线型统计长度
   
3. ;; http://yunpan.cn/QXQKsW9gAPmpF
   
4. (defun c:tt ()
   
5.   (setq        ss  (ssget '((0 . "lwpolyline") (6 . "continuous,hidden")))
   
6.         ss1 (ssget "p" '((0 . "lwpolyline") (6 . "hidden")))
   
7.         p1  (getpoint "指定统计结果写入位置: ")
   
8.         p2  (polar p1 (* pi 1.5) 500)
   
9.         ss2 (SsDiff ss ss1)
   
10.         ss1 (mapcar 'xyp-get-CurveLength (xyp-ss2list ss1))
    
11.         ss2 (mapcar 'xyp-get-CurveLength (xyp-ss2list ss2))
    
12.         l1  (apply '+ ss1)
    
13.         l2  (apply '+ ss2)
    
14.   )
    
15.   (xyp-Text 4 p1 (strcat "HIDDEN : 线长" (rtos l1 2 2)))
    
16.   (xyp-Text 4 p2 (strcat "Continuous : 线长" (rtos l2 2 2)))
    
17.   (princ)
    
18. )

;; 按线型统计长度<br /> ;; http://yunpan.cn/QXQKsW9gAPmpF<br /> (defun c:tt ()<br />   (setq        ss  (ssget '((0 . "lwpolyline") (6 . "continuous,hidden")))<br />         ss1 (ssget "p" '((0 . "lwpolyline") (6 . "hidden")))<br />         p1  (getpoint "指定统计结果写入位置: ")<br />         p2  (polar p1 (* pi 1.5) 500)<br />         ss2 (SsDiff ss ss1)<br />         ss1 (mapcar 'xyp-get-CurveLength (xyp-ss2list ss1))<br />         ss2 (mapcar 'xyp-get-CurveLength (xyp-ss2list ss2))<br />         l1  (apply '+ ss1)<br />         l2  (apply '+ ss2)<br />   )<br />   (xyp-Text 4 p1 (strcat "HIDDEN : 线长" (rtos l1 2 2)))<br />   (xyp-Text 4 p2 (strcat "Continuous : 线长" (rtos l2 2 2)))<br />   (princ)<br /> )