Люди добрые! Подскажите пожалуйста как из файла *.txt, программно, вставить текст в чертёж.
Но неприменно многострочным текстом (примитив MTEXT), а не набором отдельных строчек.
Спасибо.

[vk]

А чем команда MTEXT не угодила?

Открываем текстовый файл, читаем его строки, загоняем в список, обрабатываем, если нужно (особенно конец списка на предмет наличия пустой строки для завершения команды), далее

Код:

[Выделить все]

(command "_.mtext" pt1 pt2)
(while (car strl)
  (command (car strl))
  (setq strl (cdr strl))
)

pt1 pt2 - точки углов
strl - список со строками текста вида ("str1" "str2" "str3" "")

[Эдуард]

Да вроде ничего сложного нет

Код:

[Выделить все]

(defun mtxt-file()
  (vl-load-com)
  (if
    (setq vt (getreal "\n Введите высоту текста"))
    (setvar "textsize" vt)
    )
      
  (setq ms
    (vla-get-modelspace
      (vla-get-activedocument
	(vlax-get-acad-object)
	)
      )
    )
  (setq start-pt (getpoint "\n Ведите начальную точку:")
        w (getdist start-pt "\n Ведите ширину текста:")
        start-pt (vlax-3d-point start-pt)
	)
   (if
     (setq nfile
  (getfiled "Выберите файл для чтения" "C:\\" "txt" 16))
    (progn
  (setq desk (open nfile "r"))
  (setq str-list "")
  (while
    (setq str (read-line desk))
    (setq str-list (strcat str-list "\n" str ))
    )
  (close desk)	 
	(vla-addmtext ms start-pt w str-list)
  )
     )
  (princ)
  )

[dermoon]

Да просто скопируй текст в буфер, а потом вставь в акаде. Он и вставится MTEXTом. Размер и тип шрифта акад принимает по настройкам текстового стиля. Если текст выровнен и тебе надо что-бы и в акаде он был выровнен, надо установить тип шрифта "monotxt".

Большое спасибо за подсказку.
Ещё я придумал, что можно (при перетаскивании строк из файла в переменную) разделять строки кодом "\\P" и вставлять эту переменную в MTEXT, тоже работает.
Ещйё раз спасибо.