[Паша П.М.]

Переписал с сайта несколько программ которые могут превращать однострочный текст в многострочный но они объединяют много однострочных в один многострочный.
А мне очень надо чтобы текст просто становился многостр. без объеденения(остовался на своих местах и оставался отдельной единицей)
Прошу помощи!
Заранее признателен!

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

Кажется, я понимаю, откуда "уши растут" у этой темы. Лично я думаю, что у тебя какой-то глюк в каде. Попробуй на пустом профиле со стандартными установками только настроить текстовый стиль на отображение того же Arial.ttf (говорю сразу - 2005 и 2006 корректно отработали; на обоих - по сервис-паку). Замена Arial на Times New Roman ситуацию не изменила (все равно, скотина, нормально работает!).

[Profan]

При установленном "Express Tools".

Код:

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

(defun C:T1_MT1 ( / ss n ssn pp pp1)
(if (not C:txt2mtxt) (arxload "ctextapp"))
(setq ss (ssget))
   (setq ssn (sslength ss) n 0) 
   (repeat ssn
           (setq pp (ssname ss n))  
           (setq pp1 (entget pp))   
           (cond
           ((= (cdr (assoc '0 pp1)) "TEXT")
           (command "txt2mtxt" pp "")
           ))
           (setq n (+ n 1))
    )
    (princ)
)

[Паша П.М.]

Сообщение от Profan При установленном "Express Tools". Код: [Выделить все] (defun C:T1_MT1 ( / ss n ssn pp pp1) (if (not C:txt2mtxt) (arxload "ctextapp")) (setq ss (ssget)) (setq ssn (sslength ss) n 0) (repeat ssn (setq pp (ssname ss n)) (setq pp1 (entget pp)) (cond ((= (cdr (assoc '0 pp1)) "TEXT") (command "txt2mtxt" pp "") )) (setq n (+ n 1)) ) (princ) )

извините, но у меня нет "Express Tools".Можете ссылочку кинуть для 2006рус?
kpblc
в нулёвом файле у меня всё ок, однострочный текст принимает все шрифты.
а вот в старых всё попрежнему :?

[Profan]

Какая ссылочка? "Express Tools" входит в состав дистрибутива AutoCAD 2006. Я думаю, что можно добавить этот пакет, если запустить программу установки AutoCAD не через setup.exe, а через acad.msi.

[Паша П.М.]

Сообщение от Profan Какая ссылочка? "Express Tools" входит в состав дистрибутива AutoCAD 2006. Я думаю, что можно добавить этот пакет, если запустить программу установки AutoCAD не через setup.exe, а через acad.msi.

с этим у меня временные проблемы: нет доступа и т.д.
Когда будет обязательно попробую
Спасибо

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

Насчет ET - они ж все равно не локализуются. И ставить их для 2006 все же лучше в процессе установки (ИМХО!!!).
И вот еще - попробуй скопировать (через DesignCenter) описание текстового стиля с нового файла на старый. Чего получается?

[Profan]

Вот файл ctextapp.arx. Скопируйте его в папку Support установленного AutoCAD'а. Может, сработает.
[ATTACH]1161586064.rar[/ATTACH]

[Паша П.М.]

Сообщение от kpblc Насчет ET - они ж все равно не локализуются. И ставить их для 2006 все же лучше в процессе установки (ИМХО!!!). И вот еще - попробуй скопировать (через DesignCenter) описание текстового стиля с нового файла на старый. Чего получается?

ничего ге изменилось:?
Profan
тоже ничего
А всё таки нет ли такой проги какую я просил в первом посте?
Я думаю протянул бы сней неделю до переустановки ACAD
если есть у когонибудь

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

Попробуй такое (без гарантии, что учел все):

Код:

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

(defun convtxt2mtxt (/ adoc ent minp maxp)
  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark adoc)
  (foreach item (mapcar 'vlax-ename->vla-object
                        (vl-remove-if
                          'listp
                          (mapcar 'cadr (ssnamex (ssget '((0 . "TEXT")))))
                          ) ;_ end of vl-remove-if
                        ) ;_ end of mapcar
    (vla-getboundingbox item 'minp 'maxp)
    (setq minp (vlax-safearray->list minp)
          maxp (vlax-safearray->list maxp)
          ent  (vla-addmtext
                 (vla-objectidtoobject adoc (vla-get-ownerid item))
                 (vla-get-insertionpoint item)
                 (abs (- (car minp) (car maxp))
                      ) ;_ end of abs
                 (vla-get-textstring item)
                 ) ;_ end of vla-AddMText
          ) ;_ end of setq
    (mapcar '(lambda (x)
               (vl-catch-all-apply
                 '(lambda ()
                    (vlax-put-property ent x (vlax-get-property item x))
                    ) ;_ end of LAMBDA
                 ) ;_ end of VL-CATCH-ALL-APPLY
               ) ;_ end of LAMBDA
            '("color"         "lineweight"    "linetype"      "linetypescale"
              "layer"         "style"         "alignment"     "height" "rotation"
              )
            ) ;_ end of mapcar
    (vla-erase item)
    ) ;_ end of foreach
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

---
Добавлено:
Не учтен вариант поворота текста - возможны проблемы. Не учтен вариант "не текущей" системы координат. И наверняка еще что-нить...

[Паша П.М.]

Сообщение от kpblc Попробуй такое (без гарантии, что учел все): Код: [Выделить все] (defun convtxt2mtxt (/ adoc ent minp maxp) (vl-load-com) (setq adoc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark adoc) (foreach item (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "TEXT"))))) ) ;_ end of vl-remove-if ) ;_ end of mapcar (vla-getboundingbox item 'minp 'maxp) (setq minp (vlax-safearray->list minp) maxp (vlax-safearray->list maxp) ent (vla-addmtext (vla-objectidtoobject adoc (vla-get-ownerid item)) (vla-get-insertionpoint item) (abs (- (car minp) (car maxp)) ) ;_ end of abs (vla-get-textstring item) ) ;_ end of vla-AddMText ) ;_ end of setq (mapcar '(lambda (x) (vl-catch-all-apply '(lambda () (vlax-put-property ent x (vlax-get-property item x)) ) ;_ end of LAMBDA ) ;_ end of VL-CATCH-ALL-APPLY ) ;_ end of LAMBDA '("color" "lineweight" "linetype" "linetypescale" "layer" "style" "alignment" "height" "rotation" ) ) ;_ end of mapcar (vla-erase item) ) ;_ end of foreach (vla-endundomark adoc) (princ) ) ;_ end of defun --- Добавлено: Не учтен вариант поворота текста - возможны проблемы. Не учтен вариант "не текущей" системы координат. И наверняка еще что-нить...

