[Александер]

КАК программно написать многострочным текстом?
точнее когда программно пишешь многострочным текстом то сам текст - является строкой (либо явно - "текст" либо указываем переменную типа строка - text, но прежде присваеваем ей некое значение, например "текст")
мне необходимо написать несколь строк, для этого я пишу, например:
(command "_.mtext" p5 "ВЫР" "ВЦ" "М" "Т" "" p6 tx1-1 tx1-2 tx1-3 "")

где р5,р6 точки вставки, а tx1-1 tx1-2 tx1-3 это переменные типа срока с нужными мне значениями
у меня есть переменная типа "список" - lst (со строками, например, "ааа" "ббб" "ввв" )
так вот и вопрос как такое можно сделать?
если писать:
(command "_.mtext" p5 "ВЫР" "ВЦ" "М" "Т" "" p6 lst "")
то имеем ошибку, т.к. переменная lst должна быть списком.

[Кулик Алексей aka kpblc]

Код:

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

(setq lst '("aa" "bb" "cc"))
(setq res nil) (foreach item lst (setq res (strcat (if (not res) "" res) " " item))) (VL-STRING-TRIM " "res)

[VVA]

Код:

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

(setq lst '("ааа" "ббб" "ввв" ) )
(command "_.mtext" p5 "ВЫР" "ВЦ" "М" "Т" "" p6 (apply 'strcat (mapcar '(lambda(X)(strcat x "\n")) lst)) "")

Совет: вместо русских опций используй английские с _

Код:

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

(command "_.mtext" p5 "_J" "_TC" "_L" "_E" "" p6 (apply 'strcat (mapcar '(lambda(X)(strcat x "\n")) lst)) "")

[Александер]

спасибо, буду пробовать .

[Александер]

не прокатило :cry:
немного переделывать получал строку
"ааа\nббб\nввв"
все равно на экране пишет ааабббввв т.е. символ
\n не воспринимает...

[Кулик Алексей aka kpblc]

А что, должно? По-моему, разделителем строк в многострочнике выступает \P

[Александер]

ну если писать, например:
(setq res "ааабббввв")
(command "_.mtext" p5 "ВЫР" "ВЦ" "М" "Т" "" p6 res "\n" "123" "")
то выдает:
ааабббввв

123

пустая строка не случайна - это результат "\n", а если писать:
(command "_.mtext" p5 "ВЫР" "ВЦ" "М" "Т" "" p6 res "\p" "123" "")
то выдает:
ааабббввв
p
123
т.е. символ p - печатает, а символ n - нет,
выходит управляющий символ все же \n, или я не прав?

[Кулик Алексей aka kpblc]

Код:

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

Command: _-mtext Current text style:  "Standard"  Text height:  2.5
Specify first corner:
Specify opposite corner or [Height/Justify/Line spacing/Rotation/Style/Width]:
MText: aaa\Pbbb\Pccc

Обрати внимание на регистр управляющего символа!

[Александер]

на регистр я внимание обратил, согласен, если писать в самом редакторе среди текста символ \P , то строку переводит, а если программно писать, то получается:

в проге пишу:
(setq res "ааабббввв")
(command "_.mtext" p5 "ВЫР" "ВЦ" "М" "Т" "" p6 res "\" "123" "")

то выдает:
ааабббввв
P
123
а это:
Command: _-mtext Current text style: "Standard" Text height: 2.5
Specify first corner:
Specify opposite corner or [Height/Justify/Line spacing/Rotation/Style/Width]:
MText: aaa\Pbbb\Pccc

я так понимаю копия из командной строки?
если в ком. строке писать, то тоже все работает, а если в программе написать, то не хочет .

[Кулик Алексей aka kpblc]

Код:

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

(defun tt (/ start text)
  (setq text "aaa\\Pbbb\\Pccc")
  (command "_.-mtext"
           (setq start (getpoint))
           "_j"
           "_tc"
           "_l"
           "_e"
           ""
           (getcorner start "\nAnother point : ")
           text
           ""
           ) ;_ end of command
  ) ;_ end of defun

[Александер]

спасибо!!!
все получилось, заработался совсем, забыл что надо двойные \\ писать в программе чтобы получить \.
в этом все дело и было

[VVA]

Код:

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

(defun tt (/ start text) 
  (setq text "aaa\nbbb\nccc") 
  (command "_.-mtext" 
           (setq start (getpoint)) 
           "_j" 
           "_tc" 
           "_l" 
           "_e" 
           "" 
           (getcorner start "\nAnother point : ") 
           text 
           "" 
           ) ;_ end of command 
  ) ;_ end of defun

У меня тоже пишет с столбик Acad 2004 Rus 2006 En