---

(defun c:VALIK1 ( / old_osnap)
  ;; Сохраняем и отключаем привязки, чтобы линии не исказились
  (setq old_osnap (getvar "OSMODE"))
  (setvar "OSMODE" 0) 

  ;; --- ГЛАВНЫЙ ВИД ---
  ;; Внешний контур валика
  (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" "-5,0" "115,0" "")

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

  ;; Глухое отверстие d12 (справа)
  ;; Примечание: линии отрисованы сплошными. В AutoCAD выдели их и перенеси на слой с невидимой (штриховой) линией.
  (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" "")

  ;; --- НЕОБХОДИМЫЕ СЕЧЕНИЯ (ПО ЗАДАНИЮ 9) ---

  ;; 1. Сечение через отверстие d10 (под левой частью)
  (command "_.CIRCLE" "22,-40" "15")
  ;; Вертикальные стенки отверстия в сечении
  (command "_.LINE" "17,-25.858" "17,-54.142" "")
  (command "_.LINE" "27,-25.858" "27,-54.142" "")
  ;; Осевые для сечения
  (command "_.LINE" "22,-23" "22,-57" "")
  (command "_.LINE" "5,-40" "39,-40" "")

  ;; 2. Сечение через квадрат 22х22 (под центральной частью)
  (command "_.RECTANG" "41.5,-51" "63.5,-29") 
  ;; Осевые для квадрата
  (command "_.LINE" "52.5,-27" "52.5,-53" "")
  (command "_.LINE" "39.5,-40" "65.5,-40" "")

  ;; Возвращаем пользовательские привязки
  (setvar "OSMODE" old_osnap)
  (princ "\nЧертёж валика (Вариант 1) с сечениями успешно построен! Вызови команду VALIK1 для повтора.")
  (princ)
)
(c:VALIK1)