| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Поиск и замена текста

Поиск и замена текста

Ответ
Поиск в этой теме
Непрочитано 11.11.2009, 22:49
Поиск и замена текста
TechNick
 
Инженер
 
Нижний Новгород
Регистрация: 19.04.2006
Сообщений: 15

Добрый день. Такой вопросик очень нужно решить.
На чертеже существует около тысячи однострочных текстов с подписями марок дорожного ограждения видов:
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)
Как это сделать наиболее быстро ума не приложу. Помогите кто знает
Просмотров: 98435
 
Непрочитано 28.08.2019, 11:31
#161
allar8


 
Регистрация: 12.03.2013
Сообщений: 650


Цитата:
Сообщение от kp+ Посмотреть сообщение
Дальше надо видеть пример файла и пример маски для замены. Есть подозрение, что вопрос легко решается, только с нужного конца зайти.
Может и легко - но признаться мучает этот вопрос меня давно))).
а по поводу
Цитата:
Сообщение от kp+ Посмотреть сообщение
(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)
)
)
)
Результат чет странный - просто в ком строке выводится слово "ЧТО:"

----- добавлено через ~3 мин. -----
Цитата:
Сообщение от allar8 Посмотреть сообщение
Результат чет странный - просто в ком строке выводится слово "ЧТО:"
Разобралси), спасибо!
allar8 вне форума  
 
Непрочитано 28.08.2019, 11:34
1 | #162
kp+

идущий по граблям
 
Регистрация: 26.05.2005
Сообщений: 5,091


ну правильно, Вас спрашивают, ЧТО (какой текст) надо тиражировать и КУДА (в какие объекты) его вставлять. Я понимаю, что после последствий от BFIND желание экспериментировать немного угасает, но все же

Цитата:
Сообщение от allar8 Посмотреть сообщение
Может и легко - но признаться мучает этот вопрос меня давно))).
Ну так где предмет для дальнейшего обсуждения?
kp+ вне форума  
 
Непрочитано 28.08.2019, 11:37
#163
allar8


 
Регистрация: 12.03.2013
Сообщений: 650


Цитата:
Сообщение от kp+ Посмотреть сообщение
Я понимаю, что после последствий от BFIND желание экспериментировать немного угасает, но все же
Да не я уж знаком был с этим - просто решил ишо раз попробовать, - говорю же - на копии)))

----- добавлено через ~4 мин. -----
Цитата:
Сообщение от kp+ Посмотреть сообщение
ну правильно, Вас спрашивают, ЧТО (какой текст) надо тиражировать и КУДА (в какие объекты) его вставлять. Я понимаю, что после последствий от BFIND желание экспериментировать немного угасает, но все же
В обчем на данном этапе пока мне показалось очень полезная. Еще раз спасибо! Как говорится на безрыбье и рак рыба)
allar8 вне форума  
 
Непрочитано 28.08.2019, 11:43
#164
kp+

идущий по граблям
 
Регистрация: 26.05.2005
Сообщений: 5,091


Цитата:
Сообщение от allar8 Посмотреть сообщение
В обчем на данном этапе пока мне показалось очень полезная. Еще раз спасибо! Как говорится на безрыбье и рак рыба)
т.к. на вопрос из #160 и второй части #162 ответа нет, то на этой мажорной ноте можно пока остановиться
kp+ вне форума  
 
Непрочитано 28.08.2019, 11:46
#165
allar8


 
Регистрация: 12.03.2013
Сообщений: 650


Цитата:
Сообщение от kp+ Посмотреть сообщение
т.к. на вопрос из #160 и второй части #162 ответа нет, то на этой мажорной ноте можно пока остановиться
Да запросто - 5 мин). Только мы ведь с вами и без примера понимаем о чем речь то)
В этом примере интересует замена любого поля из подшивки. Свойства подшивки изменил без автокада. терь надо бы и в файле двг)

Последний раз редактировалось allar8, 20.03.2020 в 11:19.
allar8 вне форума  
 
Непрочитано 28.08.2019, 11:52
#166
kp+

идущий по граблям
 
Регистрация: 26.05.2005
Сообщений: 5,091


Цитата:
Сообщение от allar8 Посмотреть сообщение
Только мы ведь с вами и без примера понимаем о чем речь то
Понимаю, да не совсем. В конце концов, зачем мне ломать голову, на какой именно ситуации мог бы воспроизводиться описанный Вами глюк? Экстрасенсы лечат по фотографии, но по описаниям даже они не лечат
kp+ вне форума  
 
Непрочитано 28.08.2019, 11:54
#167
allar8


 
Регистрация: 12.03.2013
Сообщений: 650


