---

(defun c:DrawDerzhatel ( / old_osmode )
;; STREAMING_CHUNK: Отключение привязок для точного машинного черчения...
(setq old_osmode (getvar "OSMODE"))
(setvar "OSMODE" 0)
;; ==========================================
;; STREAMING_CHUNK: ВИД СПЕРЕДИ - Видимые контуры детали...
;; ==========================================
(command "_COLOR" "BYLAYER") ; Белый (Основная сплошная линия)
;; Центральный главный блок (Ширина 14, Высота 28)
(command "_LINE" "0,28" "14,28" "")    ; Верх
(command "_LINE" "14,28" "14,10" "")   ; Правая часть стенки над ушком
;; Правое ушко (Длина до центра 24, плюс R12 = 36. От X=14 до X=50)
(command "_LINE" "14,10" "50,10" "")   ; Верхняя полка ушка
(command "_LINE" "50,10" "50,0" "")    ; Крайний правый торец (дуга в проекции - прямая)
(command "_LINE" "50,0" "0,0" "")      ; Общий низ правой части и центра
;; Левый выступ (Прямые участки 10 мм. Координаты центра дуг: X=-10, Y=14)
(command "_LINE" "0,0" "-10,0" "")     ; Нижняя грань левого выступа
;; Наружная левая дуга R14
(command "_ARC" "_C" "-10,14" "-10,0" "-10,28")
(command "_LINE" "-10,28" "0,28" "")   ; Верхняя грань левого выступа
;; STREAMING_CHUNK: ВИД СПЕРЕДИ - Сквозное D-образное отверстие...
(command "_LINE" "0,22" "-10,22" "")   ; Потолок отверстия
;; Внутренняя дуга отверстия R8
(command "_ARC" "_C" "-10,14" "-10,6" "-10,22")
(command "_LINE" "-10,6" "0,6" "")     ; Дно отверстия
(command "_LINE" "0,6" "0,22" "")      ; Правая стенка отверстия (линия блока)
;; STREAMING_CHUNK: ВИД СПЕРЕДИ - Невидимые и осевые линии...
(command "_COLOR" "3") ; Зеленый (Штриховая линия - невидимый контур)
;; Отверстие Ø16,5 в ушке (Радиус 8.25. Центр на X=38)
(command "_LINE" "29.75,0" "29.75,10" "")
(command "_LINE" "46.25,0" "46.25,10" "")
(command "_COLOR" "1") ; Красный (Штрихпунктирная - оси)
(command "_LINE" "-28,14" "4,14" "")   ; Ось симметрии левого отверстия
(command "_LINE" "-10,-3" "-10,31" "") ; Вертикальная ось левых радиусов
(command "_LINE" "38,-3" "38,13" "")   ; Вертикальная ось отверстия ушка
;; ==========================================
;; STREAMING_CHUNK: ВИД СВЕРХУ - Размещение строго под главным видом...
;; ==========================================
(command "_COLOR" "BYLAYER")
;; Габарит: глубина 24 мм. Y от -20 до -44.
(command "_LINE" "-24,-20" "38,-20" "") ; Верхняя (задняя) грань
;; Правое скругление R12 (Центр на X=38, Y=-32)
(command "_ARC" "_C" "38,-32" "38,-44" "38,-20")
(command "_LINE" "38,-44" "-24,-44" "") ; Нижняя (передняя) грань
(command "_LINE" "-24,-44" "-24,-20" "") ; Крайняя левая стенка
;; Ступенька перехода (видимая граница между блоком H=28 и ушком H=10)
(command "_LINE" "14,-20" "14,-44" "")
;; Видимое отверстие Ø16,5 на правом ушке
(command "_CIRCLE" "38,-32" "8.25")
;; STREAMING_CHUNK: ВИД СВЕРХУ - Невидимые и осевые линии...
(command "_COLOR" "3")
;; Сквозное D-образное отверстие идет насквозь через деталь
;; Крайняя левая точка дуги R8 находится на X = -10 - 8 = -18
(command "_LINE" "-18,-20" "-18,-44" "")
(command "_LINE" "0,-20" "0,-44" "") ; Внутренняя стенка отверстия
(command "_COLOR" "1")
(command "_LINE" "-28,-32" "54,-32" "")  ; Главная горизонтальная ось глубины
(command "_LINE" "-10,-17" "-10,-47" "") ; Вертикальная ось левой дуги
(command "_LINE" "38,-17" "38,-47" "")   ; Вертикальная ось правого отверстия
;; ==========================================
;; STREAMING_CHUNK: ВИД СЛЕВА (Сбоку) - Справа от главного вида...
;; ==========================================
(command "_COLOR" "BYLAYER")
;; Смотрим на деталь слева. Видим сплошной левый торец 24х28. X от 70 до 94.
(command "_LINE" "70,0" "94,0" "")
(command "_LINE" "94,0" "94,28" "")
(command "_LINE" "94,28" "70,28" "")
(command "_LINE" "70,28" "70,0" "")
;; STREAMING_CHUNK: ВИД СЛЕВА - Проекции невидимых элементов...
(command "_COLOR" "3")
;; Проекция сквозного D-образного отверстия внутри
(command "_LINE" "70,22" "94,22" "")
(command "_LINE" "70,6" "94,6" "")
;; Проекция правого ушка (оно скрыто за главным блоком)
(command "_LINE" "70,10" "94,10" "") ; Верхняя невидимая полка ушка
;; Проекция отверстия Ø16,5 в правом ушке
;; Центр на X = 70 + (24/2) = 82
(command "_LINE" "73.75,0" "73.75,10" "")
(command "_LINE" "90.25,0" "90.25,10" "")
(command "_COLOR" "1")
(command "_LINE" "82,-3" "82,31" "")   ; Центральная ось симметрии
(command "_LINE" "67,14" "97,14" "")   ; Ось симметрии левого отверстия
;; STREAMING_CHUNK: Завершение работы скрипта...
(command "_COLOR" "BYLAYER")
(setvar "OSMODE" old_osmode)           ; Возвращаем пользователю его привязки
(command "_ZOOM" "_E")                 ; Показываем готовый чертеж
(princ "\nЧертеж Держателя (Вариант 1) строго по ГОСТ готов! Выделяйте зеленые линии как 'Штриховые', красные - как 'Осевые'.")
(princ)
)