---

(defun c:VALIK1 ( / old_osnap)
  ;; Отключаем привязки для корректной отрисовки
  (setq old_osnap (getvar "OSMODE"))
  (setvar "OSMODE" 0) 

  ;; === 1. ГЛАВНЫЙ ВИД ===
  ;; Внешний контур валика
  (command "_.PLINE"
    "0,13" "2,15" "35,15" "35,22.5" "40,22.5" "40,11" "65,11" "65,12" "105,12"
    "105,-12" "65,-12" "65,-11" "40,-11" "40,-22.5" "35,-22.5" "35,-15" "2,-15" "0,-13"
    "_C"
  )

  ;; Вертикальные линии переходов ступеней
  (command "_.LINE" "2,15" "2,-15" "")
  (command "_.LINE" "35,22.5" "35,-22.5" "")
  (command "_.LINE" "40,22.5" "40,-22.5" "")
  (command "_.LINE" "65,12" "65,-12" "")

  ;; Обозначение плоских поверхностей квадрата
  (command "_.LINE" "40,11" "65,-11" "")
  (command "_.LINE" "40,-11" "65,11" "")

  ;; Главная осевая линия
  (command "_.LINE" "-10,0" "115,0" "")

  ;; Сквозное отверстие d10
  (command "_.CIRCLE" "22,0" "5")
  (command "_.LINE" "22,8" "22,-8" "")
  (command "_.LINE" "15,0" "29,0" "")

  ;; Глухое отверстие d12 (Внимание: потом перенеси на слой "Штриховая")
  (command "_.LINE" "105,6" "85,6" "")
  (command "_.LINE" "105,-6" "85,-6" "")
  (command "_.LINE" "85,6" "81.5,0" "")
  (command "_.LINE" "85,-6" "81.5,0" "")
  (command "_.LINE" "85,6" "85,-6" "")

  ;; === 2. НЕОБХОДИМЫЕ СЕЧЕНИЯ ===
  ;; Сдвинуты ниже (на Y = -75), чтобы оставить место для размеров

  ;; Сечение А-А (через отверстие)
  (command "_.CIRCLE" "22,-75" "15")
  (command "_.LINE" "17,-60.858" "17,-89.142" "")
  (command "_.LINE" "27,-60.858" "27,-89.142" "")
  (command "_.LINE" "22,-55" "22,-95" "")
  (command "_.LINE" "0,-75" "44,-75" "")

  ;; Сечение Б-Б (через квадрат 22х22)
  (command "_.RECTANG" "41.5,-64" "63.5,-86") 
  (command "_.LINE" "52.5,-60" "52.5,-90" "")
  (command "_.LINE" "35,-75" "70,-75" "")


  ;; === 3. АВТОМАТИЧЕСКОЕ НАНЕСЕНИЕ РАЗМЕРОВ ===
  
  ;; Нижние продольные размеры (длины ступеней)
  (command "_.DIMLINEAR" "0,-15" "22,-15" "_T" "22" "11,-25")
  (command "_.DIMLINEAR" "0,-15" "35,-15" "_T" "35" "17.5,-35")
  (command "_.DIMLINEAR" "105,-12" "65,-12" "_T" "40" "85,-25")
  (command "_.DIMLINEAR" "105,-12" "40,-12" "_T" "65" "72.5,-35")
  (command "_.DIMLINEAR" "0,-15" "105,-12" "_T" "105" "52.5,-45")

  ;; Диаметры и квадрат (вертикальные и боковые выноски)
  (command "_.DIMLINEAR" "0,15" "0,-15" "_T" "%%c30" "-12,0")
  (command "_.DIMLINEAR" "35,22.5" "35,-22.5" "_T" "%%c45" "-25,0")
  (command "_.DIMLINEAR" "52.5,11" "52.5,-11" "_T" "\\U+25A122" "52.5,35")
  (command "_.DIMLINEAR" "105,12" "105,-12" "_T" "%%c24" "118,0")
  (command "_.DIMLINEAR" "105,6" "105,-6" "_T" "%%c12" "132,0")

  ;; Глубина правого отверстия
  (command "_.DIMLINEAR" "105,6" "85,6" "_T" "20" "95,20")

  ;; Выноски: фаска 2х45 и диаметр центрального отверстия
  (command "_.LEADER" "1,14" "-5,20" "" "2x45%%d" "")
  (command "_.LEADER" "25.5,3.5" "30,15" "" "%%c10" "")

  ;; Возвращаем настройки
  (setvar "OSMODE" old_osnap)
  (princ "\nЧертёж валика со всеми размерами построен!")
  (princ)
)
(c:VALIK1)