[Agonist]

Добрый день, коллеги.
Есть ли иной способ добраться до содержания подшивочного файла типа .dst, кроме как диспетчера подшивки в самом автокаде?
Это нужно вот для чего
сделали мы узел, допустим ТМ15 на первый энергоблок. Второй энергоблок такой же, за исключением привязок и по мелочи там. Имена файлов dwg в подшивке содержат ТМ15. На второй блок - то же самое, только ТМ16. Когда копируешь все файлы и переименовываешь в ТМ16 - привязки файлов в новой подшивке для второго блока остаются на прежний ТМ15 узел. И приходится пере-импортировать листы, указывая новое месторасположение (ТМ16). Как бы залезть в "кишки" dst и разом перебить физические привязки к файлам с ТМ15 на ТМ16? Hex editor-ом не получилось достать. Есть какие-то идеи по ускорению процесса?

[allar8]

Сообщение от VitalyAF Пожалуйста! Вот ещё вариант GetXMLDST.lsp на LISP-е в конце файла см. Typical use: PS без ошибок!

Большое спасибо!
Но чет не знаю как запускать такой). Defun с: то нету)))

----- добавлено через ~11 мин. -----
Разобрался - спасибо огромное!

----- добавлено через ~23 мин. -----
Все гуд - работает!
Осталось еще найти способ ссылки на доп свойства подшивки в файлах двг переименовывать и ваще тогда "заживем"))).
Если конечно такое возможно).
В другой теме задавал вопрос - пока тишина.

[trir]

Код:

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

                            if (ent.ObjectClass.DxfName == "MTEXT")
                            {
                                MText txt = tr.GetObject(ent, OpenMode.ForWrite) as MText;
                                string txt_val = txt.getMTextWithFieldCodes();
                                doc.Editor.WriteMessage($"\n {txt_val}");
                                if (txt_val == "%<\\AcSm SheetSet.Name \\f \"%tc3\">%-%<\\AcSm Sheet.10_Номер по генплану \\f \"%tc3\">%-%<\\AcSm Subset.Name \\f \"%tc1\">%-")
                                {
                                    txt.SetContentsRtf("%<\\AcSm.16.2 SheetSet.ProjectNumber>%-%<\\AcSm Sheet.10_Номер по генплану>%-%<\\AcSm Subset.Name>%-%<\\AcSm Sheet.17_Наименование чертежа \\f \"%tc3\">%");
                                }
                            }

[allar8]

Сообщение от trir if (ent.ObjectClass.DxfName == "MTEXT") { MText txt = tr.GetObject(ent, OpenMode.ForWrite) as MText; string txt_val = txt.getMTextWithFieldCodes(); doc.Editor.WriteMessage($"\n {txt_val}"); if (txt_val == "%<\\AcSm SheetSet.Name \\f \"%tc3\">%-%<\\AcSm Sheet.10_Номер по генплану \\f \"%tc3\">%-%<\\AcSm Subset.Name \\f \"%tc1\">%-") { txt.SetContentsRtf("%<\\AcSm.16.2 SheetSet.ProjectNumber>%-%<\\AcSm Sheet.10_Номер по генплану>%-%<\\AcSm Subset.Name>%-%<\\AcSm Sheet.17_Наименование чертежа \\f \"%tc3\">%"); } }

Подскажите плиз это про это?

Сообщение от allar8 Осталось еще найти способ ссылки на доп свойства подшивки в файлах двг переименовывать

[trir]

да

[allar8]

Спасибо большое!

[VitalyAF]

Сообщение от allar8 Осталось еще найти способ ссылки на доп свойства подшивки в файлах двг переименовывать и ваще тогда "заживем"))).

Перенумеровывать у нас софтинка есть, под новый acad правда не работает, но особо-то и не напрягает, т.к. у нас источник полей в корне самой подшивки, оттуда все ноги растут, кроме того можно и с палитры свойств всё редактировать...
Лет 5-7 т.н. проект поделили на разделы, на каждый раздел свой проект (так легче сдавать по этапам) поэтому с нумерацией no проблем, всё в шаблоне подшивки.
Offtop: PS
Другое дело если речь идёт о сотнях листов и вы их постоянно обновляете,
значит жирные проекты, много ден. знаков зарабатываете, сотенку надо отслюнявить на прогу >> SSMPopEditor...

[allar8]

Сообщение от VitalyAF Offtop: PS Другое дело если речь идёт о сотнях листов и вы их постоянно обновляете, значит жирные проекты, много ден. знаков зарабатываете, сотенку надо отслюнявить на прогу >> SSMPopEditor...

))) Согласен если б было так то да - можно и отслюнявить сотенку)))
А так чисто просто интересно не в финансовом плане. Просто нравятся разные фишки с автоматизацией процесса.)))
Думаю не одному мне это все интересно тут. Люди тут вон многие пишут проги чисто под себя - разобрались. Большинство наверно тут не программисты по образованию а проектировщики.
Я вот тож хочу разобраться. Просто интересно.

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

Сообщение от VitalyAF Пожалуйста! Вот ещё вариант GetXMLDST.lsp в конце файла см. Typical use: PS без ошибок!

А за лисп Вам просто отдельное огромнейшее спасибо! Уже проверил все. Зачет!
Сделал на кнопочки - просто шикардос!!!

----- добавлено через ~5 мин. -----
Автонумерация пока не тревожит сильно. Но согласен была бы кстати. В моем случае мелочь - а было бы приятно). А вот подпапки, да - ща часто приходится переименовывать.

[Сергей812]

Offtop:

Сообщение от allar8 Большинство наверно тут не программисты по образованию а проектировщики.

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

[allar8]

___

[Alexeipost]

Добрый день!
GetXMLDST.lsp работает в автокаде 2014, а в 2015 не работает(((

----- добавлено через ~21 ч. -----
Может кто сможет сделать так чтобы и в 2015 работало?

[trir]

телепатов нет

[TABAK]

Сообщение от allar8 Большое спасибо! Но чет не знаю как запускать такой). Defun с: то нету))) ----- добавлено через ~11 мин. ----- Разобрался - спасибо огромное!

Подскажите, как запустить это дело? (так стремно чувствовать себя тупым =(( )

[trir]

Код:

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

    ;;  Typical use:
    ;;
    ;;  (setq
    ;;      dstSource "x:\\SourceSheetSet.dst"
    ;;      xmlTest   "x:\\TestSetTest.xml"
    ;;      dstTest   "x:\\TestSetTest.dst"
    ;;  )
    ;;
    ;;  (_DstFiletoXmlFile  dstSource  xmlTest)
    ;;  (_XmlFiletoDstFile  xmlTest    dstTest)
    ;;
    ;;  If dstTest proves ok use it to overwrite dstSource.

[allar8]

Сообщение от TABAK Подскажите, как запустить это дело? (так стремно чувствовать себя тупым =(( )

Cам уж не помню. Давно не пользовался. Да и честно говоря не особо простой вообще этот вариант для использования. Если долго не пользоваться забывается.
Но если очень надо, то привыкнуть можно конечно.
Вроде такой алгоритм
1) Вроде еще нужно подключить два лиспа для кнопок (см. вложения dst to xml.LSP и xml to dst.LSP). И еще прикладываю мой GetXMLDST.lsp - возможно в нем я че то закоментировал
2) Создать две кнопки по вышеуказанным лиспам(см. вложения)
3) Создать папку decodedst на диске D:
4) В эту папку кладем нашу подшивку и переименовываем ее в SourceSheetSet.dst

4)Первая кнопка "dst to xml" загоняет содержимое подшивки SourceSheetSet.dst в файл xml (TestSetTest.xml)
5)файл TestSetTest.xml открываем и редактируем вручную (поиском заменой) в Notepad++ v.7.7.1 или ему подобных
6)сохраняем
7)нажимаем вторую кнопку "xml to dst", которая обратно сохраненный TestSetTest.xml преобразует в TestSetTest.dst
8) Обратно переименовываем нашу отредактированную подшивку TestSetTest.dst
Попробуйте может получится
Иконки мои вам еще могу дать для кнопок) см. вложение

[allar8]

Сообщение от allar8 Иконки мои вам еще могу дать для кнопок) см. вложение

Вот)

[trir]

проще взять мою либу - https://github.com/triroakenshield/AcSmSheetSetMgr
и прикрутить к ней GUI

[allar8]

Сообщение от trir проще взять мою либу - https://github.com/triroakenshield/AcSmSheetSetMgr и прикрутить к ней GUI

А тут в чем идея?
Пытался недавно С++ поизучать. Но чет все времени нету. А так интересно канешна.
А тут C#?

[VitalyAF]

На Autodesk форуме видел текст расширенной DST скомпилировать только осталось...

[allar8]

Сообщение от VitalyAF расширенной DST

Тоже интересно, но не совсем понятно и ссылочку бы)

[trir]

А тут в чем идея?

там код для создания/редактирования dst