[Wonderland]

Нужно, чтобы каждый объект из однострочного текста преобразовывался в отдельный объект многострочного текста. В интернете есть подобные утилиты, но они объекты однострочного текста группируют в единый объект многострочного, как, например, в Autocad в панели инструментов Express - "Convert Text To Mtext" или утилита Lee-Mac - "Text2MTextV2-0".

[Boxa]

и в чем проблема? Какие проблемы в написании? В чем "затык"?
Где код который не работает?

[Wonderland]

К сожалению, навыка в написании кода нет.

[Boxa]

Сообщение от Wonderland К сожалению, навыка в написании кода нет.

ИМХО, тогда Вы ошиблись разделом, Вам сюда: http://forum.dwg.ru/forumdisplay.php?f=33

[Wonderland]

И все же, может уже существует такая утилита?

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

txt2mtxt, в режиме одиночного выбора.

[Wonderland]

Кулик Алексей aka kpblc, объектов множество. Txt2mtxt не подходит как вариант. Нужна другая утилита.

[trir]

http://dwg.ru/lib/1290

[Nike]

Код:

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

 (defun c:-txt2mtxt (/ ss cnt)
  (setq ss (ssget '((0 . "TEXT"))))
  (if ss
    (repeat (setq cnt (sslength ss))
      (command "txt2mtxt" (ssname ss (setq cnt (1- cnt))) "")
    )
  )
)

[gomer]

Сообщение от trir http://dwg.ru/lib/1290

спасибо, пополнит мою литературную помойку

[Wonderland]

Nike, подскажите, куда конкретно вставить код? В исходный код функции txt2mtxt?

[trir]

vlide
http://dwg.ru/pub/9

[VVA]

Convert text to mtext in lisp?
Text2MText Upgraded

[Wonderland]

Благодарю всех!!! Все работает)))

[sathalex]

Код:

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

 (defun c:текст2Мтекст (/		nameset	  setlength namtxtrun txtrun
	      p_text	p_kord	  p_sloy    p_styl    p_ugol
	      p_heig	ugol	  deltX	    deltY     n_kord
	      spis_st
	     )
  (setq nameset (ssget "_:L" '((0 . "TEXT"))))
  (setq setlength (sslength nameset))
  (setq i -1)
  (repeat setlength
    (setq i (1+ i))
    (setq namtxtrun (ssname nameset i))
    (setq txtrun (entget namtxtrun))
    (setq p_text (assoc 1 txtrun))
    (setq p_kord (cdr (assoc 10 txtrun)))
    (setq p_sloy (assoc 8 txtrun))
    (setq p_styl (assoc 7 txtrun))
    (setq p_ugol (assoc 50 txtrun))
    (setq p_heig (assoc 40 txtrun))
    (setq ugol (- (* 2 pi) (cdr p_ugol)))
    (setq deltX (* (cdr p_heig) (sin ugol)))
    (setq deltY (* (cdr p_heig) (cos ugol)))
    (setq n_kord (list 10
		       (+ (car p_kord) deltX)
		       (+ (cadr p_kord) deltY)
		       (last p_kord)
		 )
    )
    (setq spis_st (list	'(0 . "MTEXT")	 '(100 . "AcDbEntity")
			p_sloy		 '(100 . "AcDbMText")
			n_kord		 p_heig
			p_text		 p_ugol
			p_styl
		       )
    )
    (entmake spis_st)
    (entdel namtxtrun)
  )
)

[Лиспер]

sathalex, код, во-первых, можно упросить. Во-вторых, ты напрочь забыл про выравнивая текстов.

[Wonderland]

Возникла проблема. При переводе в многострочный текст коэффициент сжатия не сохраняется.

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

Потому что читать надо про сжатие, принудительное форматирование и проч.

[Wonderland]

в смысле?

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

В смысле - читай в справке про спец.символы MTEXT.