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