lincctw_ccl 发表于 2013-9-29 22:17:47

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

本帖最后由 lincctw_ccl 于 2013-9-29 22:26 编辑

请教下列序该如何修改才能使它有加总的计算?现在可算 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 发表于 2013-9-30 07:52:44

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

自贡黄明儒 发表于 2013-9-30 11:52:14

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

lincctw_ccl 发表于 2013-9-30 19:25:35

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

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

lincctw_ccl 发表于 2013-9-30 19:26:49

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

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

xyp1964 发表于 2013-10-1 12:55:34

;; 按线型统计长度
;; http://yunpan.cn/QXQKsW9gAPmpF
(defun c:tt ()
(setq        ss(ssget '((0 . "lwpolyline") (6 . "continuous,hidden")))
        ss1 (ssget "p" '((0 . "lwpolyline") (6 . "hidden")))
        p1(getpoint "指定统计结果写入位置: ")
        p2(polar p1 (* pi 1.5) 500)
        ss2 (SsDiff ss ss1)
        ss1 (mapcar 'xyp-get-CurveLength (xyp-ss2list ss1))
        ss2 (mapcar 'xyp-get-CurveLength (xyp-ss2list ss2))
        l1(apply '+ ss1)
        l2(apply '+ ss2)
)
(xyp-Text 4 p1 (strcat "HIDDEN : 线长" (rtos l1 2 2)))
(xyp-Text 4 p2 (strcat "Continuous : 线长" (rtos l2 2 2)))
(princ)
)
页: [1]
查看完整版本: 按线型统计长度,并加总!??