Цитата:
Сообщение от kp+ Посмотреть сообщение
Понимаю, да не совсем. В конце концов, зачем мне ломать голову, на какой именно ситуации мог бы воспроизводиться описанный Вами глюк? Экстрасенсы лечат по фотографии, но по описаниям даже они не лечат
Приложил - если поможете буду бескрайне благодарен. Заранее спасибо!
allar8 вне форума  
 
Непрочитано 28.08.2019, 11:55
#168
kp+

идущий по граблям
 
Регистрация: 26.05.2005
Сообщений: 5,091


это неудачный результат. А где исходник без полей, не загаженный BFIND'ом? Я ж не вижу Ваш комплект и могу подумать, что ссылки на листы такие и должны быть.
И какую именно маску замены Вы задали BFIND'у?
kp+ вне форума  
 
Непрочитано 28.08.2019, 11:59
#169
allar8


 
Регистрация: 12.03.2013
Сообщений: 650


Цитата:
Сообщение от kp+ Посмотреть сообщение
это неудачный результат. А где исходник, перегаженный BFIND'ом? Я ж не вижу Ваш комплект и могу подумать, что ссылки на листы такие и должны быть.
И какую именно маску замены Вы задали BFIND'у?
В BFIND в строке поиска вставил код поля из подшивки
вот этот
%<\AcSm Database("d:\users1212\Проекты\1072PE\DProject\123_015_004\RZ\Current\гаршинская.dst").SheetSet("g1EF8EAF3-E429-410C-9ED0-43E6EBED5AD4").Component("g1EF8EAF3-E429-410C-9ED0-43E6EBED5AD4").Шкаф ДЗО_Пункт примечания изменения внутри шкафа \f "%tc1">%

в строке замены вот это
%<\AcSm Database("d:\users1212\Проекты\1072PE\DProject\123_015_004\RZ\Current\гаршинская.dst").SheetSet("g1EF8EAF3-E429-410C-9ED0-43E6EBED5AD4").Component("g1EF8EAF3-E429-410C-9ED0-43E6EBED5AD4").Шкаф ДЗШ_Пункт примечания изменения внутри шкафа \f "%tc1">%

т.е. посути то нужно заменить в коде полей ДЗО на ДЗШ, чтоб восстановить связь с подшивкой - которую я редактировал

Часть в примере уже руками заменил



----- добавлено через ~5 мин. -----
Цитата:
Сообщение от kp+ Посмотреть сообщение
А где исходник без полей, не загаженный BFIND'ом
А файл пример.dwg и был исходником не загаженный бфайндом

а вот убитый бфайндом вариант

Последний раз редактировалось allar8, 26.03.2020 в 16:36.
allar8 вне форума  
 
Непрочитано 28.08.2019, 12:15
#170
kp+

идущий по граблям
 
Регистрация: 26.05.2005
Сообщений: 5,091


Без подшивки в пределах досягаемости поля выглядят иначе: %<\AcSm Database("d:\users1212\Проекты\1072PE\DProject\123_015_004\RZ\Current\гаршинская.dst").SheetSet("g1EF8EAF3-E429-410C-9ED0-43E6EBED5AD4").Component("g0BED62BA-6C9A-4718-AA11-1BDF3C7C0F62").Number \f "%tc1">%
вместо %<\AcSm Database("d:\users1212\Проекты\1072PE\DProject\123_015_004\RZ\Current\гаршинская.dst").SheetSet("g1EF8EAF3-E429-410C-9ED0-43E6EBED5AD4").Component("g1EF8EAF3-E429-410C-9ED0-43E6EBED5AD4").Шкаф ДЗО_Пункт примечания изменения внутри шкафа \f "%tc1">%
Короче, нужен образец подшивки - файла DST


Впрочем, уже не нужен
у BFIND ограничение на длину текста для поиска и замены, похоже 256 симв.
Длиннющие коды полей подшивки вставляются в области ввода не полностью. Короче, BFIND в первозданном виде для ТАКОЙ замены не поможет

Последний раз редактировалось kp+, 28.08.2019 в 12:21.
kp+ вне форума  
 
Непрочитано 28.08.2019, 12:19
#171
allar8


 
Регистрация: 12.03.2013
Сообщений: 650


5 мин

----- добавлено через ~4 мин. -----
Цитата:
Сообщение от kp+ Посмотреть сообщение
Впрочем, уже не нужен
у BFIND ограничение на длину текста для поиска и замены, похоже 256 симв.
Ясно, ок

Последний раз редактировалось allar8, 28.08.2019 в 12:25.
allar8 вне форума  
 
