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

[Leon 435]

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

[Wiruss 6]

Вопрос по SpecEditor:

Скрытый текст

При построении спецификации появляются пустые строки (на рисунке, под позицией 2).

Ранее в теме упоминалось, что строки появляются, если файл создан не по шаблону от SWPlus или занесены данные не через MProp. 

К великому сожалению, про такой чудесный макрос узнал слишком поздно, на данный момент элементная база занимает около 5 Гб и около 3 000 файлов. Перерисовывать базу по новой не представляется возможным.

Проведя ряд тестов, выяснил, что если произвести сброс данных в настройках и конфигурациях детали/сборки, после чего занести данные при помощи MPror, лишние строки не появляются.

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

Заранее огромное спасибо!

[DuS 327]

35 минут назад, Wiruss сказал:

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

таже история. Выхожу из ситуации следующим образом сортирую, а потом удаляю руками эти строки. Они ни на что не влияют.

Понял что появляются они от пустых определенных строк в свойствах детали / сборки. 

Поэтому поменял всем шаблон на примерно такой:

Обозначение   
Наименование   
Материал  
Масса 
Разработал 
Принял  
Проверил   
Утвердил   
Формат  
Организация   
 

 

 

 

 

[Wiruss 6]

21 минуту назад, DuS сказал:

таже история. Выхожу из ситуации следующим образом сортирую, а потом удаляю руками эти строки. Они ни на что не влияют.

Понял что появляются они от пустых определенных строк в свойствах детали / сборки. 

Поэтому поменял всем шаблон на примерно такой:

Скрытый текст

Обозначение   
Наименование   
Материал  
Масса 
Разработал 
Принял  
Проверил   
Утвердил   
Формат  
Организация   

 

С таким раскладом, пустые дубликаты не создаются?

 

