[LISP函数]：曲線選集面積求和

taner

[PHP](defun th-getobjareaofss (ss / ss ssv areas)
  (if (= nil ss)
    (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))
  )
  (setq ssv (vla-get-activeselectionset
                                        (vla-get-activedocument
                                                                (vlax-get-acad-object)
                                        )
            )
        areas 0
  )
  (vlax-for obj ssv (setq areas (+ areas (vlax-curve-getarea obj))))
)

[/PHP]

eachy

这个没必要用 ActiveX，使用 Autolisp 中的 Vlax-curve-getarea 即可

2. 
   
3. (defun xdl-ss-area (ss / area ssl i)
   
4.   (if (or (= (type ss) 'PICKSET)
   
5.           (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))
   
6.       )
   
7.     (progn
   
8.       (setq area 0.
   
9.             ssl         (sslength ss)
   
10.             i         -1
    
11.       )
    
12.       (repeat ssl
    
13.         (setq area
    
14.                (+ area (vlax-curve-getarea (ssname ss (setq i (1+ i)))))
    
15.         )
    
16.       )
    
17.     )
    
18.   )
    
19.   area
    
20. )

<br /> (defun xdl-ss-area (ss / area ssl i)<br />   (if (or (= (type ss) 'PICKSET)<br />           (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))<br />       )<br />     (progn<br />       (setq area 0.<br />             ssl         (sslength ss)<br />             i         -1<br />       )<br />       (repeat ssl<br />         (setq area<br />                (+ area (vlax-curve-getarea (ssname ss (setq i (1+ i)))))<br />         )<br />       )<br />     )<br />   )<br />   area<br /> )