---

(defun c:DrawSkoba ( / old_osmode )
;; STREAMING_CHUNK: Сохранение настроек и подготовка...
(setq old_osmode (getvar "OSMODE"))
(setvar "OSMODE" 0) ; Отключаем привязки для точного построения по координатам
(command "_COLOR" "BYLAYER")
;; ==========================================
;; STREAMING_CHUNK: Построение ВИДА СПЕРЕДИ (Главный вид)...
;; ==========================================
;; Основной видимый контур
(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 (Центр 56,10. От 56,5 до 61,10)
(command "_ARC" "_C" "56,10" "56,5" "61,10")
;; Горизонтальная полка и левый толстый блок
(command "_LINE" "56,5" "24,5" "")     ; Горизонтальная площадка (толщина 5)
(command "_LINE" "24,5" "24,10" "")    ; Вертикальная ступенька
(command "_LINE" "24,10" "0,10" "")    ; Верх левого блока
(command "_LINE" "0,10" "0,0" "")      ; Левый торец
;; STREAMING_CHUNK: Невидимые и осевые линии (Вид спереди)...
;; Невидимые линии (Зеленый)
(command "_COLOR" "3")
(command "_LINE" "47,0" "47,5" "")     ; Отверстие 1 (правое)
(command "_LINE" "51,0" "51,5" "")
(command "_LINE" "34,0" "34,5" "")     ; Отверстие 2 (левое)
(command "_LINE" "38,0" "38,5" "")
(command "_LINE" "61,10" "66,10" "")   ; Дно сквозного паза (ровно на высоте 10)
;; Осевые линии (Красный)
(command "_COLOR" "1")
(command "_LINE" "49,-2" "49,7" "")    ; Ось отверстия 1
(command "_LINE" "36,-2" "36,7" "")    ; Ось отверстия 2
(command "_LINE" "63.5,34" "63.5,8" "")  ; Ось симметрии паза
;; ==========================================
;; STREAMING_CHUNK: Построение ВИДА СВЕРХУ (Второй вид)...
;; ==========================================
(command "_COLOR" "BYLAYER")
;; Внешний замкнутый прямоугольник (Ширина 66, Глубина 28)
(command "_LINE" "0,-15" "66,-15" "")  ; Верхняя грань
(command "_LINE" "66,-15" "66,-43" "") ; Правая грань
(command "_LINE" "66,-43" "0,-43" "")  ; Нижняя грань
(command "_LINE" "0,-43" "0,-15" "")   ; Левая грань
;; Линии изломов и переходов
(command "_LINE" "24,-15" "24,-43" "") ; Линия ступеньки (перепад высоты)
(command "_LINE" "56,-15" "56,-43" "") ; Линия начала скругления
(command "_LINE" "61,-15" "61,-43" "") ; Линия внутренней правой стенки
;; Видимые края сквозного паза (Ширина 10, по центру)
(command "_LINE" "61,-24" "66,-24" "")
(command "_LINE" "61,-34" "66,-34" "")
;; Отверстия на виде сверху
(command "_CIRCLE" "49,-29" "2")       ; Отверстие 1
(command "_CIRCLE" "36,-29" "2")       ; Отверстие 2
;; STREAMING_CHUNK: Осевые линии (Вид сверху)...
(command "_COLOR" "1")
(command "_LINE" "-3,-29" "69,-29" "") ; Главная горизонтальная ось
(command "_LINE" "49,-26" "49,-32" "") ; Ось отверстия 1
(command "_LINE" "36,-26" "36,-32" "") ; Ось отверстия 2
;; ==========================================
;; STREAMING_CHUNK: Построение ВИДА СЛЕВА (Третий вид)...
;; ==========================================
(command "_COLOR" "BYLAYER")
;; Видимый контур левого блока (он ближе к нам)
(command "_LINE" "86,0" "114,0" "")
(command "_LINE" "114,0" "114,10" "")
(command "_LINE" "114,10" "86,10" "")
(command "_LINE" "86,10" "86,0" "")
;; Контур правой стенки (она на заднем плане) и сквозной паз
(command "_LINE" "86,10" "86,32" "")   ; Левый край правой стенки
(command "_LINE" "86,32" "95,32" "")   ; Левая верхушка
;; Левая стенка паза
(command "_LINE" "95,32" "95,15" "")
;; Скругленное дно паза R5 (Касается высоты 10)
(command "_ARC" "_C" "100,15" "95,15" "105,15")
;; Правая стенка паза
(command "_LINE" "105,15" "105,32" "")
(command "_LINE" "105,32" "114,32" "") ; Правая верхушка
(command "_LINE" "114,32" "114,10" "") ; Правый край правой стенки
;; STREAMING_CHUNK: Невидимые и осевые линии (Вид слева)...
(command "_COLOR" "3")
(command "_LINE" "86,5" "114,5" "")    ; Невидимая линия толщины основания (5мм)
;; Проекции двух отверстий (они на одной оси в этом виде)
(command "_LINE" "98,0" "98,5" "")
(command "_LINE" "102,0" "102,5" "")
;; Осевая линия (Вид слева)
(command "_COLOR" "1")
(command "_LINE" "100,-2" "100,34" "")
;; STREAMING_CHUNK: Завершение работы скрипта...
(command "_COLOR" "BYLAYER")
(setvar "OSMODE" old_osmode)           ; Возвращаем привязки пользователю
(command "_ZOOM" "_E")                 ; Вписываем весь чертеж в экран
(princ "\nЧертеж Скобы в трех видах успешно построен (ошибки исправлены)!")
(princ)
)