[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)
Как это сделать наиболее быстро ума не приложу. Помогите кто знает

[Pavel23]

Всем привет, кто откликнется, темка старая однако...
Пользовался лиспом tfind2fun, работает отлично, но есть один баг, прога сносит многострочные атрибуты, оставляет только первую строку.
Редактировал чертеж старенький, основные надписи - блоки с многострочными атрибутами, почикал все.
Ни кто не знает, как с этим феноменом бороться???

[Vova]

Сообщение от Pavel23 Редактировал чертеж старенький, основные надписи - блоки с многострочными атрибутами,

Кажется, м. атрибуты появились в 2008....
Хотя да, действительно старенький, 4 автокада назад
По существу-надо-бы связаться с автором проги, потому что другой программист не бyдет исправлять, пока есть надежда найти автора

[Pavel23]

A кто у нас автор, в тексте проги нашел только Mark Mercier, и где его искать...

[r6311]

Сообщение от engngr Например. Имеем значения атрибута "1", "27" и т.д., требуется превратить "1", "27" в "К1-1", "К1-27". Вложение 30805

Тут кто-то на форуме писал, что по сути требуется к определённому виду записи добавить что либо. У меня была подобная ситуация когда к более чем тысячи отметок требовалось дописать в конце ноль, замечание нормоконтроля))
Конечно для поиска решения данной проблемы я потратил времени больше чем если бы правил всё в ручную, но а как иначе то))
В общем требовалось найти все отметки вроде 150,02 и прочих, и заменить её на 150,020.
Стандартными средствами autocad сделать этого не получилось, но нашёл выход, и довольно быстро всё это делается.
Быстрым выбором выделил все мультивыноски (именно там были отметки прописаны), остальное удалил, чтобы не мешалось. Далее сохранил чертёж в dxf формат (dxf это если кто не знает просто текстовый документ и его можно открыть в блокноте или ворде). Как раз в ворде я его и открыл, и вот его средствами произвёл замену. Сохранил и готово))

При замене в ворде в поле "Найти" писал: 1??,??
а в поле "Заменить на": ^&0

^& - означает искомый текст, 0 - злополучный ноль, который надо дописать

[Astartes]

