Спецификация для SW по ГОСТ

[Leon 433]

Пакет макросов SWPlus

 

Здесь представлены VBA версии пакета макросов SWPlus. Также существует .Net ветка пакета, отпочковавшаяся от данной ветки в 2014 г. и поддерживаемая уважаемым @fox1001.

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

На данный момент разработка пакета макросов ПРЕКРАЩЕНА. По жалобам пользователей будут устранятся только критические ошибки и проблемы совместимости с новыми версиями SW. 

 

Состав и назначение пакета макросов:
SpecEditor - создание спецификаций (обычной и групповой по варианту Б) и ведомости покупных;
MProp - заполнение свойств моделей;
DProp - управление листами чертежа;
SProp - заполнение свойств моделей из разделов Стандартные изделия, Прочие изделия и Материалы;
SaveDRW - сохранение чертежа;
SaveAsPDF - сохранение чертежа в формате PDF и TIFF;
Master - создание шаблонов основных надписей;
TT - заполнение технических требований;
Roughness - простановка знака неуказанной шероховатости в углу чертежа;
RecordDimM - редактирование текста размеров;
CoolOut - преобразование размеров, проставленных с помощью инструмента "Условное обозначение отверстия", к виду по ЕСКД.

Важные советы:

Совет 1. Прочтите описание.
Совет 2. При возникновении ошибки при первом запуске макросов необходимо нажать кнопку Debug, далее зайти в меню Tools-References, убедиться в отсутствии потерянных библиотек (если таковые есть - подключить их), нажать ОК, закрыть окно с кодом макроса и снова запустить его.

Совет 3. Содержимое архива можно положить в любое место на диске, но нельзя переименовывать и удалять содержащиеся в нем файлы и папки. Макросы связаны между собой и используют общие файлы.

Совет 4. Убедитесь, что папка с макросами доступна SW для записи.

Совет 5. Для работы макроса SaveAsPDF в режиме печати на виртуальный принтер необходимо установить программу PDFCreator версии 1.2.1.

 

Описание архивов:

SWPlus 2014 SP0.0 - версия пакета SWPLus, адаптированная для SW2014 SP5.0.

SWPlus 2017 SP0.0 - версия пакета SWPLus, адаптированная для SW2017 SP4.1.

RecordDimM 2017 SP0.1 - исправленный макрос из пакета SWPlus 2017 SP0.0.

PDFCreator-1_2_1_setup - дистрибутив PDFCreator версии 1.2.1.

 

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

 

 

GriSt прав, пускай будет отдельная тема.
Начало смотри http://fsapr2000.ru/index.php?showtopic=6071&st=40
Итак, кратко:
1. Есть неудовлетворенность существующими на сегоднящний день программами для создания спецификаций под SW.
2. Есть желание взяться за самостоятельную разработку такого продукта.
3. Есть понимание, что дело это долгое и не простое, но интересное и в случае успешного завершения ИМХО устранит последний серьезный пробел в соответствии солида ЕСКД.
4. Если даже все и заглохнет, как неоднократно бывало, то останется информация для более удачливых разработчиков.

Вот некоторые топики этого форума где ранее обсуждались вопросы, связанные со спецификацией:
http://fsapr2000.ru/index.php?showtopic=3525&st=0
http://fsapr2000.ru/index.php?showtopic=2943&st=0
http://fsapr2000.ru/index.php?show...hl=спецификация
http://fsapr2000.ru/index.php?show...hl=спецификация
http://fsapr2000.ru/index.php?show...hl=спецификация

OldCAM
Родная солидовская спецификация не устраивает как минимум по 2 причинам:
1. Нет деления на разделы.
2. Нет разбивки на страницы.
Но воспользоваться ее функциями, которые наверняка представлены в API думаю можно

 

 

SWPlus_v_2014_SP0.0.zip

SWPlus_v_2017_SP0.0.zip

 

RecordDimM_v_2017_SP0.1.zip

PDFCreator-1_2_1_setup.zip

[Crab 4]

Хочу на 1 листе 30 строк(с шапкой) на 2-ом 32(шапку я не считаю)

[Leon 433]

Открыл проект из 1050 деталей и солид вылетает при работе макроса. Вставляет таблицу задумывается и солид выгружается.

Может какие-то ограничения есть.

Макрос выгружается или солид?