Ручками удалять не вариант :(, у меня спецификации растягиваются на 5-6 страниц. Удаление ручками приведет к необходимости по новой разбивать таблицу на страницы :(

[DuS 327]

8 часов назад, Wiruss сказал:

С таким раскладом, пустые дубликаты не создаются?

 

Ручками удалять не вариант :(, у меня спецификации растягиваются на 5-6 страниц. Удаление ручками приведет к необходимости по новой разбивать таблицу на страницы :(

нет. 

Уточню, сортируете, удаляете руками пустые, потом сортируете еще раз и листы распределяются снова.

[Wiruss 6]

В моём случае, проблема из-за наличия параметров в настройках/конфигурациях параметров: Материал, Типоразмер, Заготовка.

Удаление или переименование приводит к желаемому результату.

Осталось только придумать макрос, который будет копировать значение из данных разделов в переименованные и удалять первые,  Но при этом делал это все всех конфигурациях :) А так же поправить форматки :)

Если у кто знает как это реализовать, прошу помочь.

[Wiruss 6]

Уважаемые знатоки, подскажите пожалуйста.

Скрытый текст

 

Private Sub main()

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
        
        ConfNumb = swModel.GetConfigurationCount 
        vConfNameArr = swModel.GetConfigurationNames 
        
            For i = 0 To ConfNumb - 1  
                Set swConf = swModel.GetConfigurationByName(vConfNameArr(i))
                prpMaterial = swModel.GetCustomInfoValue(swConf, "Материал")
                ok = swModel.AddCustomInfo3(swConf, "Материал_ИЗМ", swCustomInfoText, prpMaterial)     <- сюда ругается
            Next i
          
End Sub

 

Что тут надо подправить, что бы данные из строки материал (в конфигурации) копировалось в новую строку "Материал_ИЗМ"

Если заменить swConf на "", то данные записываются в Настройки.

Заранее спасибо!

[Wiruss 6]

Решил проблему. Опишу целиком.

Пытался перейти на SpecEditor.

Моя база построена давно и при создании спецификации вылетали дубликаты (с пустыми полями) и указанием кол-ва. Очень хотел от этого избавиться.

Опытным путем нашёл причину возникновения дубликата: Наличие: Материал, Типоразмер, Заготовка в настройках/конфигурации (в моём случае в конфигурации). Удаление этих полей "лечит" появление дубликатов.

Встала задача, как это сделать с большой базой? - Решил переименовать Материал, Типоразмер, Заготовка в Материал_ИЗМ, Типоразмер_ИЗМ, Заготовка_ИЗМ и поменять настройки форматок.

Для этого накидал макрос: - Макрос меняет информацию только в "Конфигурациях", "Настройки" не трогает.

Скрытый текст

 

Dim swApp          As SldWorks.SldWorks
Dim swModel        As SldWorks.ModelDoc2
Dim swConfig       As SldWorks.Configuration
Dim ConfNumb       As Single
Dim ok             As Boolean
Dim prpMaterial    As String
Dim prpMaterial_izm    As String
Dim prpZagotovka    As String
Dim prpZagotovka_izm    As String
Dim prpTRazmer    As String
Dim prpTRazmer_izm    As String
Dim Материал       As String
Dim Материал_ИЗМ   As String
Dim swConf         As String

Private Sub Zamena_Materialov()

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
        
        ConfNumb = swModel.GetConfigurationCount ' Общее число конфигураций
        vConfNameArr = swModel.GetConfigurationNames ' Имена всех конфигураций
                    
            'Меняем Материал
            For i = 0 To ConfNumb - 1
                swConf = vConfNameArr(i)
                prpMaterial = swModel.GetCustomInfoValue(swConf, "Материал")
                    If prpMaterial <> "" Then
                        prpMaterial_izm = swModel.GetCustomInfoValue(swConf, "Материал_ИЗМ")
                            If prpMaterial_izm = "" Then
                                ok = swModel.AddCustomInfo3(swConf, "Материал_ИЗМ", swCustomInfoText, prpMaterial)
                                ok = swModel.DeleteCustomInfo2(swConf, "Материал")
                            End If
                    Else
                        prpMaterial_izm = swModel.GetCustomInfoValue(swConf, "Материал_ИЗМ")
                            If prpMaterial_izm = "" Then
                                ok = swModel.AddCustomInfo3(swConf, "Материал_ИЗМ", swCustomInfoText, "")
                            End If
                    End If
                    ok = swModel.DeleteCustomInfo2(swConf, "Материал")
            Next i
            
            'Меняем заготовку
            For i = 0 To ConfNumb - 1
                swConf = vConfNameArr(i)
                prpZagotovka = swModel.GetCustomInfoValue(swConf, "Заготовка")
                    If prpZagotovka <> "" Then
                        prpZagotovka_izm = swModel.GetCustomInfoValue(swConf, "Заготовка_ИЗМ")
                            If prpZagotovka_izm = "" Then
                                ok = swModel.AddCustomInfo3(swConf, "Заготовка_ИЗМ", swCustomInfoText, prpZagotovka)
                                ok = swModel.DeleteCustomInfo2(swConf, "Заготовка")
                            End If
                    Else
                        prpZagotovka_izm = swModel.GetCustomInfoValue(swConf, "Заготовка_ИЗМ")
                            If prpZagotovka_izm = "" Then
                                ok = swModel.AddCustomInfo3(swConf, "Заготовка_ИЗМ", swCustomInfoText, "")
                            End If
                    End If
                    ok = swModel.DeleteCustomInfo2(swConf, "Заготовка")
            Next i
            
            'Меняем Типоразмер
            For i = 0 To ConfNumb - 1
                swConf = vConfNameArr(i)
                prpTRazmer = swModel.GetCustomInfoValue(swConf, "Типоразмер")
                    If prpTRazmer <> "" Then
                        prpTRazmer_izm = swModel.GetCustomInfoValue(swConf, "Типоразмер_ИЗМ")
                            If prpTRazmer_izm = "" Then
                                ok = swModel.AddCustomInfo3(swConf, "Типоразмер_ИЗМ", swCustomInfoText, prpTRazmer)
                                ok = swModel.DeleteCustomInfo2(swConf, "Типоразмер")
                            End If
                    Else
                        prpTRazmer_izm = swModel.GetCustomInfoValue(swConf, "Типоразмер_ИЗМ")
                            If prpTRazmer_izm = "" Then
                                ok = swModel.AddCustomInfo3(swConf, "Типоразмер_ИЗМ", swCustomInfoText, "")
                            End If
                    End If
                    ok = swModel.DeleteCustomInfo2(swConf, "Типоразмер")
            Next i
End Sub

 

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

Если гуру макрос упростят, будет очень интересно посмотреть. 

P.S. Это мой первый макрос.

 

[ILL 241]

1 час назад, Wiruss сказал:

Если гуру макрос упростят, будет очень интересно посмотреть.

 

Dim OldProp (1 To 4) As StringDim NewProp (1 To 4) As StringConst PromNumber = 4OldProp (1)="Материал"NewProp (1)="Материал_ИЗМ"OldProp (2)="Заготовка"NewProp (2)="Заготовка_ИЗМ"...For j = 1 To PromNumber       For i = 0 To ConfNumb - 1                swConf = vConfNameArr(i)                prpMaterial = swModel.GetCustomInfoValue(swConf, OldProp (j))                    If prpMaterial <> "" Then                        string = swModel.GetCustomInfoValue(swConf, NewProp (j))                            If string = "" Then                                ok = swModel.AddCustomInfo3(swConf, NewProp (j), swCustomInfoText, prpMaterial)                                ok = swModel.DeleteCustomInfo2(swConf, OldProp (j))                            End If                    Else                        string = swModel.GetCustomInfoValue(swConf, NewProp (j))                            If string = "" Then                                ok = swModel.AddCustomInfo3(swConf, NewProp (j), swCustomInfoText, "")                            End If                    End If                    ok = swModel.DeleteCustomInfo2(swConf, OldProp (j))            Next iNext j

 

 

Блин, зря как код вставил.. Криво получилось..

Dim OldProp (1 To 4) As String

Dim NewProp (1 To 4) As String

Const PromNumber = 4

OldProp (1)="Материал"

NewProp (1)="Материал_ИЗМ"

OldProp (2)="Заготовка"NewProp (2)="Заготовка

NewProp (2)="Заготовка_ИЗМ"...

For j = 1 To PromNumber

      For i = 0 To ConfNumb - 1
                swConf = vConfNameArr(i)
                string = swModel.GetCustomInfoValue(swConf, OldProp (j))
                    If string <> "" Then
                        string_izm = swModel.GetCustomInfoValue(swConf, NewProp (j))
                            If string_izm = "" Then
                                ok = swModel.AddCustomInfo3(swConf, NewProp (j), swCustomInfoText, string )
                                ok = swModel.DeleteCustomInfo2(swConf, OldProp (j))
                            End If
                    Else
                        string_izm = swModel.GetCustomInfoValue(swConf, NewProp (j))
                            If string_izm = "" Then
                                ok = swModel.AddCustomInfo3(swConf, NewProp (j), swCustomInfoText, "")
                            End If
                    End If
                    ok = swModel.DeleteCustomInfo2(swConf, OldProp (j))
            Next i

Next j

Изменено 27 сентября 2017 пользователем ILL

[ILL 241]

Dim OldProp (1 To 4) As String

Dim NewProp (1 To 4) As String

 

Const PromNumber = 4

 

OldProp (1)="Материал"

NewProp (1)="Материал_ИЗМ"

OldProp (2)="Заготовка"

NewProp (2)="Заготовка_ИЗМ"

 

...

 

For j = 1 To PromNumber

      For i = 0 To ConfNumb - 1
                swConf = vConfNameArr(i)
                string = swModel.GetCustomInfoValue(swConf, OldProp (j))
                    If string <> "" Then
                        string_izm = swModel.GetCustomInfoValue(swConf, NewProp (j))
                            If string_izm = "" Then
                                ok = swModel.AddCustomInfo3(swConf, NewProp (j), swCustomInfoText, string )
                                ok = swModel.DeleteCustomInfo2(swConf, OldProp (j))
                            End If
                    Else
                        string_izm = swModel.GetCustomInfoValue(swConf, NewProp (j))
                            If string_izm = "" Then
                                ok = swModel.AddCustomInfo3(swConf, NewProp (j), swCustomInfoText, "")
                            End If
                    End If
                    ok = swModel.DeleteCustomInfo2(swConf, OldProp (j))
            Next i

Next j

[ILL 241]

В 19 сентября 2017 г. в 12:18, IgorT сказал:

Так кто как  б/ч в спецификацию записывает?

Прокладка

 

<FONT size=3.7>Прокладка
<FONT size=3.7>Паронит ПОН2 ГОСТ 481-80
  <FONT size=3><MOD-DIAM><FONT size=3.5>"D2@Эскиз1@Прокладка.SLDPRT"<FONT size=2>-0,87<FONT size=3>/<MOD-DIAM><FONT size=3.5>"D1@Эскиз1@Прокладка.SLDPRT"<FONTsize=1.8> <FONT size=2.5> <STACK size=0.7  divider=no> <FONT size=2>+0,74<OVER><FONT size=2> </STACK>
 

Круг из листа

Лист
 <FONT size=1.8> <FONT size=2.5>$PRP:"SHAPE" <STACK size=1> <FONT size=3.5> Б$PRP:"Толщина" ГОСТ 19903-74<OVER><FONT size=3.5> 12Х18Н10Т-М2б ГОСТ 7350-77</STACK>
< FONT size=3.7>  <MOD-DIAM>D1@Эскиз1@ .SLDPRT"h14
 

Прямоугольник из листа

Лист
 <FONT size=1.8> <FONT size=2.5>$PRP:"SHAPE" <STACK size=1> <FONT size=3.5> Б$PRP:"Толщина" ГОСТ 19903-74<OVER><FONT size=3.5> 12Х18Н10Т-М2б ГОСТ 7350-77</STACK>
< FONT size=3.5>   "D2@Эскиз1@ .SLDPRT"h14x"D1@Эскиз1@ .SLDPRT"h14
 

Труба

Труба
Труба "OuterDiameter@PipeSketch@ .SLDPRT"x"S@PipeSketch@3 .SLDPRT" 12Х18Н10Т
ГОСТ 9941-81   L="D1@Extrusion@ .SLDPRT"<FONT size=1.8> <FONT size=2.5> <STACK size=1  divider=no> <FONT size=2> <OVER><FONT size=2>-1,3</STACK>

[bnickl 21]

ИМХО быстрее и надежнее чертеж сделать, чем БЧ в спецификацию заносить.

С помощью SWPlus чертеж такой детали делается за 2 мин при соответствующих навыках.

[DuS 327]

36 минут назад, bnickl сказал:

ИМХО быстрее и надежнее чертеж сделать, чем БЧ в спецификацию заносить.

С помощью SWPlus чертеж такой детали делается за 2 мин при соответствующих навыках.

я бч за 10 секунд делаю, просто копирую из блокнота . И у меня бч параметрезированы.

[aravius 0]

Уважаемые знатоки, помогите, плз!

Через SProp заполнил свойства изделия из группы "Прочие изделия". Раздел "прочие изделия" в спецификации не отобразился

[Wiruss 6]

Подскажите пожалуйста...

Проблема: у меня "Шайбы" - обычные и пружинные имеют одни и те же имена конфигураций "D6 или D8". При запуске SpecEditor 1.3 - в свойствах таблицы ставится галочка "Отобразить под одним номеров" - "Отобразить как конфигурации одной позиции с тем же именем". На выходе я имеют только один вид шайбы и неверное кол-во. 

Изменение настроек в Propertis результата не дали. Изменение шаблона так же. 

Подскажите где искать решение проблемы.

Заранее огромное спасибо!

[SaylT 5]

19 часов назад, Wiruss сказал:

Подскажите пожалуйста...

Проблема: у меня "Шайбы" - обычные и пружинные имеют одни и те же имена конфигураций "D6 или D8". При запуске SpecEditor 1.3 - в свойствах таблицы ставится галочка "Отобразить под одним номеров" - "Отобразить как конфигурации одной позиции с тем же именем". На выходе я имеют только один вид шайбы и неверное кол-во. 

Изменение настроек в Propertis результата не дали. Изменение шаблона так же. 

Подскажите где искать решение проблемы.

Заранее огромное спасибо!

PropertyManager => ConfigurationManager => ПКМ конфигурацию => Свойства => Параметры спецификации

Теперь настраиваем так как вам хочется согласно справке SW.

Макрос просто заменяет эти действия, но ограничивает варианты реализации, а в ручную можно практически всё.

Изменено 4 октября 2017 пользователем SaylT

[ILL 241]

В 3 октября 2017 г. в 17:13, Wiruss сказал:

Подскажите пожалуйста...

Проблема: у меня "Шайбы" - обычные и пружинные имеют одни и те же имена конфигураций "D6 или D8". При запуске SpecEditor 1.3 - в свойствах таблицы ставится галочка "Отобразить под одним номеров" - "Отобразить как конфигурации одной позиции с тем же именем". На выходе я имеют только один вид шайбы и неверное кол-во.

Изменение настроек в Propertis результата не дали. Изменение шаблона так же.

Подскажите где искать решение проблемы.

Заранее огромное спасибо!

 

http://cccp3d.ru/topic/6622-спецификация-для-sw-по-гост/?do=findComment&comment=814265

Изменено 6 октября 2017 пользователем ILL

[Wiruss 6]

Уважаемые форумчане.

К моему великому сожалению пакет макросов SWPlusNET более не поддерживается разработчиком. Думаю не только меня интересует вопрос удобного построение спецификации в SW.

У макроса SpecEditor есть недостаток описанный постами выше. 

Очень хочется сделать что-то очень похожее, но независимое от других макросов. Иными словами один макрос, которые позволит создавать как угловые спецификации, так и на отдельных листах.

Если у кого-нибудь есть наработки в этом вопросе прошу поделиться.  Думаю готовый продукт будет интересен всем на этом форуме.

Скрытый текст

Логика работы макроса:

1. Всею информацию макрос берет из стандартных полей (Наименование, Обозначение, Формат и т.д....)

2. Запуск макроса активирует пользовательский интерфейс.

2.1 Пользовательский интерфейс позволяет выбрать (и сохраняет выбор) - угловую спецификацию или спецификацию на отдельных листах (с разбивкой по листам).

2.2 Имеет возможность запустить сортировку спецификации или обновление.

2.3 Имеет возможность добавлять заполненные поля в настроенные разделы (Документация, Комплекты, Материалы и тд.)

2.4 Имеет возможность добавлять пустые поля в любой раздел.

2.5 Проверять правильность проставленных позиций на чертеже.

Может по ходу разработки появятся ещё мысли.

 

[DuS 327]

13 минуты назад, Wiruss сказал:

Иными словами один макрос, которые позволит создавать как угловые спецификации, так и на отдельных листах

а разве сейчас он так не может?

 

17 минут назад, Wiruss сказал:

Может по ходу разработки появятся ещё мысли.

основной критерий (для меня) такой: спецификация должна в реальном времени обновлять позиции, наименование, обозначение. 

И еще: хорошо бы допилить групповую спецификацию.

[Wiruss 6]

2 часа назад, DuS сказал:

а разве сейчас он так не может?

Сейчас может, но у Spec Editor есть одна (на мой взгляд) критическая проблема:

В программном коде выставлено, создавать спецификацию с группировкой изделий с одинаковым именем конфигурации.

Иными словами, шайбы (разных ГОСТов), Гайки (разных ГОСТов), Болты и тд, объединяются в одну позицию с одним именем.

Скрытый текст

 

Пример:

Должно быть:

Шайба D6 ГОСТ 1234   4 шт.

Шайбы D6 ГОСТ 4321   4 шт.

 

SpecEditor выводит:

Шайба D6 ГОСТ 1234   8 шт.

 

На мой взгляд это очень плохо.

 

В идеале, найти бы Исходных код (рабочий), убрать все привязки к сторонним макросам (сделать самостоятельным). И цены ему не будет.

[DuS 327]

5 минут назад, Wiruss сказал:

Иными словами, шайбы (разных ГОСТов), Гайки (разных ГОСТов), Болты и тд, объединяются в одну позицию с одним именем.

Вы уверены? Обычно все нормально. Мы используем свои болты , гайки и тд и все типоразмеры заданы через конфигурации. Так вот проблем нет.