не получилось запустить её, если можно дайте коротенькую инструкцию по запуску

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

ET для 2006: http://www.rapidshare.ru/79562
А, черт, опять забыл поставить c: перед именем функции. Исправляемся:

Код:

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

(defun c:convtxt2mtxt (/ adoc ent minp maxp)
  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark adoc)
  (foreach item (mapcar 'vlax-ename->vla-object
                        (vl-remove-if
                          'listp
                          (mapcar 'cadr (ssnamex (ssget '((0 . "TEXT")))))
                          ) ;_ end of vl-remove-if
                        ) ;_ end of mapcar
    (vla-getboundingbox item 'minp 'maxp)
    (setq minp (vlax-safearray->list minp)
          maxp (vlax-safearray->list maxp)
          ent  (vla-addmtext
                 (vla-objectidtoobject adoc (vla-get-ownerid item))
                 (vla-get-insertionpoint item)
                 (abs (- (car minp) (car maxp))
                      ) ;_ end of abs
                 (vla-get-textstring item)
                 ) ;_ end of vla-AddMText
          ) ;_ end of setq
    (mapcar '(lambda (x)
               (vl-catch-all-apply
                 '(lambda ()
                    (vlax-put-property ent x (vlax-get-property item x))
                    ) ;_ end of LAMBDA
                 ) ;_ end of VL-CATCH-ALL-APPLY
               ) ;_ end of LAMBDA
            '("color"         "lineweight"    "linetype"      "linetypescale"
              "layer"         "style"         "alignment"     "height" "rotation"
              )
            ) ;_ end of mapcar
    (vla-erase item)
    ) ;_ end of foreach
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