Там есть кусок кода, который может приводить к завершению макроса при таком количестве строк. Его можно безболезненно выкинуть, он был вставлен на этапе отладки и я про него забыл. Найдите часть кода под заголовком "Вызываем процедуру сортировки" и удалите строчку "End".

[Crab 4]

Leon

Выгружается солид

[Leon 433]

Выгружается солид

Это хуже. Ну попробуйте выкинуть ту строчку. А просто ручками добавить спецификацию на лист чертежа получается?

[Crab 4]

Leon

Строчку выкинул.

Сборка в 296 деталей зачиталась. Все сработало. Но туго, чего-то задумывался, но пошел.

Сборка из 1050 деталей, таблица ручками вставляется.

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

объяснений. Может много конфигураций(крепеж) , 34 сборки трубопроводов, 30 сборочных ну и детали.

[Leon 433]

Crab

Тогда не знаю... Больше ограничений я не вижу

Попробуйте в том месте где была удаленная строчка "end" вместо

If n = 999 Then



End If

вставить

If n = 200 Then

		swDraw.ForceRebuild3 (True)

		n = 0

End If

[Crab 4]

Leon

Сделал изменения. Не помогло.

На работе сделанной в версии 2009 из 256 деталей работает.

А сборка из 1050 деталей созданная в 2007 и преобразованная в 2009 , работать отказывается

выгружается и все. Не могу проверить на новых больших сборках.

Сборка решена и не в режиме "большой сборки" , таблица вручную вставляется.

Спотыкается когда макрос построил вспомогательные столбцы и как бы начинает формирование

листов спецификации и все.

[Leon 433]

Crab

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

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

[Kelny 1 239]

Могу только посоветовать попробовать на других больших сборках и на разных машинах.

Так же бы рекомендовал бы, где по вашему возникает "вылет" поставить "точки остановки" выполнения макроса и отследить точное место сбоя. Выяснив на чём именно "валится" Solidworks, попробовать закомментировать эту строку и проверить работоспособность.

А там уж искать альтернативы "плохой" функции API-интерфейса.

[ssv22 16]

Leon

Сделал изменения. Не помогло.

На работе сделанной в версии 2009 из 256 деталей" работает....

А сборка из 1050 деталей созданная в 2007 и преобразованная в 2009 , работать отказывается

выгружается и все. Не могу проверить на новых больших сборках.

Сборка решена и не в режиме "большой сборки" , таблица вручную вставляется.

Спотыкается когда макрос построил вспомогательные столбцы и как бы начинает формирование

листов спецификации и все.

1) На работе сделанной в версии 2009 из 1050 деталей работает?

Если да, мне кажется проблема в конвертации из 2007 в 2009-й SW;

Это если в режиме отладки ошибка не отслеживается и SW сразу вылетает;

Но по идее должен создаваться что-то типа LОG-файл или обычно выскакиавает окошко с ообщением об ошибке;

2) Можно еще посмотреть в "Просмотре событий" - есть ли там что...;

3) Еще запусить макрос в режиме отладки, еслм там ошибка, то отладчик на ней и остановится;

4) Думаю, что сортировка 1050 элементов не может быть причиной ошибки! Маловато.

Хотя надо посмотреть сам механизм реализации сортировки - нет ли там рекурсивного вызова какой-либо функции!. При недостатке памяти это может послужить причиной. Да и при большом объеме памяти тоже - там же затраты ресурсов возрастают в экспоненциальной зависимости от кол-ва элементов;

Блин, пока пишу мысли так и возникают:

5) Еще бы сравнил эти сборки на предмет количества уникальных и НЕ уникальных деталей.

6) И в чем, собственно, заключается сортировка?

7) Можно даже "вытащить" список файлов или данных, входящих в эти сборки, передать их в Excel и там отсортировать в разных режимах.

8) Переделать этот макрос в EXE или DLL-файл, а лучше И в EXE И в DLL и сравнить/испытать.

Не, ну так я до утра буду писать, пока все, хватит...

[Leon 433]

Kelny

ssv22

Коллеги, спасибо за предложения. Я в общем со всем согласен. Однако заниматься этим нет никакой возможности. Я и макрос то этот писал урывками - на работе некогда, дома тоже. И таких больших сборок у меня нет, а если бы и была, то домашний комп ее не потянет, старенький совсем и памяти пол гига.

Если бы кто-нибудь мог потестить и что-нибудь предложить, буду признателен. Сортировка в макросе это просто набор условий.

