[bdfy]

Есть большое количество документов в автокадовском формате. различных часто нестандартных (длинных) форматов. принципиально-монтажные схемы релейной защиты.
Оформлены давно, с тех пор поменялись стандарты оформления и главное персонал сменился. Все чертежи необходимо "пересмотреть", фактически это сводится к чему:
- все файлы открыть
- рамки из них выкинуть (ее можно вычислить в принципе как крайний элемент в схеме)
- вставить новые рамки
- сохранить и в перспективе распечатать.
все чертежи полностью выполнены в пространстве модели, т.е. вьюпортами и пр никто никогда не пользовался.

в визио я бы с этой задачей пожалуй что справился бы, но с автокадом знаком поверхностно, программировать в нем никогда не пробовал. Как эта задача может решатся ? Как ее сформулировать если заказать на $ ? Может сталкивался уже кто нибудь с таким и есть готовое решение ?

[Do$]

Сообщение от bdfy - все файлы открыть

Если их очень много, боюсь, компутер зависнет. Или имеется в виду пройтись по всем файлам, то есть открывать по очереди? И сколько их, если не секрет?

Сообщение от bdfy - рамки из них выкинуть (ее можно вычислить в принципе как крайний элемент в схеме)

Хоть один чертеж в качестве примера не помешал бы (дабы не гадать из каких примитивов состоит рамка).

[T-Yoke]

Сообщение от bdfy Есть большое количество документов в автокадовском формате. различных часто нестандартных (длинных) форматов. принципиально-монтажные схемы релейной защиты. Оформлены давно, с тех пор поменялись стандарты оформления и главное персонал сменился. Все чертежи необходимо "пересмотреть", фактически это сводится к чему: - все файлы открыть - рамки из них выкинуть (ее можно вычислить в принципе как крайний элемент в схеме) - вставить новые рамки - сохранить и в перспективе распечатать. все чертежи полностью выполнены в пространстве модели, т.е. вьюпортами и пр никто никогда не пользовался. в визио я бы с этой задачей пожалуй что справился бы, но с автокадом знаком поверхностно, программировать в нем никогда не пробовал. Как эта задача может решатся ? Как ее сформулировать если заказать на $ ? Может сталкивался уже кто нибудь с таким и есть готовое решение ?

Как вариант, использовать рамку как динамический блок(где-то здесь попадалась такая) с полями для заполнения.
Метод работы такой.
Окрываете чертеж,
вставляте туда динблок с рамкой в специально созданном слое,
делает слой текущим, а все остальные блокируете, чтобы не снести чего нибудь нужное.
Добавляете все необходимые атрибуты блока рамки.
удаляете старую рамку.
Сохраняете чертеж. ВСЕ
P.S. Правда, все равно придется открыть КАЖДЫЙ чертеж и поработать руками.

[bdfy]

Если их очень много, боюсь, компутер зависнет. Или имеется в виду пройтись по всем файлам, то есть открывать по очереди? И сколько их, если не секрет?

любая программная обработка предполагает последовательную обработку файлов конечно же ) открыл - обработал - закрыл.
файлов около 400. по самым скромным подсчетам.
пример во вложении. причем в данном случае рамка даже вполне корректная - в этом случае задача даже проще
нужно поменять только фамилии.
т.е. имея базу вида
гл. инженер - <фамилия>
начальник - <фамилия>
чертил - <фамилия>
и т.д. пройтись по шапке чертежа заменить фамилии. вот только я смотрю шапка таблицы кое где блоком...
+ рамка в автокаде это же не таблица... найдем если даже обьект надпись "гл. инженер" к примеру - как определить куда писать ? по координатам ? тогда надо проверить что рамка точно везде одинаковая и заменять/указывать если другая.

P.S. Правда, все равно придется открыть КАЖДЫЙ чертеж и поработать руками.