Непрочитано 07.09.2019, 12:18
#172
allar8


 
Регистрация: 12.03.2013
Сообщений: 650


народ подскажите плиз как поиском найти символ знак вопроса, ведь он используется в качестве маски. Мне это необходима для поиска всех текстов с кракозябрами (в них как раз знак вопроса основной символ) и присвоение этим текстам нужного стиля с нужным шрифтом
allar8 вне форума  
 
Непрочитано 07.09.2019, 12:57
#173
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 11,008


Цитата:
Сообщение от allar8 Посмотреть сообщение
народ подскажите плиз как поиском найти символ знак вопроса, ведь он используется в качестве маски. Мне это необходима для поиска всех текстов с кракозябрами (в них как раз знак вопроса основной символ) и присвоение этим текстам нужного стиля с нужным шрифтом
не совсем корректный критерий.. скорее уж пройтись во всем текстам и где стоит несуществующий стиль - задать нужный, например.
Сергей812 вне форума  
 
Непрочитано 07.09.2019, 13:03
#174
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Цитата:
Сообщение от Сергей812 Посмотреть сообщение
скорее уж пройтись во всем текстам и где стоит несуществующий стиль - задать нужный, например.
Два самых простых метода - либо настроить стиль, либо использовать _.checkstandards. А так - попробуй перед символом вопроса поставить обратный слеш (\) или обратный же апостроф (`). Я не помню, что в окне поиска экранирует маски.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 07.09.2019, 13:25
#175
AlexCondor

инженер
 
Регистрация: 03.08.2007
Сообщений: 1,326


КМК, в поиске по знаку вопроса такой текст не найти, ведь он (знак) говорит только о том что в текущем стиле нет описания такого-то символа, и он не может быть отображен. Нужно искать символ под этим знаком вопроса.
AlexCondor вне форума  
 
Непрочитано 07.09.2019, 13:33
#176
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 11,008


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
Два самых простых метода - либо настроить стиль
Но тогда ведь станет просто множество одинаковых стилей, на которые ссылаются те или иные текстовые объекты... Хотя замена стиля не гарантирует читаемость текста, собственно
Сергей812 вне форума  
 
Непрочитано 07.09.2019, 13:43
#177
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Цитата:
Сообщение от Сергей812 Посмотреть сообщение
Хотя замена стиля не гарантирует читаемость текста, собственно
Это точно. Особенно учитывая возможность принудительного форматирования. Ну что ж, ТС могу поздравить с радостным вступлением в ряды пострадавших от неприменения _.etransmit
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 07.09.2019, 13:48
#178
allar8


 
Регистрация: 12.03.2013
Сообщений: 650


Цитата:
Сообщение от AlexCondor Посмотреть сообщение
КМК, в поиске по знаку вопроса такой текст не найти, ведь он (знак) говорит только о том что в текущем стиле нет описания такого-то символа, и он не может быть отображен. Нужно искать символ под этим знаком вопроса.
Видимо так(
Т.е. критерий не прокатил
но Так то настоящий знак вопроса действительно можно найти вот так '?)
Спасибо Кулику Алексею
Offtop: А про свою тему с кракозябрами пойду в другую тему поспрошаю)

Последний раз редактировалось allar8, 07.09.2019 в 13:53.
allar8 вне форума  
 
Непрочитано 23.09.2021, 19:59
#179
superkot007


 
Регистрация: 15.01.2010
Сообщений: 254


Вопрос вроде простой, но что-то туплю... Как заменить "0" на "-" (без кавычек), если в файле есть другие нули в составе текстов например, "0,2"?
superkot007 вне форума  
 
Непрочитано 23.09.2021, 21:33
#180
kp+

идущий по граблям
 
Регистрация: 26.05.2005
Сообщений: 5,091


Цитата:
Сообщение от superkot007 Посмотреть сообщение
Как заменить "0" на "-" (без кавычек)
Если надо обработать только те тексты, в которых только нули и больше ничего, нужно включить галочку "слово целиком" в стандартном окне поиска и замены.
Если надо что-то другое - уточните, приложите пример в духе "есть - должно быть".
kp+ вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Поиск и замена текста

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск фрагмента текста в текстовых файлах Nike Разное 23 14.05.2019 07:14
Групповой поиск и замена текста Torino Программирование 22 05.03.2016 23:00
LISP. Выравнивание текста по двум точкам. Krieger Готовые программы 10 24.12.2011 16:02
Поиск и замена текста на чертежах Autodesk Inventor Бриг Прочее ПО от Autodesk 4 21.01.2009 17:05
поиск и замена Dante AutoCAD 1 03.10.2007 18:26