Вызов с ком.строки:

Код:

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

convtxt2mtxt

[Алекс]

Может я чето не понимаю, но чем плоха команда txt2mtxt из Экспресс2006?
Я пользуюсь. Все устраивает.

А мне очень надо чтобы текст просто становился многостр. без объеденения(остовался на своих местах и оставался отдельной единицей)

Ну сделай txt2mtxt для каждого однострочного.

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

Она плоха несколькими вещами:
1. На сегодняшний момент у Паши не установлен ET, и до конца недели точно не предвидится (см.чуть выше)
2. Вот именно, что надо кликать на каждом тексте отдельно. В моем варинте можно выбрать сколько угодно - хоть все. Все равно объединяться не будут.

[Паша П.М.]

У меня получилось (уже трудностей будет меньше), но проблема в том что текста сдвигаются(примерно на величину высоты вниз), может както можно это испрввить?
Я вам уже благодарен за внимание!!!!!!!!!!!!!!

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

Ну вот, я ж говорил что не все учел
Скорее всего, там у тебя выравнивание что-то типа TopCenter или подобного? Если да, то тогда приложи файлец, попробую поковырять.

[Profan]

Паша П.М.
Да скачай ты ET, kpblc ведь дал ссылку. Там много интересных команд, не только txt2mtxt.

[Паша П.М.]

Сообщение от Profan Паша П.М. Да скачай ты ET, kpblc ведь дал ссылку. Там много интересных команд, не только txt2mtxt.

я скачал, а как его установить(там нет setup и всё не понашему ?

[Паша П.М.]

kpblc
вот[/b]
[ATTACH]1161606047.dwg[/ATTACH]

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

Можно такое попробовать:

Код:

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

(defun c:convtxt2mtxt (/ adoc ent minp maxp pt)
  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark adoc)
  (foreach item (mapcar 'vlax-ename->vla-object
                        (vl-remove-if
                          'listp
                          (mapcar 'cadr (ssnamex (ssget '((0 . "TEXT")))))
                          ) ;_ end of vl-remove-if
                        ) ;_ end of mapcar
    (vla-getboundingbox item 'minp 'maxp)
    (setq minp (vlax-safearray->list minp)
          maxp (vlax-safearray->list maxp)
          ent  (vla-addmtext
                 (vla-objectidtoobject adoc (vla-get-ownerid item))
                 (vlax-3d-point
                   ((lambda (/ pt)
                      (setq pt (vlax-safearray->list
                                 (vlax-variant-value (vla-get-insertionpoint item))
                                 ) ;_ end of vlax-safearray->list
                            pt (polar pt
                                      (+ (/ pi 2.) (vla-get-rotation item))
                                      (vla-get-height item)
                                      ) ;_ end of polar
                            ) ;_ end of setq
                      ) ;_ end of lambda
                    )
                   ) ;_ end of vlax-3d-point
                 (abs (- (car minp) (car maxp))
                      ) ;_ end of abs
                 (vla-get-textstring item)
                 ) ;_ end of vla-AddMText
          ) ;_ end of setq
    (mapcar '(lambda (x)
               (vl-catch-all-apply
                 '(lambda ()
                    (vlax-put-property ent x (vlax-get-property item x))
                    ) ;_ end of LAMBDA
                 ) ;_ end of VL-CATCH-ALL-APPLY
               ) ;_ end of LAMBDA
            '("color"        "lineweight"   "linetype"     "linetypescale"
              "layer"        "style"        "height"       "rotation"
              )
            ) ;_ end of mapcar
    (vla-erase item)
    ) ;_ end of foreach
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

Можно было сделать выбор в зависимости от типа выравнивания, но мне стало лениво прописывать все варианты и их сопоставлять. Может быть, именно это и потребуется.
---
Поправочка: Иногда некорректно распознает ширину нового mtext'a, и выполняет перенос строки. Есть несколько вариантов: либо править руками; либо ужимать текст, задавая ему форматирование.