Topic: Tough Questions - Volume Lisp

[johnshar123xx]

Tough Questions - Volume Lisp


AutoCAD 2007
I have a quite a few tough questions/requests and I am currently looking for some lisps to solve them.  I have been doing some searching online to find the lisps I need, and although I have been able to find some stuff, I still have some things that I can't seem to find exactly what I am looking for.  I would like to take the opportunity ahead of time to thank every who views my questions and for any help that is given.


I am looking for a lisp that will allow me to select a closed polyline shape and have it ask the depth and have the lisp calculate the volume of the area within the closed polyline shape.  If someone wants to get really crazy, it would be really amazing to be able to select multiple closed polyline shapes within each other that have z elevations set to them for example the grading of a pond per say.  Where the lisp would be able to calculate the volume of the pond, based on the grading shapes (closed polylines) within each other and the "Z" elevations set to them.  I have included a grading drawing of a pond, for an example.

Is anyone up for the challenge?

[Matt__W]

It sounds like what you REALLY need is Civil 3D (or Map).

[Lee Mac]

What is this... a shopping list?

[Matt__W]

What is this... a shopping list?

The holidays ARE rapidly approaching!

[jromkes]

Maybe you should try to learn lisp yourself. You have a great need for it

[Matt__W]

Maybe you should try to learn lisp yourself. You have a great need for it

[Lee Mac]

Maybe you should try to learn lisp yourself. You have a great need for it

second

[SomeCallMeDave]

http://www.theswamp.org/index.php?topic=18290.msg248737#msg248737

[alanjt]

It sounds like what you REALLY need is Civil 3D (or Map).

Ditto.

[johnshar123xx]

Thanks for all the opinions, I guess.
Special thanks to David Blackmon for help with an answer.  I am currently trying to test that lisp out, as of now can't tell if it works or not.  Once I test it out more I will let everyone know how it works.
Thanks again

[JCTER]

You know... if you have closed polys at their correct Z elevation, you could just use the LOFT command, introduced in 2007, to create a solid from those cross sections, and in the properties of this new object, it'll tell ya the volume.  Pretty sure it tells you the volume there, I'm too lazy to test it.  If it doesn't show it there, I -know- it'll show it on the MASSPROP readout, amongst 103854 other stats for the object that you would never care about.

[johnshar123xx]

Another Success Story

I have been able to test out both methods given and they both have there uses and they both work great.  These are exactly what I was looking for.

Special thanks to David Blackmon for creating this lisp a while back and for being willing to share and to James Cannon for supplying the 3d method of using the LOFT command.

[ronjonp]

If you're using extrusions. this may help you:

Code: [Select]

(defun c:ext2slp (/ x y ss)
  (if (and (setq x (getdist "\nEnter height (Y value):"))
  (setq y (getdist "\nEnter slope (X value):"))
  (setq ss (ssget))
      )
    (command "._extrude" ss "" "_taper" (- (* 180. (/ (atan x) pi))) y)
  )
  (princ)
)
And this will add the volume of multiple solids:

Code: [Select]

(defun c:vol (/ ss)
  (if (setq ss (ssget '((0 . "3dsolid"))))
    (alert (strcat
     "Total Volume: "
     (rtos (apply '+
  (mapcar (function (lambda (x) (vla-get-volume x)))
  (mapcar 'vlax-ename->vla-object
  (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
  )
  )
   )
     )
   )
    )
  )
  (princ)
)