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

[=FPS=Altekerve]

Часто бывает нужно нарисовать поверхности, которые описываются в пространстве формулами.
Хоть гиперболу, хоть эллипсоид.
Очень легко рисовать параметрические меши в автокаде.

Вот пример подпрограммки, которая рисует разомкнутый цилиндр из сегментов 10x10.
Функция F(u v) возвращает точку (x y z)


(defun 3dmesh_plot()
(command "3dmesh" 10 10)
(setq i 0 j 0)
(while (< j 10)
(while (< i 10)
(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)
; это рисует цилиндр: первый в списке X, потом Y и Z коорд
(setq r 2.0)
(list (* r (cos u)) (* r (sin u)) v)
)

Сохраняем содержимое в файле, допустим, test.lsp (файл должен быть в доступном директории, например в текущем), в командной строке вводим

(load "test.lsp")

и затем

(3dmesh_plot)

Должен нарисоваться разомкнутый цилиндр. Если хотите, можете его куда-нибудь экспортировать, в 3dMax тот же.

Я специально привел упрощенную схему, чтобы понял даже самый непонятливый.