AlexV, Нужна ваша помощь. Перестал работать нумератор подправленный вами вот здесь (http://forum.dwg.ru/showpost.php?p=651998&postcount=59)
Я перешел на Акад 2012 64 бита, виндовс 7. Вот какое сообщение выскакивает, когда я пытаюсь запустить команду (см. приложение).
Не знаете в чем может быть дело?

[AlexV]

Сообщение от Astartes AlexV, Нужна ваша помощь. Перестал работать нумератор подправленный вами вот здесь (http://forum.dwg.ru/showpost.php?p=651998&postcount=59) Я перешел на Акад 2012 64 бита, виндовс 7. Вот какое сообщение выскакивает, когда я пытаюсь запустить команду (см. приложение). Не знаете в чем может быть дело?

Ну, в А2013 64b подправил, вроде работает, по крайней мере форма вылазит, и тексты обрабатываются. Насчет 2012 64b не уверен..

[Astartes]

AlexV, Да, к сожалению в 2012 64 не работает. Ругается уже в другом месте. Неужели 2013 и 2012 так сильно отличаются.

[AlexV]

Сообщение от Astartes AlexV, Да, к сожалению в 2012 64 не работает. Ругается уже в другом месте. Неужели 2013 и 2012 так сильно отличаются.

Ну, VBA и в том и в том уже пятое колесо "то лапы ломит, то хвост отваливается".. У меня А2012 64 битный есть, но вба на нем не стоит, - че то по личным самоощущщениям, добавляет он в этой версии изрядное количество косяков, глюков и тормозов (по крайней мере, на моей машине)..
...А ругаетси, наверное, у тебя потому, что я в 2013 сохранил файл. Попробуй в редакторе VBA в референсах подключить Autocad 2012 Type Library

[Astartes]

AlexV, Обратно, огромная благодарность тебе. Все заработало.

Вопрос по поводу косяков. Я правильно понял, что при установке Vba-enabler для автокада, он весьма вероятно добавляет в работу автокада косяков даже, если не пользуешься Vba?

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

Не уверен, что ссылка прокатит, поэтому цитирую:

Сообщение от BDima После обновления компа столкнулся с проблемой - катастрофически долго думает после команды сохранить. Решается удалением программы VBA enabler. Но без VBA туговато приходится - многим командам, на нем написанным не нашел замены. На рабочем компе Autocad той же версии, тока 32х битный - проблем нет, хотя и железо там уже староватое - тот же файл сохраняет вполне приемлемо по времени. Пробовал на 2011 и 2013 версиях - одинаково неприятно. Кто-нибудь сталкивался с такой проблемой? ЗЫ В процессе работы никаких нареканий не возникает, даже автосохранение проходит хоть и не так быстро, но вполне терпимо, а вот главная кнопка вводит CAD в ступор.

Сообщение от kpblc Если ОС 64 бита, то такое вполне предсказуемо: VBA до сих пор работает в 32-разрядном варианте. Вроде как Autodesk собирается обновить VBA, но каков будет результат - неизвестно. В любом случае такое можно ждать не раньше 2014 версии... P.S. А что за программы-то? Может, их как-то можно переписать, например, на VB.NET? Благо подобные уроки вроде как лежали на официальном сайте... P.P.S. Блин, когда ж я-то перейду на .NET?? --- Добавлено: во, нашел: http://www.autodesk.ru/adsk/servlet/...36&id=18077292

Сообщение от BDima как то странно - VBA взят с оф сайта и неужели у всех такой же косяк. Собственно не программы, а простые команды типа fieltotext, нумератор и еще куча всякой нужной мелочи. Может конечно для них и есть альтернатива, да просто весь рабочий процесс уже отлажен - а тут такая неприятность. Честно говоря далек я от творчества написания лиспов и всяческих языков программирования - тупо пользую чужие разработки, отвечающие моим требованиям. За ссылку спасибо - желание все же присутствует вникнуть в глубины и овладеть тайнами, да времени не хватает, а может лень.

Сообщение от kpblc А если попробовать оставить VBA Enabler, но при этом не подгружать ни один dvb-проект, а также выгрузить дополнительные меню - тогда тоже тормоза?

Сообщение от BDima Ага, действительно, пока ничего из .dvb не загружено - работает нормально. А если совсем удалить VBA enabler - еще быстрее. То есть думаете выход один - отказаться от использования VBA?

Сообщение от kpblc DVB-модуль можно выгрузить так же, как он и загружался: _.appload -> найти в списке имя модуля -> Unload / Выгрузить. В LISP есть функция vla-unloaddvb <Имя выгружаемого dvb-модуля> В VBA: ThisDrawing.Application.UnloadDVB <Имя выгружаемого dvb-модуля> В .NET, кажется, тоже что-то подобное было. Но тут не уверен.

[AlexV]

Сообщение от Astartes AlexV, Обратно, огромная благодарность тебе. Все заработало. Вопрос по поводу косяков. Я правильно понял, что при установке Vba-enabler для автокада, он весьма вероятно добавляет в работу автокада косяков даже, если не пользуешься Vba?

Именно так. Не знаю, у всех ли так, а у меня - на 64b системе, если установлен vba, - со временем начинается глюк с системными окнами автокада ("сохранить" в частности) - при вызове команды акад виснет на несколько минут.

[SteelBrother]

Вроде как в теме этот линк не видел:
http://lee-mac.com/bfind.html
может кому пригодится, давно пользуюсь, очень удобное приложение на лиспе.

[Astartes]

Приветствую.
Есть мультивыноска с текстом и символом. Точнее с цифрой и символом, к примеру 3*, 9*.
Мне нужно найти все мультивыноски со звездочками.
Набираю в команде find - #'* (решетка, апостроф, звезда). Но не находит ничего.
Я ведь правильно задаю критерий запроса. Решетка, это одиночная цифра, апостроф отменяет "роль" звезды как спецсимвола и делает его обычным символом. Или не так.
Пробовал ставить разные галочки в расширенных настойках поиска, но все равно ничего не находит.
Автокад 2013 русский.

[sertor]

Astartes, а если _find (найти) ->*

[pan]

Сообщение от Astartes Набираю в команде find - #'* (решетка, апостроф, звезда). Но не находит ничего.

У тебя не апостроф. Вот апостроф `

[Astartes]

sertor, Тогда он найдет вообще все мультивыноски где есть хоть какие то символы.

pan, Спасибо. Все работает.

[jon73]

Добрый день! КТО НИБУДЬ сталкивался с задачей суперсложности? на планах есть номера экспликаций в многостр тексте (пр. 001, 002, и т.д. ) отдельно есть таблица в экселе где каждому номеру эксликации помещения присвоены напротив значения воздухообменов (пр. 001- 750м3/ч; 002 - 10м3/ч) . ВОЗМОЖНО ли средствами автокада выполнить автозамену оптом выделив все тексты экспликаций и чтобы вместо них (или рядом) нарисовались тексты второго столбца соответственно , НО в текущих местах где стоит текст экспликаций на планах.??? Простите за мои фантазии... лень - двигатель прогресса!

таблицу экселя можно перевести в автокадовскую табл. путем вставки "объек автокада"

[Bull]

Если конкретно про данный пример, то ничего сложного. _find ищет и заменяет везде. Даже настраивается. Заменить "001" на "001-750куб.м." не проблема. А если надо, чтобы при этом читалось значение из экселя, думаю, это невозможно. Если только умельцы тут хитрый лиспик не сделают. Но это надо в "программирование" писать.

[jon73]

А если таких помещений 500 шт мне 500 раз вводить команду поиск и замена?

[Bull]

так помещений или номеров? _find заменит за раз везде, где найдется текст для замены - кнопка там есть соответствующая.