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

[Leon 442]

Пакет макросов 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

[Чужой 1]

Тогда не знаю. Запустите программу по ссылке выберите принтер PDFCreator и найдите в списке формат A1.

Спасибо, все получилось. У меня номера форматов, А1-143, А0-144. Хорошая программа.

[profi10 0]

Выкладываю релиз 06. По сравнению с бетой есть одно серьезное изменение. Теперь специя создается в скрытом режиме. Это позволило прилично увеличить скорость работы SpecEditor. Остальное по мелочи.

Спасибо за новый пакет, но... В версиии SWPlus_v_06_beta была возможность в настройках SpecEditor выбрать шрифт, а теперь это кнопулька не активна . Что делать?

[fox1001 789]

Спасибо за новый пакет, но... В версиии SWPlus_v_06_beta была возможность в настройках SpecEditor выбрать шрифт, а теперь это кнопулька не активна . Что делать?

прочитать справку к макросам (SWPlus.chm), раздел Установка и настройка подраздел Настройка пункт 2d

[Sergei 298]

прочитать справку к макросам (SWPlus.chm), раздел Установка и настройка подраздел Настройка пункт 2d

Господа, откуда теоретически могут появится куча ненужных слоёв в чертеже после изменения формата макросом DProp. Всё, я уже не знаю что с этим делать. Мистика.

[fox1001 789]

Господа, откуда теоретически могут появится куча ненужных слоёв в чертеже после изменения формата макросом DProp. Всё, я уже не знаю что с этим делать. Мистика.

кто сказал что они ненужные (шутка)

вот макрос для удаления слоёв

в коде, после Dim nameLayer As String в строках nameLayer = "ХХХХХХХ" значение "ХХХХХХХ" замените на имена слоёв которые хотите удалить (имена слоев должны быть в кавычках).

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

[Liga 16]

кто сказал что они ненужные (шутка)

вот макрос для удаления слоёв

в коде, после Dim nameLayer As String в строках nameLayer = "ХХХХХХХ" значение "ХХХХХХХ" замените на имена слоёв которые хотите удалить (имена слоев должны быть в кавычках).

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

Спасибо за макрос, очень полезным оказался.

[Sergei 298]

Leon, спецификация в столбец "Примечание" заносит "Значение/Тестовое выражение" свойства, а не "Вычисленное значение".

Например у меня в детале в свойстве "Примечание:"

- в ячейке "Значение/Тестовое выражение" находится "D3@Эскиз1@$PRP:"SW-File Name".SLDPRT" "D2@Эскиз1@$PRP:"SW-File Name".SLDPRT" FI "S@Задняя плоскость@$PRP:"SW-File Name".SLDPRT" TX33

- в ячейке "Вычисленное значение" получается 156 156 FI 26 TX33

В спецификацию заносится верхний текст. Проверял на пятой версии.

[Чужой 1]

А в 6-й версии спецификация должна группировать стандартные изделия с одинаковым ГОСТом? У меня не группирует.

[Alex M 3]

А в 6-й версии спецификация должна группировать стандартные изделия с одинаковым ГОСТом? У меня не группирует.

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

[SERoz 201]

А в 6-й версии спецификация должна группировать стандартные изделия с одинаковым ГОСТом? У меня не группирует.

Вот <noindex>тут</noindex> пример похожей группировки...

Попробуйте по-аналогии сделать свои группы...

[Чужой 1]

Вот <noindex>тут</noindex> пример похожей группировки...

Попробуйте по-аналогии сделать свои группы...

Это я читал, спасибо. Я имею ввиду группировку Винты ГОСТ ..., далее перечисляются все винты по этому ГОСТу и т.д.

[SERoz 201]

Я имею ввиду группировку Винты ГОСТ ..., далее перечисляются все винты по этому ГОСТу и т.д.

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

[fox1001 789]

Это я читал, спасибо. Я имею ввиду группировку Винты ГОСТ ..., далее перечисляются все винты по этому ГОСТу и т.д.

да не нужно это никаму. сойдет так как есть. нефик морду баловать и без того НК задолбали со своими гостами.

[Sergei 298]

Leon, спецификация в столбец "Примечание" заносит "Значение/Тестовое выражение" свойства, а не "Вычисленное значение".

Например у меня в детале в свойстве "Примечание:"

- в ячейке "Значение/Тестовое выражение" находится "D3@Эскиз1@$PRP:"SW-File Name".SLDPRT" "D2@Эскиз1@$PRP:"SW-File Name".SLDPRT" FI "S@Задняя плоскость@$PRP:"SW-File Name".SLDPRT" TX33

- в ячейке "Вычисленное значение" получается 156 156 FI 26 TX33

В спецификацию заносится верхний текст. Проверял на пятой версии.

Leon? Help? Help? Help!!!

[Leon 442]

Возможно будет интересно для Leon'а, программа для получения списка доступных форматов листов принтера:

Спасибо, действительно полезная программа. Но в моем случае она дала для А1 - 145 а для А0 - 144. От чего это зависит, может от версии PDFCreator?

[Leon 442]

Leon? Help? Help? Help!!!

Сергей, проверил у себя - все нормально. В специю попадает именно вычисленное значение. Но для этого надо писать реальное имя файла, а не $PRP:"SW-File Name".SLDPRT". Попробуй заполнять свойство просто потыкав размеры.

[Sergei 298]

Но для этого надо писать реальное имя файла, а не $PRP:"SW-File Name".SLDPRT".

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

Может в MProp тоже сделать две ячейки "Значение/Тестовое выражение" и "Вычисленное значение"? Сейчас только первое.

[Leon 442]

Но в SWR-спецификации и так проходит.

SWR не пользуется таблицами солида, со всеми вытекающими от сюда плюсами и минусами.

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

[Sergei 298]

SWR не пользуется таблицами солида, со всеми вытекающими от сюда плюсами и минусами.

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

Да это понятно, но может как то можно обойти. Ну, я не знаю, напрмер, ввести доп.свойство Примечание1, потом чтобы из него в свойство Примечание вычисленное значение передавалось как текст....

Наверное ведья глупость написал

В спецификации вылетает ошибка в строке:

If swTextFormat.Underline Then ' Добавляем строки

Уф, всё, замучился. Прямо чёрная полоса какая-то пошла.

[SERoz 201]

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

Наскока понимаю - это частная задача (лично мне это всё нафиг не нужно) и зачем это пихать в макрос???

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

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