---

(defun c:PRYANIK2 ( / old_osnap)
  (setq old_osnap (getvar "OSMODE"))
  (setvar "OSMODE" 0)

  ;; 1. Настройка вида (Изометрия и Концептуальный стиль)
  (command "_.VPOINT" '(1 -1 1))
  (command "_.VSCURRENT" "_C")

  ;; 2. Создаем ладошку (из параллелепипедов)
  (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))  ; Большой

  ;; 3. Пряник (Цилиндр)
  (command "_.COLOR" "34") ; Коричневый
  (command "_.CYLINDER" '(0 0 0) 22 6)

  ;; 4. Розовая глазурь
  (command "_.COLOR" "211") ; Розовый
  (command "_.CYLINDER" '(0 0 6) 20 2)

  ;; 5. Посыпка 
  (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Пряник на ладони готов! Покрути камеру (Зажми Shift + Колесико мыши).")
  (princ)
)
(c:PRYANIK2)