Hey guys I'm trying to make a lisp to automate a series of steps I do to calculate the volume contained between two surfaces.
These surfaces were generated from the TriangV0.6.7 lisp, along with their outer boundaries with the help of the XSHAPE command, also part of the same lisp.
I attach a file showing the steps I follow to obtain such a volume. I attach also what I was able to automate but it is still missing a lot and honestly it is all I understand about lisp.
I would appreciate if you can help me to automate it completely.
(defun C:volumen( / upsurf lowsurf upborder lowborder)
(PROMPT "UPPER SURFACE")
(setq upsurf (ssget))
(PROMPT "LOWER SURFACE")
(setq lowsurf (ssget))
(setq upborder (entsel "\nUpper surface border: "))
(setq lowborder (entsel "\nLower surface border: "))
(command "_copy" upsurf "" "_D" "0,0,-500")
(command "_copy" lowsurf "" "_D" "0,0,500")
(command "_move" upborder lowborder "" "_D" "0,0,-1000")
(command "_extrude" "_MO" "_SU" upborder lowborder "" "2000")
(command "_selectsimilar" upsurf "") ; (I can't use another command after selecting here)
(princ)
)