[TechNick]

Добрый день. Такой вопросик очень нужно решить.
На чертеже существует около тысячи однострочных текстов с подписями марок дорожного ограждения видов:
1. 11ДО-ММ.2(564)У2
2. 11ДО-ММ.2(256)У3
3. 11ДО-ММ.2(64)У4
4. 11ДО-ММ.2(98)У5

Где текст в скобках указывает протяженность и везде разный. Надо преобразовать к такому виду соответственно:
1. 11ДО/190-0.75(0.15)-3.0-0.9(564)
2. 11ДО/250-0.75(0.15)-2.0-0.9(256)
3. 11ДО/300-0.75(0.15)-4.0-0.9(64)
4. 11ДО/350-0.75(0.15)-4.0-1.25(98)
Как это сделать наиболее быстро ума не приложу. Помогите кто знает

[Syrex]

Offtop:

Сообщение от Сергей812 А причем тут лисп, это ветка про сам акад вообще-то?

а я именно про автокад спрашиваю и о лисп-программах узнал именно в этой теме
Offtop: Про _Field почитал в справке

Сообщение от Сергей812 это к вопросу о:

"разговор глухого со слепым"? Поясню раз не очевидно, этот вопрос был о том как решить конкретную задачу иначе, того пути который я избрал, использовать какие то другие средства автокада, а не о том как надо, что то, где то, когда то надо БЫЛО сделать.

Сообщение от Сергей812 Просто это делать изначально надо было так

просто но не сделано
Offtop: Сергей812 вам пообщаться охота, показать что вы знаете, как это поможет? Давайте объясню, чертежи не мои, делал не знаю кто, но явно разные люди может организации, я давно уже стал далек от детального проектирования и автокада, но меня попросили помочь, работаю с тем что есть, замечаний у меня очень много но рефлексия тут неуместна, прохожу лиспом или _find и потом ручками

[allar8]

Подскажите, как найти все тексты в файле содержащими только символ #. Стандартным поиском и фильтром не получается т.к. автокад данный символ воспринимает как маску и выбирает все тексты
А не фильтром вроде получилось
Не это мне показалось - фильтр еще дофига лишнего понавыбирал.

Дык как жи все таки сделать

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

Сообщение от allar8 как найти все тексты в файле содержащими только символ #

Попробуй такую маску:

Код:

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

*`#*

[allar8]

Сообщение от Кулик Алексей aka kpblc *`#*

Спасибо помогло

[skkkk]

Offtop: allar8, это случайно не порушенные поля?

[allar8]

Сообщение от skkkk Offtop: allar8, это случайно не порушенные поля?

Совершенно верно)

[skkkk]

Offtop: Рекомендую заглянуть в эту тему: LISP. Как определить ошибочные поля (####) в AutoCAD?

[allar8]

Сообщение от skkkk Рекомендую заглянуть в эту тему: LISP. Как определить ошибочные поля (####) в AutoCAD?

Даже это есть. Че сказать молодцы!!! Спасибо

[allar8]

Люди, подскажите плиз - можно как нить заменить текст на поля. Т.е. у меня ссылки на чертежах в виде текста например (см. л. 3). Нужно л.3 везде заменить на номер нужного листа в подшивке. Такое возможно? Пробовал вставлять в поиске/замене код поля - все равно вставляет текстом а не полем.

[zenon]

Сообщение от allar8 Люди, подскажите плиз - можно как нить заменить текст на поля. Т.е. у меня ссылки на чертежах в виде текста например (см. л. 3). Нужно л.3 везде заменить на номер нужного листа в подшивке. Такое возможно? Пробовал вставлять в поиске/замене код поля - все равно вставляет текстом а не полем.

попробуй через панель Свойства вставить в Содержимое код поля

[allar8]

Сообщение от zenon попробуй через панель Свойства вставить в Содержимое код поля

Согласен, но там разные тексты т.е. ссылки имею разные начала текста
И эта тема быстро прокатывает только с однострочниками. Если мтекст, блин, акад в каждый заходит зачем то(())
Но самое главное, то что ссылки в разных текстах

[kp+]

Сообщение от allar8 через панель Свойства вставить в Содержимое код поля... эта тема быстро прокатывает только с однострочниками. Если мтекст, блин, акад в каждый заходит зачем то(())

Попробуйте этот код:

Код:

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

(defun kp_text_populate (/ a a1 a_st)
  (setq a_st (getstring T "ЧТО:\n"))
  (if a_st
    (while (= 1 1)
	  (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)
    )
  )
)

Он, правда, не работает с множеством объектов сразу, надо прощелкать мышью все нужные (так было задумано), но если что - нетрудно слегка модифицировать

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

[allar8]

Сообщение от kp+ Он, правда, не работает с множеством объектов сразу, надо прощелкать мышью все нужные (так было задумано), но если что - нетрудно слегка модифицировать

Спасибо - поковыряюсь, если получится)) - я ведь только учусь лиспить то)))

[kp+]

как использовать готовый код - написано в FAQ.

[allar8]

Сообщение от kp+ как использовать готовый код - написано

Да не - использовать то конечно могу, и уж давно. Поковыряюсь - в смысле модифицировать)

----- добавлено через ~8 мин. -----

Сообщение от allar8 Люди, подскажите плиз - можно как нить заменить текст на поля. Т.е. у меня ссылки на чертежах в виде текста например (см. л. 3). Нужно л.3 везде заменить на номер нужного листа в подшивке. Такое возможно? Пробовал вставлять в поиске/замене код поля - все равно вставляет текстом а не полем.

Хотя нашел конечно еще решение, но все равно с поиском заменой было бы ваще супер.
С помощью префиксов и суфиксов в программе number.dvb. Она коды полей воспринимает.

[kp+]

Сообщение от allar8 Хотя нашел конечно еще решение, но все равно с поиском заменой было бы ваще супер.

только что попробовал BFIND. Отлично сработало. По мне, единственный минус - нельзя ограничить область поиска и замены выбранными объектами, только весь чертеж, но Вам вроде бы этого и надо.

[allar8]

Сообщение от kp+ только что попробовал BFIND. Отлично сработало. По мне, единственный минус - нельзя ограничить область поиска и замены выбранными объектами, только весь чертеж, но Вам вроде бы этого и надо.

ну да. Только я им тож пробовал - он блин мне все поля перепутал. Ща еще раз попробую

[kp+]

Сообщение от allar8 он блин мне все поля перепутал

ну так им надо пользоваться осторожно, как оружием массового поражения. Вы какую замену задали? Например "л. 3" на "л. <код поля листа 3 из подшивки>"? А он нагадил еще и в л. 13, л. 23, л. 33? Ну так надо было сначала заменить л. 33, потом 23, потом 13 и в последнюю очередь 3. Он же не живой, по-людски не объяснишь.

[allar8]

Сообщение от allar8 Ща еще раз попробую

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

----- добавлено через 30 сек. -----

Сообщение от kp+ ну так им надо пользоваться осторожно, как оружием массового поражения

))) точно оружие массового поражения)))

[kp+]

Сообщение от allar8 В обчем знаете наверно засаду - как путается автокад с одинаковыми цифрами в полях и просто в совершенно других местах. Вот тут это проявилось в полной мере)))

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