---

(defun c:GetSpecText ( / txt-list y-pos)
  ;; Список всего текста из спецификации (без форматов и количеств)
  (setq txt-list
    '(
      "Документация"
      "ТПЖА.491112.299 СБ" "Сборочный чертеж"
      "ТПЖА.491112.299 Е1" "Схема деления изделия" "на составные части"
      "Сборочные единицы"
      "ТПЖА.303666.501" "Шпиндель в сборе"
      "Детали"
      "ТПЖА.731616.502" "Корпус"
      "ТПЖА.752175.503" "Втулка нажимная"
      "ТПЖА.753137.504" "Штуцер"
      "ТПЖА.753770.505" "Маховичок"
      "ТПЖА.754160.506" "Прокладка"
      "ТПЖА.758420.507" "Гайка накидная"
      "Стандартные изделия"
      "Винт М6х16 ГОСТ 17473-80"
      "Шайба 2.6 ГОСТ 11371-78"
      "Материалы"
      "Шнур пеньковый"
      "0,012 кг"
      "Обозначение" "Наименование" "Примечание"
    )
  )
  
  (setq y-pos 0)
  
  ;; Создание текстовых объектов столбиком сверху вниз
  (foreach item txt-list
    (entmakex (list (cons 0 "TEXT")
                    (cons 10 (list 0 y-pos 0)) ; Координата вставки
                    (cons 40 3.5)              ; Высота текста
                    (cons 1 item)))
    (setq y-pos (- y-pos 8)) ; Расстояние между строками (8 мм)
  )
  
  ;; Автоматический зум, чтобы показать весь сгенерированный текст
  (command "_.ZOOM" "_E")
  (princ "\nТекст успешно сгенерирован столбиком! Можно перетаскивать в таблицу.")
  (princ)
)

;; Запуск
(c:GetSpecText)