Volume of Solids

[William.Gares]

Hey everyone,

Anyone know of a command that can calculate volumes of 3d shapes?

Thanks for any help!

[BlackBox]

Try this:

(defun c:3DVOL (/ eName 3dObj)
  (vl-load-com)
  (if (and (setq eName (car (entsel "\n  >>  Select 3D Object for Current Volume: ")))
           (= "3DSOLID" (cdr (assoc 0 (entget eName))))
           (vlax-property-available-p
             (setq 3dObj (vlax-ename->vla-object eName))
             'volume))
    (princ
      (strcat
        "\n  <!>  3D Volume = "
        (rtos (vla-get-volume 3dObj) 2 2)
        "  <!> ")))
  (princ))

[William.Gares]

So....anyone know of another way to find the volume of 3D shapes!?

[BlackBox]

So....anyone know of another way to find the volume of 3D shapes!?

Did you try the command I provided you?

[William.Gares]

No, what exactly are you recommending I type in the command box????

[BlackBox]

No, what exactly are you recommending I type in the command box????

I've provided you a LISP routine, which when loaded into AutoCAD provides you a keyboard command that does exactly what you want.

To make this a little easier for you, I've uploaded a .LSP file that you can download, and have renamed the command from FOO (a common test function name) to 3DVOL (what you should enter at the command line shortly).

For starters, I'd like you to test the routine to make sure you understand it's use, and if you want to keep it (this is your decision), I'll gladly help you make it available to you at all times.

So to make the 3DVOL command available, open AutoCAD, and drag the downloaded file (from Windows Explorer) into your drawing area (either in Modelspace, or Paperspace, i.e., Not on a toolbar, etc.). Then enter 3DVOL at the command line and hit Enter... follow the prompts.

[William.Gares]

Ok, I drug the file from my desktop into the model space. It verified it was loaded in the command box. Once I typed "3DVOL" it prompted me to "select 3D object for current volume". Once I selected the object no other prompts were given.

[BlackBox]

Ok, I drug the file from my desktop into the model space. It verified it was loaded in the command box. Once I typed "3DVOL" it prompted me to "select 3D object for current volume". Once I selected the object no other prompts were given.

OK, that mean that either the object you selected is not a "3DSOLID" or the property test failed.

Would you be willing to post a sample drawing for the object you selected for me (save as 2007 File format)? Then I can see exactly what entity you're working with.

[William.Gares]

Sure...hope this helps. It gave me some trouble saving to 07, not sure how much of this is compatible. I am working with Civ 3D 2010.

[BlackBox]

The routine works for me, William.

I've revised the code to permit selecting multiple 3DSOLID's, and returning a Total Volume.

Enjoy!