11 jun. 2008

Rutina que sirve para obtener el volumen y centroide de un sólido 3d:


;| rutina "vol_solid" sirve para medir
volumen de un solido seleccionado.
****************************************
(c)by Prexem - Victor Adolfo Bracamonte*
WWW.Prexem.BlogSpot.Com
****************************************|;
(defun c:vol_solid (/ sol vsol vol centr)
(vl-load-com)
(setq sol(car(entsel "\nseleccione un solido:"))
vsol (vlax-ename->vla-object sol)
vol (vlax-get vsol 'volume)
centr (vlax-get vsol 'centroid)
);setq
(princ "\ncentroide del solido: ")(princ centr)
(princ "\nvolumen del solido: ")(princ vol)
(princ)
);defun

No hay comentarios: