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

[Leon 441]

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

[ANT0N1DZE 181]

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

Можно попробовать отключить линии границ

Да, такое себе.

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

[Snake 60 747]

50 минут назад, ANT0N1DZE сказал:

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

Конечно можно, создаете шаблон спецификации с добавленными всеми нужными Вам свойствами. Вставляете этот шаблон в сборку - сохраняете полученную таблицу как файл Экселя, в нем же сортируете как душе угодно )

[Leon 441]

22 часа назад, artistrouble сказал:

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

У вас в настройках солида для нулевого количества стоит "-". Поменяйте на пустой.

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

 

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

А если при работе макроса вообще скрыть таблицу быстрее не получится?

Я так и делаю. Плюс к этому еще некоторые штуки, рекомендованные в хелпе по API. Но это помогает очень слабо.

[Leon 441]

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

Конечно можно, создаете шаблон спецификации с добавленными всеми нужными Вам свойствами. Вставляете этот шаблон в сборку - сохраняете полученную таблицу как файл Экселя, в нем же сортируете как душе угодно )

Да, сама таблица создается и вставляется солидом почти мгновенно. Это вот потом с ней тяжело.

4 часа назад, Kelny сказал:

возможно первый подход SWR (бывшее представительство Solidworks в РФ) по выведению отчёта в отдельной программе было технически верным, но продукт оказался сырым и не законченным, а формат самого файла спецификации закрытым без возможностей гибкой настройки и не стандартным вроде MS Word, Excel или любой иной относительно доступный и распространённый формат.

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

Будем надеяться, что солид поправит эту тормознутость своих таблиц. Так как это больше похоже на баг. Просто где-то не отключено автообновление и перестроение при изменении ячеек.

[Kelny 1 312]

29 минут назад, Leon сказал:

Будем надеяться, что солид поправит эту тормознутость своих таблиц. Так как это больше похоже на баг. Просто где-то не отключено автообновление и перестроение при изменении ячеек.

Подозреваю, что проблема не в этом. Для редактирования ячейки как бы создаётся/открывается новое поле для ввода текста, то есть это больше похоже не на таблицу, а нарисованную эскизами сущность с множеством заметок и линий эскиза. И если обилие заметок Solidworks вроде переваривает, то вот с множеством эскизов справиться не может. Вставлял DXF/DWG файлы в Solidworks, которые легко жили в совсем старом AutoCAD, но вот для Solidworks обиличе сегментов эскиза становилось проблемой и он становился тормозным и не поворотливым.

 

В том же Ecxel для перехода из одной ячейки в другую не надо с десяток перестроний и отображением отдельного поля для редактирования, а в Solidworks даже в маленькой таблице происходит неоднократное о,новление для отображения поля для изменения, так что это не баг, а фича не предназначенная для больших таблиц и для быстрой работы DS должно переработать этот инструмент или при необходимости вовсе отказаться от свого инструмента и перейти на общепризнанный формат Excel или что-то аналогичное основанное именно на таблицах, а не массивах заметок со всплывающем полем для редактирования.

 

[ANT0N1DZE 181]

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

Конечно можно, создаете шаблон спецификации с добавленными всеми нужными Вам свойствами. Вставляете этот шаблон в сборку - сохраняете полученную таблицу как файл Экселя, в нем же сортируете как душе угодно )

Спасибо, работает

[Leon 441]

27.09.2024 в 15:09, Kelny сказал:

Подозреваю, что проблема не в этом.

Думаете, на низком уровне таблица SW это набор линий и заметок? Который начинает тормозить при редактировании? Ну может и так, не знаю. Хотя если принять эту версию, как тогда объяснить почти мгновенное создание огромных таблиц при их вставке?

Изменено В понедельник в 12:08 пользователем Leon

[Kelny 1 312]

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

Думаете, на низком уровне таблица SW это набор линий и заметок? Который начинает тормозить при редактировании? Ну может и так, не знаю.

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

 

На сколько знаю через АПИ можно к заметке добавить эскизы прямо в заметку, возможно этот массив построен именно по этому принципу с инструментом доступа к этому блоку данных.

 

Если тыкнуть в таблицу и посмотреть контекстное меню, то этот объект обозначен как:

ДЕТАЛЬНЫЙ ЭЛЕМЕНТ## (Detail Item), то есть как некий блок.

 

@Leon А не пробовали разбирать таблицу не средствами SolidWorks, а через WinAPI с поиском дочерних окон? Может такой заход позволит получить более прямой доступ к массиву данных таблицы или объекту и тогда возможно получилось бы разогнать процесс работы с таблицей, данными в ней, в обход функционала Solidworks.

Изменено В понедельник в 13:14 пользователем Kelny

[Leon 441]

17 часов назад, Kelny сказал:

На сколько знаю через АПИ можно к заметке добавить эскизы прямо в заметку, возможно этот массив построен именно по этому принципу с инструментом доступа к этому блоку данных.

Да, Compound Note. Может быть это и она, но, как я и написал выше, основная странность, на мой взгляд, это мгновенное создание в первый момент при наличии тормозов после. Обычно, скорость создания ниже скорости редактирования или как-то близка к ней. А тут все наоборот, поэтому я сомневаюсь, что дело здесь только во внутреннем устройстве.

17 часов назад, Kelny сказал:

А не пробовали разбирать таблицу не средствами SolidWorks, а через WinAPI с поиском дочерних окон?

Нет, не пробовал. 

[Kelny 1 312]

24 минуты назад, Leon сказал:

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

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

 

Возможно алгоритмы сортировки должны быть применены ещё до создания таблицы и тогда не нужно будет сортировать таблицу уже после создания, но доступ к предварительной сортировке может отстутствовать в API, но ведь какая-то сортировка всё равно происходит, ведь какая-никакая систематизация в списке происходит при создании спецификации, но просто эта сортировка не по форме ЕСКД.

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

Нет, не пробовал. 

Возможно это поможет разобраться с каким объектом вы работаете и подобрать подходящии инструменты для обработки объекта быстрее.

[artistrouble 1]

27.09.2024 в 16:14, Leon сказал:

У вас в настройках солида для нулевого количества стоит "-". Поменяйте на пустой.

Заработало, благодарю!

А толстые линии никак не победить? Везде в настройках стоят тонкие, а создаёт всё равно с толстыми линиями, как в файле - примере.

[Leon 441]

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

Возможно алгоритмы сортировки должны быть применены ещё до создания таблицы и тогда не нужно будет сортировать таблицу уже после создания

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

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

Возможно это поможет разобраться с каким объектом вы работаете и подобрать подходящии инструменты для обработки объекта быстрее.

Согласен, в эту сторону можно покопать. Потому что, ждать, пока исправят  эти тормоза можно долго.

3 минуты назад, artistrouble сказал:

А толстые линии никак не победить?

Это какие-то ваши настройки солида и шаблонов. Было про это, кто-то жаловался. 

Изменено Во вторник в 07:08 пользователем Leon

[Kelny 1 312]

3 минуты назад, Leon сказал:

Согласен, в эту сторону можно покапать. Потому что, ждать, пока исправят  эти тормоза можно долго.

Даже простая запись макроса показывает, как бестолково программа обращается к ячейкам, через поиск ячейки по координатам листа, уже это существенно тормозит процесс, потом по этим координатам создаётся объект EditText или что-то подобное и лишь потом возможность вставить текст:

Цитата

boolstatus = Part.Extension.SelectByID2("Детальный элемент58@Лист1", "ANNOTATIONTABLES", 0.139117611449291, 0.220824796681773, 0, False, 0, Nothing, 0)

Тогда как для редактирования ячеек можно лишь выделить таблицу и задавать значения ячеек при обращении через API, но само выделение таблицы происходит с некоторой задержкой (возможно можно просто пробежаться по таблицам и получить объект таблицы без выделения) и даже в этом случае есть какая-то задержка при заполнении текста в таблицу:

Цитата

Dim swApp As Object
Dim Part As Object

Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Dim myTable As Object
Set myTable = Part.SelectionManager.GetSelectedObject5(1)
myTable.Text(0, 0) = "строка1,столбец1"
myTable.Text(4, 0) = "строка5,столбец1"
myTable.Text(999, 14) = "строка1000,столбец15"
End Sub

 

[Leon 441]

4 минуты назад, Kelny сказал:

SelectByID2

Эта функция все выделяет с указанием координат. Но это только при записи макроса. В жизни достаточно имени и типа, координаты можно нулями задать.

[artistrouble 1]

01.10.2024 в 12:06, Leon сказал:

Это какие-то ваши настройки солида и шаблонов. Было про это, кто-то жаловался.

Да, по всей видимости толщина границ таблицы спецификации подгружается из настроек указанных в графе Нормальная: там и стоит 0,6 у меня. Если её меняешь, то меняется толщина таблицы и всех основных линий чертежа и само

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

Смотрел сообщения предыдущие, там также остался подвешенным этот вопрос. 

[Snake 60 747]

