Тема: Как многострочный текст переделать сразу в однострочный?

Возможно ли, многострочный текст переделать сразу в однострочный текст.
а) так, чтобы получилась одна длинная строка,
б) или лучше, чтобы получилось много однострочных примитивов (соответствующих строкам абзаца многострочного примитива)

Re: Как многострочный текст переделать сразу в однострочный?

По варианту Б - команда _.explode

Re: Как многострочный текст переделать сразу в однострочный?

По варианту A - команда DDEDIT, а там как в WORDe сделать перенос нижней строки вверх+пробел и т. д., ОК, и мышкой при выделении этого текста растянуть светящиеся маркеры в длину побольше...
Но  вариант Б мне больше нравится.

Re: Как многострочный текст переделать сразу в однострочный?

Romsan> получившаяся одна строка так и останется объектом по имени многострочный текст. А вот если теперь Explode (кстати, VK, зачем там точка?) то получится вариант А

Re: Как многострочный текст переделать сразу в однострочный?

А если воспользоваться командой - склейка строк - "Pick text to add to ... " из панелей "ДОВЕСКИ", то из множества строк легко сделать одну строку...

Re: Как многострочный текст переделать сразу в однострочный?

Довески, если что, берут здесь - http://www.kulichki.com/cadhlp

Re: Как многострочный текст переделать сразу в однострочный?

> Vova
Точка - означает, что команду доставать надо из "ядра" АКАДа в том виде, как она была определена изначально. Если команды не были переопределены каким то приложением, то не нужна, но как знать...

Re: Как многострочный текст переделать сразу в однострочный?

> Romsan
Склейка строк что-то не так работает с МТЕКСТом :(

Re: Как многострочный текст переделать сразу в однострочный?

Из Довесок "Склейка строк"
но предварительно надо сделать Explode c мтекстом

;|
    Concatenation of two lines of Dtext
    Written by: Bob Abernethy, dba/CADesigner 3/14/98
|;
(defun c:context (/ ed1 ed0 ed2 old2 old1 newtxt)
  (setvar "cmdecho" 0)
  (setq ed1 (entget (car (entsel"\nPick text to add to ... "))))
  (prompt "\nPick text to add ... ")
  (setq ed0 (entsel))
  (setq ed2 (entget (car ed0)))
  (setq old2 (assoc 1 ed1))
  (setq old1 (assoc 1 ed2))
  (setq newtxt (strcat (cdr old2) " " (cdr old1)))
  (setq newtxt (cons 1 newtxt))
  (setq ed1 (subst newtxt old2 ed1))
  (entmod ed1)
  (command "erase" ed0 "")
  (setvar "cmdecho" 1)
  (princ)
)