[ssv22 16]

Kelny

ssv22

Коллеги, спасибо за предложения. Я в общем со всем согласен. Однако заниматься этим нет никакой возможности. Я и макрос то этот писал урывками - на работе некогда, дома тоже. И таких больших сборок у меня нет, а если бы и была, то домашний комп ее не потянет, старенький совсем и памяти пол гига.

Если бы кто-нибудь мог потестить и что-нибудь предложить, буду признателен. Сортировка в макросе это просто набор условий.

Да уж, со временем сейчас напряг и у меня тоже :-(

[Gnork 0]

Попробовал воспользоваться вашей разработкой.

Версия 1.3 при клике на кнопочку макроса выдает вот такое

<noindex></noindex>

Версия 1.0 выдает табличку с выбором типа чертежа. После нажатия там ОК, открывается вот такое

<noindex></noindex>

SW2008 office premium SP0. WinXP prof x64 SP2.

Что не так?

Изменено 18 мая 2009 пользователем Gnork

[Leon 433]

Gnork

После возникновения ошибки зайдите в редактирование макроса (Debug) и проверьте библиотеки Tools-References.

Достаточно этого:

Visual Basic for Applications

SoidWorks Extensibility Type Library

OLE Automation

Microsoft Forms 2.0 Object Library

SolidWorks 2008 Constant type library

SldWorks Type Library

[Crab 4]

Leon

В режиме редактирования и пошаговое выполнение: первые 4 строчки строчки окрашены в желтый цвет и на

последней желтой выскакивает ошибка 91 .

Private Sub UserForm_Activate()

MSort = 0

If mRunPref = 0 Then

	sSource = swApp.GetCurrentMacroPathName			 ' Get macro path+filename

	sSource1 = Left$(sSource, Len(sSource) - 4) & "_sp.sldbomtbt"	' Шаблон таблицы

	sSource2 = Left$(sSource, Len(sSource) - 14) & "SP-1.slddrt"	' Шаблон 1-го листа

	sSource3 = Left$(sSource, Len(sSource) - 14) & "SP-2.slddrt"	' Шаблон 2-го листа

	sSource4 = Left$(sSource, Len(sSource) - 3) & "ini"	' ini-файл

	sSource5 = Left$(sSource, Len(sSource) - 4) & "_Doc.txt"	' Документация

Изменено 18 мая 2009 пользователем Crab

[Gnork 0]

Gnork

После возникновения ошибки зайдите в редактирование макроса (Debug) и проверьте библиотеки Tools-References.

Достаточно этого:

Visual Basic for Applications

SoidWorks Extensibility Type Library

OLE Automation

Microsoft Forms 2.0 Object Library

SolidWorks 2008 Constant type library

SldWorks Type Library

Как раз эти 6 штук там с галочками и есть.

Изменено 18 мая 2009 пользователем Gnork

[Crab 4]

Leon

на 266 макрос работает

Компоненты 266

Детали: 248

уникальные документы детали 72

уникальные детали 60

Узлы сборки: 18

уникальные узлы сборки 8

уникальные документы узлов сборки 8

Количество тел 296

Компоненты 1045

Детали: 993

уникальные документы детали 269

уникальные детали 210

Узлы сборки: 52

уникальные узлы сборки 43

уникальные документы узлов сборки 43

Количество тел 1315

[Leon 433]

Crab

В режиме редактирования и пошаговое выполнение: первые 4 строчки строчки окрашены в желтый цвет и на

последней желтой выскакивает ошибка 91 .

Если вы хотите запустить макрос в режиме редактирования то надо начинать с кода модуля SpecEditor_run.

Gnork

Всем у кого были проблемы с запуском обычно помогала проверка библиотек. То, что у вас x64 вроде не должно влиять, хотя я на x64 не пробовал.

[Crab 4]

Leon

SpecEditor_run все вроде нормально . не останавливается ,в результате появляется окно макроса.

А затем перехожу в код модуля FrmSpecEditop и выскакивает ошибка указ. выше.

Может не так что-то делаю.

[Kelny 1 239]

Может не так что-то делаю.

Что бы исключить какие либо неправильные действия при запуске, в окне редактора макроса:

1. Tools-Macros... появится окно с заголовком Macros

2. Выберите макрос в выпадающем списке Macros In, если открыто несколько макросов

3. Выберите Macro Name main

4. Нажмите в форме кнопку Run