[求助]请帮忙，怎么把得到的结果相加？

psufngah

(vl-load-com)
(princ "\n请选择物体:")
(setq ss (ssget))
(setq m 0 n (sslength ss))
(while (> m n)
  (setq en (ssname ss m) ent en)
(setq f (vlax-ename->vla-object ent))
(vla-get-Length f)
  (setq m (+ m 1)))
。。。。。。。

这是计算周长的，

如果有多个物体，怎么把每一次得到的结果加起来？DX帮忙啊

xgr

用循环把选择集的每个实体的周长计算一遍，用累加得到周长的总和。

psufngah

现在己经可以循环计算每个物体的周长了，但怎么才能相加得总和？

xgr

以多段线为例，选取图中多段线，取得总周长

(defun c:zc (/ ss zl f)
  (vl-load-com)
  (princ "\n请选择物体:")
  (setq ss (ssget))
  (setq zl 0);实体的总周长
  (while (setq en  (ssname ss 0))
    (setq f (vla-get-Length(vlax-ename->vla-object en)));单个实体周长
    (setq ss (ssdel en ss))
    (setq zl(+ zl f))
  )
  (alert (strcat "所选实体的总周长为：" (rtos zl 2 3) "m!"))
  (print)
)

psufngah

多谢，我的那个循环条件搞錯了。

zml84

