dibujando en 3D

El dibujo 3D a través de AutoCAD se puede efectuar de dos formas: a través de las herramientas que disponemos en el tablero o bien a través de la programación VisualLisp.

El potencial de VisualLisp es muy grande. Es posible obtener una serie de puntos a partir de cálculos matemáticos con programas externos al AutoCAD, para luego representarlos gráficamente.
El desarrollo del programa es un tanto complejo y es difícil encontrar tutoriales que sean de fácil comprensión, más aún el usuario no esté familiarizado con la programación.

He encontrado un ejemplo de programa muy sencillo:

;dibuja una linea entre dos puntos PT1 y PT2, también dibuja un cubo
(DEFUN c:dibcub (\PT1 PT2)
(setq PT1 (list 0 0 0))
(setq PT2 (list 1 1 1))
(command "_LINE" PT1 PT2 "")
(command "_BOX" PT1 PT2 "")
 )


;;;;;;;;;;;;Rutina para dibujar tres líneas desde un punto.

(DEFUN c:dib_lineas ( / pt1 pt2 pt3 pt4)
;(DEFUN c:dib_lineas ()
(PROMPT "\nEste programa dibuja tres línas desde un punto")
(SETQ pt1 (GETPOINT "\nPrimer punto: "))
(SETQ pt2 (GETPOINT "\nSegundo punto: "))
(COMMAND "_line" pt1 pt2 "")
(SETQ pt3 (GETPOINT "\nTercer punto: "))
(COMMAND "_line" pt1 pt3 "")
(SETQ pt4 (GETPOINT "\nCuarto punto: "))
(COMMAND "_line" pt1 pt4 "")