如何计算多个物体的周长总和

cooltl18

如何利用LISP来统计选取物体的总周长，请大侠们帮助！

tcsl9621

先将所选的对像按类型分开分别求出周长再相加。

Andyhon

visit Site: http://www.menziengineering.ch/Downloads/Download.htm#19
and search 'VxGetObjLength'

rongyifei

分别提取图元的长度属性(如Arc为arclength;  line,polyline,lightweightpolyline为length;   cirlce为Circumference等等),然后相加!

szliaolj

明总那里有一个LSP,很造合你

(defun c:abk ()
(setvar "cmdecho" 0)
(command "layer" "S" "0" "")
(setq p  (/ pi 2.0)
      g (+ pi p))
   (setq aa (ssget))
  (setq i 0)
   (setq ab (ssadd))
   (repeat (sslength aa)
    (setq aab (ssname aa i))
     (setq bb (cdr (assoc 0 (entget aab))))
     (cond ((= bb "LINE")
           (setq pd (list aab (cdr (assoc 10 (entget aab)))))
     ))
     (cond ((= bb "CIRCLE")
           (setq pd (list aab (cdr (assoc 10 (entget aab)))))
     ))
     (cond ((= bb "ARC")
           (setq pd (list aab (cdr (assoc 10 (entget aab)))))
     ))   
(cond ((= i 0)
(setq j 0)
(cond ((= j 0)
(cond ((/= bb "LINE")
(setq aad 0)))
(cond ((/= bb "CIRCLE")
(setq bad 0)))
(cond ((/= bb "ARC")
(setq cad 0)))))))
(setq j (+ j 1))
(cond ((= bb "LINE")
(setq st (cdr (assoc 11 (entget aab))))
(setq qed (cdr (assoc 10 (entget aab))))
(setq ad (distance st qed))
(cond ((= i 0)
(setq aad ad)))
(cond ((>= i 1)
(setq aad (+ ad aad))))
))           
(cond ((= bb "CIRCLE")
  (setq aeed (cdr (assoc 40 (entget aab))))
  (setq ad (* aeed pi 2.0))
(cond ((= i 0)
(setq bad ad)))
(cond ((>= i 1)
(setq bad (+ ad bad))))
))
(cond ((= bb "ARC")
  (setq ast (cdr (assoc 50 (entget aab))))
  (setq sst (cdr (assoc 51 (entget aab))))
  (setq beed (cdr (assoc 40 (entget aab))))
(cond ((>= ast 0)
(cond ((< ast p)
(cond ((> ast sst)
(cond ((>= (* pi 2.0))
(setq xb (- ast sst))))
(cond ((> sst 0)
(setq xb1 (- p ast))
(setq xb (+ g xb1 sst))))))
(cond ((< ast sst)
(cond ((>= sst 0)
(setq xb1 (- p ast))
(setq xb (+ pi xb1 sst))))
(cond ((< sst (* pi 2.0))
(cond ((< sst p)
(setq xb (- sst ast))))
(cond ((< sst pi)
(setq xb1 (- p ast))
(setq xb2 (- sst p))
(setq xb (+ xb1 xb2))))
(cond ((< sst g)
(setq xb1 (- p ast))
(setq xb2 (- sst pi))
(setq xb (+ xb1 xb2 p))))
(cond ((< sst (* pi 2.0))
(setq xb1 (- p ast))
(setq xb2 (- sst g))
(setq xb (+ xb1 xb2 pi))))
))
))
))))
(cond ((>= ast p)
(cond ((< ast pi)
(cond ((> ast sst)
(cond ((<= sst p)
(setq xb1 (- ast p))
(setq xb2 (- p sst))
(setq xb (- (* pi 2.0)xb1 xb2))))
(cond ((> sst p)
(setq xb (- (* pi 2.0)(- ast sst)))))))
(cond ((< ast sst)
(setq xb (- sst ast))))
))))

(cond ((>= ast pi)
(cond ((< ast g)
(cond ((> ast sst)
(cond ((> sst 0)
(setq xb2 sst)
(setq xb1 (- g ast))
(setq xb (+ xb1 xb2 p))))
(cond ((>= sst p)
(setq xb1 (- ast pi))
(setq xb2 (- pi sst))
(setq xb (- (* pi 2.0) xb1 xb2))))
(cond ((>= sst pi)
(setq xb1 (- g ast))
(setq xb2 (- sst pi))
(setq xb (+ g xb1 xb2))))
(cond ((> sst g)
(setq xb1 (- sst pi))
(setq xb2 (- g ast))
(setq xb (+ xb1 xb2 g))))
))
(cond ((< ast sst)
(setq xb (- sst ast))))
))))
(cond ((>= ast g)
(cond ((< ast (* pi 2.0))
(cond ((> ast sst)
(cond ((>= sst g)
(setq xb1 sst)
(setq xb2 (- (* pi 2.0)ast))
(setq xb (+ xb1 xb2))))
(cond ((< sst g)
(setq xb1 (- sst g))
(setq xb2 (- (* pi 2.0)ast))
(setq xb (+ g xb1 xb2))))
))
(cond ((< ast sst)
(setq xb (- sst ast))))
))))
(setq ad (* beed xb))
(cond ((= i 0)
(setq cad ad)))
(cond ((>= i 1)
(setq cad (+ ad cad))))
))
  (setq i (+ 1 i)))
(setq aaad (+ aad bad cad))
(setq ai aaad)
(setq aai (rtos ai 2 4))
(setq abi "<")
(setq aci ">")
(setq adi "线段总长为:")
(princ (strcat adi abi aai aci))
(command "pickbox" 3)
(princ)
)

hb_xiaofen

命令名称gl

hb_xiaofen

只要你选择的物体有长度,就能计算,PLINE,ARC CIRCLE 椭圆,SPLINE可以一起选,

修改了好了，程序只选择有以上几种对象，如果选择了其它对象自动过滤掉）

rongyifei

六楼的程序写得很简洁,也符合要求,支持!

TANER

2. (defun th-curveslength-ss (ss / ss ssv lens)
3.   (if (= nil ss)
4.     (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))
5.   )
6.   (setq ssv (vla-get-activeselectionset (vla-get-activedocument
7.         (vlax-get-acad-object)
8.      )
9.      )
10. lens 0
11.   )
12.   (vlax-for obj ssv (setq lens (+ lens (vlax-curve-getdistatparam obj
13.           (vlax-curve-getendparam obj)
14.            )
15.           )
16.       )
17.   )
18. )

(defun th-curveslength-ss (ss / ss ssv lens)   (if (= nil ss)     (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))   )   (setq ssv (vla-get-activeselectionset (vla-get-activedocument         (vlax-get-acad-object)      )      ) lens 0   )   (vlax-for obj ssv (setq lens (+ lens (vlax-curve-getdistatparam obj           (vlax-curve-getendparam obj)            )           )       )   ) )

cqlangzi

请问大哥呀  这个GL程序放到哪个启动组呀？