@artistrouble  Вот здесь посмотрите часть кода выделено жирным - это, скорее всего, то что Вам нужно.

[Leon 441]

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

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

Нет, что-то не то здесь... Менять толщину нормальной линии не нужно, таблица должна создаваться именно тонкими линиями.

Вы бы выложили файл с таблицей, посмотреть на настройки.

Изменено 19 часов назад пользователем Leon

[artistrouble 1]

14 часов назад, Snake 60 сказал:

@artistrouble  Вот здесь посмотрите часть кода выделено жирным - это, скорее всего, то что Вам нужно.

Добавил выделенный код в макрос после каждой функции создания таблицы и создалась с тонкими! Спасибо за помощь и уделенное время!

 

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

Set swBomTable = swView.InsertBomTable4(True, vSheetProps(5) - 0.005, 0.068, swBOMConfigurationAnchor_BottomRight, swBomType_TopLevelOnly, sConfigName, sSource1, False, swNumberingType_e.swIndentedBOMNotSet, False)
            If Not swBomTable Is Nothing Then
       swBomTable.BorderLineWeight = 0
       swBomTable.GridLineWeight = 0
    End If
            Set swBomFeat = swBomTable.BomFeature ' ********
            ReDim sTemp(0)
            sTemp(0) = sConfigName
            vConfVisible = sTemp
            vVisible = Null
            bRetval = swBomFeat.SetConfigurations(True, vVisible, vConfVisible)
            swBomFeat.DisplayAsOneItem = True '***********
            swBomFeat.PartConfigurationGrouping = swDisplay_ConfigurationWithSameName_AsOneItem
        Else
            Set swBomTable = swView.InsertBomTable4(True, 0.02, 0.292, swBOMConfigurationAnchor_TopLeft, swBomType_TopLevelOnly, sConfigName, sSource1, False, swNumberingType_e.swIndentedBOMNotSet, False)
            If Not swBomTable Is Nothing Then
       swBomTable.BorderLineWeight = 0
       swBomTable.GridLineWeight = 0
    End If
            Set swBomFeat = swBomTable.BomFeature ' ********
            ReDim sTemp(0)
            sTemp(0) = sConfigName
            vConfVisible = sTemp
            vVisible = Null
            bRetval = swBomFeat.SetConfigurations(True, vVisible, vConfVisible)
            swBomFeat.DisplayAsOneItem = True '***********
            swBomFeat.PartConfigurationGrouping = swDisplay_ConfigurationWithSameName_AsOneItem
        End If
    ElseIf CboType.ListIndex = 1 Then ' Групповая спецификация
        Set swBomTable = swView.InsertBomTable2(True, 0.005, 0.19, swBOMConfigurationAnchor_TopLeft, swBomType_TopLevelOnly, sConfigName, sSource1)
        If Not swBomTable Is Nothing Then
       swBomTable.BorderLineWeight = 0
       swBomTable.GridLineWeight = 0
    End If
        Set swBomFeat = swBomTable.BomFeature
        swBomFeat.DisplayAsOneItem = True '***********
        swBomFeat.PartConfigurationGrouping = swDisplay_ConfigurationWithSameName_AsOneItem
    Else ' Ведомость покупных
       ' Set swBomTable = swView.InsertBomTable2(True, 0.02, 0.292, swBOMConfigurationAnchor_TopLeft, swBomType_Indented, sConfigName, sSource11)
        Set swBomTable = swView.InsertBomTable4(True, 0.02, 0.292, swBOMConfigurationAnchor_TopLeft, swBomType_PartsOnly, sConfigName, sSource11, False, swNumberingType_e.swIndentedBOMNotSet, False)
        If Not swBomTable Is Nothing Then
       swBomTable.BorderLineWeight = 0
       swBomTable.GridLineWeight = 0
    End If

 

 

 

 

13 часов назад, Leon сказал:

Нет, что-то не то здесь... Менять толщину нормальной линии не нужно, таблица должна создаваться именно тонкими линиями.

Вы бы выложили файл с таблицей, посмотреть на настройки.

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

Ссылку дублирую https://cloud.mail.ru/public/3b4o/eymYHMVcU

[nahaus 13]

MProp ругается.

 

[Leon 441]

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

Ну я такую только зависимость нашел.

Значит в новых версиях солида что-то накосячили. На SW2018 такого не было. Вариант @Snake 60 это решение. Сейчас посмотрел, оно у меня в новом SWPlus тоже применяется, значит другого выхода нет.

52 минуты назад, nahaus сказал:

MProp ругается.

Возможно вы что-то изменили в файле штриховок. Выложите посмотреть.