total area of 3d solid

[ayman_48]

hi guys

is there lisp routines can calculate total area of 3d solid box

[MSasu]

The built-in AREA command with Object option will give you the area of 3D solids.

[Tharwat]

maybe ....

(defun c:Test (/ val ss i sn)
 (if (setq val 0
           ss  (ssget '((0 . "3DSOLID")))
     )
   (repeat (setq i (sslength ss))
     (setq sn (ssname ss (setq i (1- i))))
     (command "_.area" "" (entlast))
     (setq val (+ (getvar 'area) val))
   )
 )
 (if (not (zerop val))
   (print val)
 )
 (princ)
)

[ayman_48]

the built-in area command with object option will give you the area of 3d solids.

than's for quick reply but i need to choose multiple object

[ayman_48]

maybe ....

(defun c:test (/ val ss i sn)
 (if (setq val 0
           ss  (ssget '((0 . "3dsolid")))
     )
   (repeat (setq i (sslength ss))
     (setq sn (ssname ss (setq i (1- i))))
     (command "_.area" "" (entlast))
     (setq val (+ (getvar 'area) val))
   )
 )
 (if (not (zerop val))
   (print val)
 )
 (princ)
)

 

thank's very much this working good

[marko_ribar]

I think it's not working at all so good... :

 

(defun c:Test (/ val ss i sn)
 (if (setq val 0
           ss  (ssget '((0 . "3DSOLID")))
     )
   (repeat (setq i (sslength ss))
     (setq sn (ssname ss (setq i (1- i))))
     [color=red](command "_.area" "o" sn)[/color]
     (setq val (+ (getvar 'area) val))
   )
 )
 (if (not (zerop val))
   (print val)
 )
 (princ)
)

 

M.R.

[Tharwat]

thank's very much this working good

 

You're welcome .

 

But the modification by marko is correct , so please use the one he modified This one

 

 

Thank you marko for your modifications

 

Thanks

[ayman_48]

thanks makro for modification also thanks to tharwat

[pBe]

A single call to "Area" command would be enough

 

(defun c:Test2 (/ ss i)
 (if (setq ss (ssget '((0 . "3DSOLID"))))
   (progn
     (command "_.area" "_Add" "_O")
     (repeat (setq i (sslength ss))
(command (ssname ss (setq i (1- i))))
     )
     (command "" "")
     (print (getvar 'Area))
   )
 )
 (princ)
)

[cadcondesign1]

On 4/19/2012 at 4:10 AM, Tharwat said:

 

You're welcome .

 

But the modification by marko is correct , so please use the one he modified This one

 

 

Thank you marko for your modifications

 

Thanks

any way to export this to excel?