求大神 怎么改才能选中一下全部图形各自 算出线段的周长 和 封闭图形的面积

helenkatha

(defun c:LL ();(/ ll i en ss endata)
        (setvar "cmdecho" 1)
        (setq ss (ssget (list '(0 . "spline,arc,line,ellipse,LWPOLYLIN,polyline,lwpolyline"))))
        (ll ss)
         (princ "所选线条总长为：")(princ ll1)
          (princ)
)


(defun ll (ss / i en endata dd)
   (setq i 0)
        (setq ll1 0)
        (repeat (sslength ss)
                  (setq en (ssname ss i))
                  ;(setq endata (entget en))
                  (command "lengthen" en "")
                  (setq dd (getvar "perimeter"))
                (setq ll1 (+ dd ll1))
                  (setq i (1+ i))
        )
  ll1
  )


(defun c:LL1 ();(/ ll i en ss endata)
        (setvar "cmdecho" 1)
        (setq ss (ssget (list '(0 . "spline,arc,line,ellipse,LWPOLYLIN,polyline,lwpolyline"))))
        (setq ll 0)
        (setq ct 0)
        (setq ssl (sslength ss))   (princ ssl)
        (while (< ct ssl)
                (princ ct)
                (setq en (ssname ss ct))
                  ;(setq endata (entget en))        
                  (command "area" "o" en )
                  (setq dd (getvar "area"))
                (setq ll (+ dd ll))
                  (setq ct (1+ ct))
        )
         (princ "所选面积总和为：")(princ (/ ll 1000000) )
          (princ)
)
现在算面积会提示
需要点或上一个(L)
; 错误: 函数被取消

st788796

(apply '+ (mapcar 'car (mapcar 'xdrx_curve_getarea (xdrx_pickset->ents (ssget '((0 . "*line,arc,ellipse")))))))

zxq0220

2. (defun c:L1 ()
   
3. (setvar "cmdecho" 1)
   
4. (setq ss (ssget (list '(0 . "ARC,CIRCLE,ELLIPSE,*LINE"))))
   
5. (setq ll 0 ct 0)
   
6. (repeat (sslength ss)
   
7.   (setq en (ssname ss ct))
   
8.   (command "AREA" "o" en)
   
9.   (if (> (getvar "CMDACTIVE") 0)
   
10.    (progn (command "") (setq dd 0))
    
11.    (setq dd (getvar "AREA"))
    
12.   )
    
13.   (setq ll (+ dd ll))
    
14.   (setq ct (1+ ct))
    
15. )
    
16. (princ (/ ll 1000000) )
    
17. (princ)
    
18. )
    

(defun c:L1 ()<br /> (setvar "cmdecho" 1)<br /> (setq ss (ssget (list '(0 . "ARC,CIRCLE,ELLIPSE,*LINE"))))<br /> (setq ll 0 ct 0)<br /> (repeat (sslength ss)<br />   (setq en (ssname ss ct))<br />   (command "AREA" "o" en)<br />   (if (> (getvar "CMDACTIVE") 0)<br />    (progn (command "") (setq dd 0))<br />    (setq dd (getvar "AREA"))<br />   )<br />   (setq ll (+ dd ll))<br />   (setq ct (1+ ct))<br /> )<br /> (princ (/ ll 1000000) )<br /> (princ)<br /> )<br />

st788796

(apply 'mapcar (cons '+ (mapcar 'xdrx_curve_getarea (xdrx_pickset->ents (ssget '((0 . "*line,arc,ellipse")))))))
面积和周长都有了

st788796

应该是 xdrx_getarea

1. (defun c:tt (/ ss lst)
   
2.   (if (setq ss (ssget '((0 . "*line,ellipse,arc"))))
   
3.     (progn
   
4.       (setq
   
5.         lst (apply
   
6.               'mapcar
   
7.               (cons '+ (mapcar 'xdrx_getarea (xdrx_pickset->ents ss)))
   
8.             )
   
9.       )
   
10.       (princ "\n Totle Area = ")
    
11.       (princ (car lst))
    
12.       (princ "\n Totle Length = ")
    
13.       (princ (cadr lst))
    
14.     )
    
15.   )
    
16.   (princ)
    
17. )

(defun c:tt (/ ss lst)<br />   (if (setq ss (ssget '((0 . "*line,ellipse,arc"))))<br />     (progn<br />       (setq<br />         lst (apply<br />               'mapcar<br />               (cons '+ (mapcar 'xdrx_getarea (xdrx_pickset->ents ss)))<br />             )<br />       )<br />       (princ "\n Totle Area = ")<br />       (princ (car lst))<br />       (princ "\n Totle Length = ")<br />       (princ (cadr lst))<br />     )<br />   )<br />   (princ)<br /> )