(defun c:PRYANIK ( / old_osnap)
;; Отключаем привязки
(setq old_osnap (getvar "OSMODE"))
(setvar "OSMODE" 0)
;; Переключаем вид в 3D изометрию и включаем концептуальный визуальный стиль
(command "_.VPOINT" "-1,-1,1")
(command "_.SHADEMODE" "_C")
;; --- 1. ИНЖЕНЕРНАЯ ЛАДОШКА (Кубическая) ---
(command "_.COLOR" "43") ; Бежевый цвет (кожа)
(command "_.BOX" "-30,-40,-10" "30,40,0") ; Сама ладонь
(command "_.BOX" "-25,40,-10" "-10,70,0") ; Указательный палец
(command "_.BOX" "-5,40,-10" "10,75,0") ; Средний палец
(command "_.BOX" "15,40,-10" "30,65,0") ; Безымянный палец
(command "_.BOX" "30,-10,-10" "55,20,0") ; Большой палец
;; --- 2. ПРЯНИК (Основа) ---
(command "_.COLOR" "34") ; Коричневый цвет (тесто)
;; Рисуем цилиндр по центру ладони
(command "_.CYLINDER" "0,0,0" "22" "6")
;; --- 3. РОЗОВАЯ ГЛАЗУРЬ ---
(command "_.COLOR" "211") ; Розовый цвет глазури
;; Цилиндр чуть меньшего радиуса поверх пряника
(command "_.CYLINDER" "0,0,6" "20" "2")
;; --- 4. 3D ПОСЫПКА ---
;; Разбрасываем мелкие цилиндрики разных цветов по глазури
(command "_.COLOR" "1") (command "_.CYLINDER" "5,5,8" "1" "1.5")
(command "_.COLOR" "2") (command "_.CYLINDER" "-10,8,8" "1" "1.5")
(command "_.COLOR" "3") (command "_.CYLINDER" "12,-5,8" "1" "1.5")
(command "_.COLOR" "4") (command "_.CYLINDER" "-5,-12,8" "1" "1.5")
(command "_.COLOR" "5") (command "_.CYLINDER" "0,14,8" "1" "1.5")
(command "_.COLOR" "6") (command "_.CYLINDER" "10,10,8" "1" "1.5")
(command "_.COLOR" "7") (command "_.CYLINDER" "-12,-2,8" "1" "1.5")
(command "_.COLOR" "1") (command "_.CYLINDER" "0,0,8" "1" "1.5")
(command "_.COLOR" "3") (command "_.CYLINDER" "15,4,8" "1" "1.5")
(command "_.COLOR" "2") (command "_.CYLINDER" "-4,10,8" "1" "1.5")
;; Возвращаем настройки цвета на "По слою" и включаем привязки обратно
(command "_.COLOR" "_BYLAYER")
(setvar "OSMODE" old_osnap)
(princ "\nИнженерный 3D-пряник на ладошке успешно испечён! Вызови команду PRYANIK для повтора.")
(princ)
)
(c:PRYANIK)