как сделать руками то понятно ) но руки ж блин отвалятся учитывая что компы быстродействием большим не отличаются. поэтому и ищу программное решение.
повторюсь, в том же visio на VBA я бы задачу решил - условно говоря нашел ближайшие к краю листа примитивы, потер бы их и вставил бы новую рамку с нужно надписью. как это проделать в автокаде не представляю. последний раз с autolisp сталкивался лет пять назад и то писал не я ) сконвертировать в visio конечно можно, но потеряются все автокадовские примитивы обьекты. что неприемлимо. да и стандарт предприятия все таки автокад )
причем проблема достаточно стандартная... яндекс на фрилансе несколько таких задач показал например - но везде работали руками.

[Vova]

Сообщение от bdfy различных часто нестандартных (длинных) форматов.

Сообщение от bdfy - вставить новые рамки

На чертеже рамка удлиненная. Стандартная имеет другое соотношение сторон. Как собираешся заменять? Чертеж перекомпоновывать? Или, подобрав соотв. формат по длине смириться с тем что при стандартной ширине остается много пустого места?
Я бы сказал, что надо вручную. 400 штук это два дня работы. Программу писать это пол дня минимум + тестинг и доработка. Учитывая что программист-общественник не всегда свободен, за неделю, может, и справитесь.

[bdfy]

На чертеже рамка удлиненная. Стандартная имеет другое соотношение сторон. Как собираешся заменять?

для автокада нет шаблонов динамических рамок ? тогда как вариант менять только штамп. или рисовать рамку программно. рамка не такой сложный элемент.

вариант вручную понятен. для инженера это все таки не вариант. "лучше день потерять...". так что повторюсь это принципиально реализуемо ? может кто назвать ценник пример или хотя бы пример набросать ? VBA ведь теперь поддерживается вроже глядишь разберусь...
открыть файл
найти примитив и проделать с ним чего нить простейшее
сохранить, закрыть файл.
думаю по такому примеру уже можно будет подергатся

действительно. в автокаде теперь VBA открыть файл понятно как, закрыть сохранить тоже. вопрос как к фигурами в автокаде обращатся ? допустим простейший код на VBA в visio
for each sh in activepage.shapes
DEBUG.PRINT sh.cells("pinX") & "-" & sh.cells("pinY")
next

выдает координаты всех фигур на экран. как это в автокаде ? какие здесь обьекты вместо шейпов ? как их параметры получить ?

[dvim]

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

на первом - рамка это блок, да еще и с названием "Рамка" Соответственно поменять его на другой блок, подогнав по размерам - это вполнее решаемая задача.

Во втором - это набор линий и текста.
Теоретическим можно найти координаты текста "СЗПИ" и оттуда уже вычислить координаты "рамки" и ее порезать... (в свое время такой скрипт делал для обработки амерских чертежей - допущений куча, но он работает)
но это сложно.

А вообще сделать можно все ) при большом желании.

по языку для написания скрипта с перебором нужен не внутренний VBa а что то другое. Либо VB и СOM либо нет. Тк VBa плохо работает при открытии и просмотре многих файлов

[Do$]

Так нужно заменить рамку, штамп или ФИО в штампе?
Заменить штамп или ФИО в первом вложенном чертеже легко - там штамп выполнен в виде блока с именем "РАМКА", а ФИО в виде атрибутов этого блока с соответствующими названиями. То есть с чертежами такого типа все просто - открыл, нашел блок "РАМКА" и заменил значения атрибутов на нужные.
Во втором случае нужно придумывать более сложный алгоритм. Например (для ФИО): ищем текст с содержанием "Гл. инженер", затем находим текст напротив него (определяем все тексты, находящиеся правее, находим ближайший из них), меняем ему содержание на нужное, затем находим текст "Нач. службы" и т.д.
А как в других чертежах? В любом из них либо как в первом либо как во втором? Или есть еще вариации?

[bdfy]

обсудили тут все еще раз - оказывается рамку относительно недавно у нас приняли новую.
так что все таки необходимо выкидывать все что похоже на рамку и вставлять новую. вариаций может быть Ннное количество, но в основном это просто нарисованная (без блока) рамка.

Тк VBa плохо работает при открытии и просмотре многих файлов

