---

(defun c:DrawSkoba ( / old_osmode )
;; STREAMING_CHUNK:Сохранение настроек привязки...
(setq old_osmode (getvar "OSMODE"))
(setvar "OSMODE" 0) ; Отключаем привязки, чтобы линии строились точно по координатам
;; STREAMING_CHUNK:Построение ВИДА СПЕРЕДИ (Главный вид)...
(command "_COLOR" "BYLAYER")
;; Нижняя и правая грани
(command "_LINE" "0,0" "66,0" "")
(command "_LINE" "66,0" "66,32" "")
;; Верхняя часть вертикальной стенки
(command "_LINE" "66,32" "61,32" "")
(command "_LINE" "61,32" "61,10" "")
;; Внутреннее скругление R5
(command "_ARC" "_C" "56,10" "56,5" "61,10")
;; Горизонтальная полка и левый толстый блок
(command "_LINE" "56,5" "24,5" "")
(command "_LINE" "24,5" "24,10" "")
(command "_LINE" "24,10" "0,10" "")
(command "_LINE" "0,10" "0,0" "")
;; Невидимые линии отверстий (Зеленый цвет)
(command "_COLOR" "3")
(command "_LINE" "34,0" "34,5" "")
(command "_LINE" "38,0" "38,5" "")
(command "_LINE" "47,0" "47,5" "")
(command "_LINE" "51,0" "51,5" "")
;; Невидимая линия глубины паза
(command "_LINE" "61,17" "66,17" "")
;; Осевые линии (Красный цвет)
(command "_COLOR" "1")
(command "_LINE" "36,-2" "36,7" "")
(command "_LINE" "49,-2" "49,7" "")
(command "_LINE" "63.5,34" "63.5,15" "")
;; STREAMING_CHUNK:Построение ВИДА СВЕРХУ...
(command "_COLOR" "BYLAYER")
;; Внешний контур и линии излома
(command "_LINE" "0,-20" "61,-20" "")
(command "_LINE" "0,-48" "61,-48" "")
(command "_LINE" "0,-20" "0,-48" "")
(command "_LINE" "24,-20" "24,-48" "") ;; Линия ступеньки
(command "_LINE" "56,-20" "56,-48" "") ;; Линия начала скругления
;; Участки вертикальной стенки (разорваны пазом)
(command "_LINE" "61,-20" "61,-29" "")
(command "_LINE" "61,-39" "61,-48" "")
(command "_LINE" "66,-20" "66,-29" "")
(command "_LINE" "66,-39" "66,-48" "")
;; Линии сквозного паза
(command "_LINE" "61,-29" "66,-29" "")
(command "_LINE" "61,-39" "66,-39" "")
;; Отверстия на виде сверху
(command "_CIRCLE" "36,-34" "2")
(command "_CIRCLE" "49,-34" "2")
;; Осевые линии
(command "_COLOR" "1")
(command "_LINE" "-2,-34" "68,-34" "") ;; Главная ось
(command "_LINE" "36,-31" "36,-37" "")
(command "_LINE" "49,-31" "49,-37" "")
;; STREAMING_CHUNK:Построение ВИДА СЛЕВА...
(command "_COLOR" "BYLAYER")
;; Контур с разрывом сверху под паз
(command "_LINE" "80,0" "108,0" "")
(command "_LINE" "108,0" "108,32" "")
(command "_LINE" "80,0" "80,32" "")
(command "_LINE" "80,32" "89,32" "")
(command "_LINE" "99,32" "108,32" "")
;; Линия левого высокого блока
(command "_LINE" "80,10" "108,10" "")
;; Видимый вырез (паз)
(command "_LINE" "89,32" "89,22" "")
(command "_LINE" "99,32" "99,22" "")
(command "_ARC" "_C" "94,22" "89,22" "99,22") ;; Дно паза R5
;; Невидимые линии (Зеленый цвет)
(command "_COLOR" "3")
(command "_LINE" "80,5" "108,5" "") ;; Нижняя полка (толщина 5)
(command "_LINE" "92,0" "92,5" "")  ;; Проекции двух отверстий
(command "_LINE" "96,0" "96,5" "")
;; Осевая линия симметрии вида слева
(command "_COLOR" "1")
(command "_LINE" "94,-2" "94,34" "")
;; STREAMING_CHUNK:Завершение работы...
(command "_COLOR" "BYLAYER")
(setvar "OSMODE" old_osmode) ; Возвращаем привязки
(command "_ZOOM" "_E")       ; Показываем весь чертеж на экране
(princ "\nЧертеж Скобы в трех видах успешно построен!")
(princ)
)