[Zaghim]

Друзья, подскажите как быстро заменить текст, имеющийся на чертеже на поля? Его много и удалять вставлять каждый долго. Текст в формате Мтекст. Автокад 2010

[hudozhnik]

Странный вопрос... А зачем тебе вместо текста поля, и что эти поля должны отображать?

[Zaghim]

Поля нужны программисту, что бы заполнять их автоматом в чертеже. Поля просто хоть 1, 2, 3....

[hudozhnik]

Вообще я думаю делается это все таки проще всего ручками. Либо придется писать или искать лисп под это дело.

[Zaghim]

Ну я уже сделал руками, конечно) Просто была кропотливая гиморная работа по замене, т.к. текст был в разных слоях, ну и все поля создавать и расставлять гимор...

[zenon]

Сообщение от Zaghim Поля нужны программисту, что бы заполнять их автоматом в чертеже. Поля просто хоть 1, 2, 3....

это что за программист такой что не может сделать сам?

[Zaghim]

Дело не в том, кто может сделать, а кто нет. Могут все, ничего сложного в этом нет. Дело в том, что это занимает много времени и очень кропотливо....

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

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

[hudozhnik]

Сообщение от Кулик Алексей aka kpblc Такую задачу точно решить не получится.

Ну просто автор вопрос не сформулировал нормально)) но на каком-то генном уровне, мне кажется, я его понимаю)))

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

Как сформулировано, так и отвечено.

[Zaghim]

)))
Есть только текст и мтекст, что в тексте написано такое и должно быть поле и на его месте....вот

[kp+]

Тебе надо вхоботить один и тот же код поля во множество объектов по образу и подобию одного?
Тогда лови код

Код:

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

 (defun kp_field_clipboard (/ a a1 a_st)

  (while
   (not (and
    (setq a (nentsel  "Что закинуть в буфер обмена:\n"))
    (setq a1 (vlax-ename->vla-object (car a)))
    (vlax-property-available-p a1 'textstring)
   ))
  )
  (setq a_st (vla-fieldcode a1))
  (dos_clipboard a_st)
)

(defun kp_text_clipboard_paste (/ a a1 a_st)
  (setq a_st (dos_clipboard))
  (while
   (not (and
    (setq a (nentsel (strcat "(" a_st ") - Куда вставить:\n")))
    (setq a1 (vlax-ename->vla-object (car a)))
    (vlax-property-available-p a1 'textstring)
   ))
  )
  (vla-put-textstring a1 a_st)
  (kp_text_clipboard_paste)
)

Нужна Doslib

[Zaghim]

Нет...например, у нас куча разного текста в разных местах:

d1, d2, d3.. dn

Выбрали d1 в цикле. Запоминаем его точку вставки, имя слоя, цвет и высоту текста. Смотрим, что написано d1, соответственно создаем поле: имя его d1, значение d1. Ну и все собственно, текст удаляем, а на его место втыкаем поле d1 с такой же высотой как у текста и меняем его слой и цвет. И так далее в цикле, пока текст не закончится.

[kp+]

И на что должны ссылаться эти поля? приведи пример в виде dwg

[Zaghim]

Этими полями будут оперировать программеры через VBA... почему они сразу должны на что-то ссылаться?

[Лиспер]

А что, можно создать поле (уточняю: через команду _.field), которое ни на что не ссылается?

[kp+]

Сообщение от Zaghim Этими полями будут оперировать программеры через VBA.

Дык пусть сами и создают с помощью VBA. Если у них есть вопросы, пусть зададут их сами, в разделе "программирование"