(vl-load-com)
(defun C:TT (/ SS ZL I L)
    (princ "\n请选择对象...")
    (if    (setq SS (ssget '((0 . "*LINE"))))
    (progn
        ;;实体的总周长
        (setq ZL 0
          I  0
        )
        (repeat (sslength SS)
        ;;单个实体周长
        (setq L    (vla-get-length
                (vlax-ename->vla-object (ssname SS I))
            )
        )
        (setq ZL (+ ZL L)
              I     (1+ I)
        )
        )
        (alert
        (princ (strcat "所选实体的总长度为：" (rtos ZL 2 3))
        )
        )
    )
    )
    (print)
)

psufngah

xgr发表于2007-10-7 4:30:00以多段线为例，选取图中多段线，取得总周长(defun c:zc (/ ss zl f)  (vl-load-com)  (princ \"\n请选择物体:\")  (setq ss (ssget))  (setq zl 0);实体的总周长  (w

如果图档中有圆和多段线，要一次性选择，怎么计算圆的周长？有没有办法选一次，得出二个选集？圆的选集单独计算，另一个就用现在这个代码就可以了，不知能不能搞定？

xgr

;;;自动全图选择多段线、直线、园的总长度统计！

(defun c:zc (/ ss en ddx_zl zx_zl yuan_zl f1 f2 f3)
  (vl-load-com)
  (princ "\n自动全图选择多段线、直线、园的总长度统计！:")
  (setq ss (ssget "x"
    '((-4 . "<OR")
      (-4 . "<AND")
      (0 . "LWPOLYLINE")
      (-4 . "AND>")
      (-4 . "<AND")
      (0 . "POLYLINE")
      (-4 . "AND>")
      (-4 . "<AND")
      (0 . "CIRCLE")
      (-4 . "AND>")
      (-4 . "<AND")
      (0 . "LINE")
      (-4 . "AND>")
      (-4 . "OR>")
     )
    )
  )
  (setq ddx_zl 0)   ;多段线的总长
  (setq zx_zl 0)   ;直线的总长
  (setq yuan_zl 0)   ;圆的总周长
  (while (setq en (ssname ss 0))
    (setq st_style (cdr (assoc 0 (entget en))))
    (cond ((or
      (= st_style "LWPOLYLINE")
      (= st_style "POLYLINE")
    )
    (setq f1 (vla-get-Length (vlax-ename->vla-object en)))
    (setq ddx_zl (+ ddx_zl f1))
   )
   ((= st_style "LINE")
    (setq f2 (vla-get-Length (vlax-ename->vla-object en)))
    (setq zx_zl (+ zx_zl f2))
   )
   ((= st_style "CIRCLE")
    (setq f3 (* (cdr (assoc 40 (entget en))) 2 pi))
    (setq yuan_zl (+ yuan_zl f3))
   )
    )
    (setq ss (ssdel en ss))
  )
  (alert (strcat "图中实体统计："
   "\n多段线总长"
   (rtos ddx_zl 2 3)
   "\n直线总长："
   (rtos zx_zl 2 3)
   "\n圆总周长："
   (rtos yuan_zl 2 3)
  )
  )
  (princ)
)

zml84

6楼代码改进后：通吃的

2. [lisp]
3. ;;;功能：练习 获取对象长度信息
4. (vl-load-com)
5. (defun C:TT (/ SS SUM I OBJ TMP LEN)
6. &#160;&#160;&#160; (princ "\n请选择对象...")
7. &#160;&#160;&#160; (if (setq SS (ssget))
8. &#160;(progn
9. &#160;&#160;&#160;&#160; ;;初始化
10. &#160;&#160;&#160;&#160; (setq SUM 0
11. &#160;&#160; I 0
12. &#160;&#160;&#160;&#160; )
13. &#160;&#160;&#160;&#160; ;;逐个对象进行量取
14. &#160;&#160;&#160;&#160; (repeat (sslength SS)
15. &#160;(setq OBJ (vlax-ename->vla-object (ssname SS I)))
16. &#160;(if (setq TMP (vlax-curve-getendparam OBJ))
17. &#160;&#160;&#160;&#160; (setq LEN (vlax-curve-getdistatparam OBJ TMP)
18. &#160;&#160; SUM (+ SUM LEN)
19. &#160;&#160;&#160;&#160; )
20. &#160;&#160;&#160;&#160; (princ (strcat "\n第" (itoa (1+ I)) "个对象被舍弃。")
21. &#160;&#160;&#160;&#160; )
22. &#160;)
23. &#160;(setq I (1+ I))
24. &#160;&#160;&#160;&#160; )
25. &#160;&#160;&#160;&#160; ;;显示结果
26. &#160;&#160;&#160;&#160; (if (= SUM 0)
27. &#160;(princ "\n没有量取到长度。")
28. &#160;(alert
29. &#160;&#160;&#160;&#160; (princ (strcat "所选实体的总长度为：" (rtos SUM 2 3))
30. &#160;&#160;&#160;&#160; )
31. &#160;)
32. &#160;&#160;&#160;&#160; )
33. &#160;)
34. &#160;&#160;&#160; )
35. &#160;&#160;&#160; (princ)
36. )
37. &#160;;|;;
38. 后记：上面代码的精髓在于：
39. &#160;&#160;&#160;&#160; (setq LEN (vlax-curve-getdistatparam OBJ (vlax-curve-getendparam OBJ)))
40. &#160;&#160;&#160;&#160; 请与下句对比便知：
41. &#160;&#160;&#160;&#160; (setq LEN vla-get-Length OBJ)
42. ;;|;
43. [/lisp]
45. [[i] 本帖最后由 zml84 于 2007-10-9 09:48 编辑 [/i]]

[lisp] ;;;功能：练习 获取对象长度信息 (vl-load-com) (defun C:TT (/ SS SUM I OBJ TMP LEN) &#160;&#160;&#160; (princ "\n请选择对象...") &#160;&#160;&#160; (if (setq SS (ssget)) &#160;(progn &#160;&#160;&#160;&#160; ;;初始化 &#160;&#160;&#160;&#160; (setq SUM 0 &#160;&#160; I 0 &#160;&#160;&#160;&#160; ) &#160;&#160;&#160;&#160; ;;逐个对象进行量取 &#160;&#160;&#160;&#160; (repeat (sslength SS) &#160;(setq OBJ (vlax-ename->vla-object (ssname SS I))) &#160;(if (setq TMP (vlax-curve-getendparam OBJ)) &#160;&#160;&#160;&#160; (setq LEN (vlax-curve-getdistatparam OBJ TMP) &#160;&#160; SUM (+ SUM LEN) &#160;&#160;&#160;&#160; ) &#160;&#160;&#160;&#160; (princ (strcat "\n第" (itoa (1+ I)) "个对象被舍弃。") &#160;&#160;&#160;&#160; ) &#160;) &#160;(setq I (1+ I)) &#160;&#160;&#160;&#160; ) &#160;&#160;&#160;&#160; ;;显示结果 &#160;&#160;&#160;&#160; (if (= SUM 0) &#160;(princ "\n没有量取到长度。") &#160;(alert &#160;&#160;&#160;&#160; (princ (strcat "所选实体的总长度为：" (rtos SUM 2 3)) &#160;&#160;&#160;&#160; ) &#160;) &#160;&#160;&#160;&#160; ) &#160;) &#160;&#160;&#160; ) &#160;&#160;&#160; (princ) ) &#160;;|;; 后记：上面代码的精髓在于： &#160;&#160;&#160;&#160; (setq LEN (vlax-curve-getdistatparam OBJ (vlax-curve-getendparam OBJ))) &#160;&#160;&#160;&#160; 请与下句对比便知： &#160;&#160;&#160;&#160; (setq LEN vla-get-Length OBJ) ;;|; [/lisp] [[i] 本帖最后由 zml84 于 2007-10-9 09:48 编辑 [/i]]

露水2

结果放于表

apply '+ lst

起总和