в чем проблема ? команда dir в вба работает отлично. если получается открыть один файл получится и тыщу.
покажите плиз пример какой нить с обращением к шейпу, выборкой по параметру какому да я может и сам разберусь. с вба в visio опыт есть немаленький.

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

[Do$]

Еще раз... рамку нужно заменить или штамп? Рамка - это "двадцать мм слева и по пять мм с других сторон вокруг чертежа". Штамп - это таблица, в которой название чертежа, фамилии исполнителей и проверяющих и пр.

[bdfy]

понял. потерялся я в терминологии. штамп надо заменить.
просто я привык рамку со штампом рассматривать как один элемент )

[dvim]

Пример доступа к объектам ...


ThisDrawing.Utility.Prompt ("Выберете")
Set sss = ThisDrawing.SelectionSets.Add("s" + DateTime.Time$)
sss.SelectOnScreen
For k = 0 To sss.Count - 1
cvet = sss.Item(k).color
lay = sss.Item(k).Layer
If sss.Item(k).ObjectName = "AcDbText" Then
point = sss.Item(k).TextAlignmentPoint 'где текст
txt = sss.Item(k).TextString 'координата
End If

If sss.Item(k).ObjectName = "AcDbLine" Then
Set e = sss.Item(k)
point = sss.Item(k).StartPoint 'линия начало
point2 = sss.Item(k).EndPoint 'лин конец
End If
Next k

End Sub

[Do$]

Сообщение от bdfy итого надо искать рамку. чтобы ее затереть. крайние линии определить думаю легко, они крайние на чертеже большой длины. рамку можно выделить по координатам относитльно правого нижнего угла. я не прав ?

Найти, затереть и вставить другой штамп - это более-менее осуществимо. Но надо же еще название чертежа перенести из старого штампа в новый. Там будут еще некоторые неувязочки, если по размерам новый штамп будет отличаться от старого - он может налезать на объекты чертежа или же некоторые линии, которые раньше упирались в штамп, повиснут в воздухе (см.вложение). То есть, потом все равно придется открывать каждый чертеж и править ручками.

[bdfy]

если по размерам новый штамп будет отличаться от старого - он может налезать на объекты чертежа или же некоторые линии, которые раньше упирались в штамп, повиснут в воздухе (см.вложение).

а если затирать рамку и штамп полностью, потом считать границы чертежа и сообразно им выставлять рамку ?

[Do$]

Сложно, муторно, головоломно...
С моей точки зрения, целесообразно сделать по принципу: "По максимуму избавиться от повторяющихся действий и сделать все вручную."
То есть, открываем вручную чертеж, запускаем программу, которая просит указать:

• рамку
• основную надпись
• название раздела проекта
• название чертежа
• и т.п.

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

[Nike]

Пока программу будете сочинять можно 400 раз всё заменить

[Do$]

Да кто его знает, что там за цели! Может быть у них основная надпись по два раза в неделю меняется

[bdfy]

еще раз - отказатся от тупой работы это дело принципа ) я бывало и в пять раз больше времени тратил на решение задачи программно. скилы они всегда пригодятся. буду пробовать потиху. жаль конечно что нет готовых решений. может есть пример вставки блока рамки и забивания ее надписи по известным данным хотя бы ?
Do$,
а вот с полуавтомата можно начать ) а уже потом пытаться сделать "анализатор схемы" программный. как в автокаде будет выглядеть запрос на выделение обьекта ?

[Nike]

Сообщение от bdfy может есть пример вставки блока рамки и забивания ее надписи по известным данным хотя бы ?

Могу дать пример такой программульки - данные штампа хранятся в текстовом файле рядом с чертежом, при вставке блока штампа данные считываются и вставляются в соответствующие атрибуты. Писана на LISP под свои цели. Код безобразный и малограмотный, но рабочий.

[Do$]

Сообщение от bdfy как в автокаде будет выглядеть запрос на выделение обьекта ?

В AutoLisp,VisualLisp - функции entsel, nentsel, ssget. Но, насколько я понял, писать планируется на VBA - с ним я не знаком.

[bdfy]

да, примеры на лисп мне помогут мало ( - новый язык учить в мои планы не входит