Рисование параметрических поверхностей в автокаде

[=FPS=Altekerve]

Вот, например, заменим функцию F:


(defun 3dmesh_plot()
(command "3dmesh" 6 11)
(setq i 0 j 0)
(while (< j 6)
(while (< i 11)
(setq u (* (/ pi 5) i) v j)
(setq pt (F u v))
(command pt)
(setq i (1+ i))
)
(setq j (1+ j) i 0)
)
)

(defun F(u v)
(list (* (- 10 (* 0.9 v)) (cos u)) (* (- 10 (* 0.2 v)) (sin u)) (* v 10))
)

Получим вот такую секцию фюзеляжа: