Макрос сохранения развертки в DWG

[Maik812 290]

сделать две детали и вторую устанавливать зеркально :)

[Stranger_Solid 1]

В 15.07.2020 в 12:33, Maik812 сказал:

сделать две детали и вторую устанавливать зеркально :)

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

В 13.07.2020 в 20:43, Snake 60 сказал:

@Stranger_Solid Спасибо за отзыв. Приятно, что мои потуги в освоении VBA пригодились еще кому-то кроме меня ))

По-поводу функции зеркалирования, не уверен, что смогу это сделать, по крайней мере на данном этапе развития )

Я выхожу из этой ситуации двумя способами:

1) отзеркаленную деталь также можно преобразовать в листовой металл и уже с нее сделать развертку.

2) отзеркалить в автокаде

 

Я зеркальные детали еще делаю прямо из родительской.
При сохранении DXF в меню слева в солиде, во вкладке "Выравнивание вывода" нажимаю "Реверс направления по оси Х"

 

Возможно, эта информация как-то поможет Вам в дальнейшем)

[Snake 60 693]

@malvi.dp Немного разобрался с выравниванием развертки. Попробуйте на Ваших деталях где были проблемы с этим:

ExportToDXF (Snake-60 Edition v1.2.3.2).rar

[malvi.dp 266]

54 минуты назад, Snake 60 сказал:

Немного разобрался с выравниванием развертки. Попробуйте на Ваших деталях где были проблемы с этим:

Сейчас в командировке, как только доберусь до компа, отпишусь!

[Snake 60 693]

@Stranger_Solid  и остальные коллеги, добавил в макрос возможность зеркалирования развертки и функцию выравнивания (вкл./выкл)

Прошу затестить :)

ExportToDXF (Snake-60 Edition v1.2.3.3).rar

[Stranger_Solid 1]

@Snake 60 У меня работает) Благодарю)

[Ветерок 2 108]

Попробовал макрос, работает.

Наверное, было бы неплохо добавить возможность передавать линии гиба.

[Stranger_Solid 1]

@Snake 60 Смутило следующее: я сохранил одну деталь, потом сохранил зеркальную.
Дальше открываю из той же сборки третью деталь, а галочка "зеркально" осталась)

Т. е. я сначала не заметил и сохранил по десятку зеркальных исполнений для 5 деталей )

Можно ли сделать так, что бы после перезапуска эта галочка снималась?)

И еще обратил внимание: 
1. Выбираю все конфигурации в блоке "Выбор исполнений (конфигураций)."

2. В блоке "Опции обработки имени" промахиваюсь и вместо опции "Имя детали - Имя исполнения" нажимаю на "Набор свойств из вкладки конфигурации"
3. Запускаю макрос, пью 25 минут чай.
4. В папке с DXF лежит только один файл) Потому что свойств я не задавал, в поля ничего не вводил и имя файла в итоге "Т-ШТ--.dxf". В процессе создания DXF файлов каждый новый заменяет более старый файл.

[Ветерок 2 108]

@Snake 60 макрос сохраняет не только развертку в DXF, но и заново сохраняет саму деталь. Думаю, что сохранять деталь заново не нужно, достаточно только развртки.

[Stranger_Solid 1]

@Snake 60

Присоединяюсь к @Ветерок

Конфигурации созданы через эксель и при сохранении каждой конфигурации вылазит эта табличка параметров) Здоровски тормозит процесс)

[Snake 60 693]

В 13.08.2020 в 14:11, Ветерок сказал:

Попробовал макрос, работает.

Наверное, было бы неплохо добавить возможность передавать линии гиба.

Добавлю в следующей версии.

 

22 часа назад, Ветерок сказал:

@Snake 60 макрос сохраняет не только развертку в DXF, но и заново сохраняет саму деталь. Думаю, что сохранять деталь заново не нужно, достаточно только развртки.

Меня напрягало сообщение после сохранения развертки, поэтому добавил вот эту строку:

'сохраняем деталь в тихом режиме
boolstatus = swPart.Save3(swSaveAsOptions_Silent, lErrors, lWarnings)

если хотите, просто закомментируйте эту строку

В 13.08.2020 в 15:48, Stranger_Solid сказал:

4. В папке с DXF лежит только один файл) Потому что свойств я не задавал, в поля ничего не вводил и имя файла в итоге "Т-ШТ--.dxf". В процессе создания DXF файлов каждый новый заменяет более старый файл.

Подумаю как исправить...

 

3 часа назад, Stranger_Solid сказал:

Конфигурации созданы через эксель и при сохранении каждой конфигурации вылазит эта табличка параметров) Здоровски тормозит процесс)

Посмотрю что можно сделать.

[Ветерок 2 108]

10 минут назад, Snake 60 сказал:

если хотите, просто закомментируйте эту строку

Где эта строка? Там же бинарный файл.

[Snake 60 693]

1 минуту назад, Ветерок сказал:

Где эта строка? Там же бинарный файл.

Да нет, же. Обычный файл макроса с расширением .swp открывается и правится в стандартном VBA-редакторе.

 

[Plumber 738]

3 минуты назад, Ветерок сказал:

Где эта строка?

Макрос надо открыть на редактирование "Инструменты - Макрос - Редактирование"

[Snake 60 693]

@Ветерок @Stranger_Solid и все остальные коллеги - просьба проверить в работе новую версию.

Исправил все ваши замечания и добавил пожелания. Добавил раздел опции сохранения развертки:

ExportToDXF (Snake-60 Edition v1.2.3.4).rar

 

[Ветерок 2 108]

2 часа назад, Snake 60 сказал:

просьба проверить в работе новую версию

Спасибо. Работает.

Открыл файл, применил макрос, закрываю - спрашивает сохранить ли изменения. Что он там меняет?

 

Нет ли макроса для пакетного создания разверток нескольких файлов?

[Snake 60 693]

19 часов назад, Ветерок сказал:

Открыл файл, применил макрос, закрываю - спрашивает сохранить ли изменения. Что он там меняет?

1) Возможно из-за принудительного перестроения, без которого есть шанс, что развертка правильно не развернется;

2) Возможно сам процесс создания развёртки преобразуется деталь в плоский вид изменяет состояние детали;

3) Возможно то и другое

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

19 часов назад, Ветерок сказал:

Нет ли макроса для пакетного создания разверток нескольких файлов?

В процессе написания макрос пакетного сохранения разверток листовых деталей из сборки.

[Ветерок 2 108]

1 час назад, Snake 60 сказал:

Можете просто закрывать без сохранения изменений.

я так и делал

[malvi.dp 266]

@Snake 60 , попробовал открыть скачанные архивы с макросом, пишет "архив поврежден или имеет неизвестный формат". Возможно ли заархивировать другим архиватором (возможно мой старой версии не может его открыть, хотя другие архивы открываются без проблем)? Или прикрепите только файл самого макроса. Спасибо.

[Snake 60 693]

@malvi.dp  запаковал в ZIP, пробуйте:

 

ExportToDXF (Snake-60 Edition v1.2.3.4).zip