I'm looking for a lisp that would allow me to select several entities, select a point, then move all objects selected, from point selected, to an elevation of zero by the WCS.
Something along the lines of:
Move
Select Objects
Select Base Point
(automation kicks in)
Select Second Point
.z of 0,0,0
(at) @ ""
Code:
(defun c:mtz ()
(command "move"
pause
".z"
"0,0,0"
"@")
)
The pause is not working as I had hoped and I'm new enough to lisp that I'm not sure where to start with the deeper functions in autocad such as dxf data.