Autolisp

https://autocadtips.wordpress.com/2012/02/28/autolisp-align-viewports-vertically/

AutoLISP: Align Viewports Vertically Link to This routine compliments the previous routine quite nicely. But this time it aligns viewports vertically. The same tip that I mentioned in the previous tip applies here as well. If you need...

Split a point into 3 variables:

(defun splitpoint (punt point / )
(set (read (strcat punt "x")) (car point))
(set (read (strcat punt "y")) (cadr point))
(set (read (strcat punt "z")) (caddr point))
) ; end defun

(splitpoint "pt" (list 0.0 20.0 40.0)) => creates ptx=0.0, pty=20.0 and ptz=40.0.

Uitslag van een afgeknotte kegel.