Спецификация для 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

[Ветерок 2 109]

Это был новый макрос от Леона :)

[Sergei 297]

Leon, хватит женщин поздравлять. Займись делом.

[ILL 241]

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

Это был новый макрос от Леона :)

 

Неа.. Макрос это так

 

Dim swApp As SldWorks.SldWorks

 

Sub main

 

Set swApp = Application.SldWorks

 

MsgBox "=====================================

Поздравляю всех участниц форума с 8 Марта!

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

====================================="

End Sub

[Konuzelev 0]

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

В момент ошибки появляется окошко с кнопкой Debug? Если да, нажмите ее, появится окно с кодом в котором будет подсвеченная желтым строка, сделайте принтскрин или опубликуйте здесь кусок кода.

Подсвечивается жёлтым первая строчка-Line Input #1, strTemp

 

Line Input #1, strTemp
    LblAddPRP2.Caption = strTemp ' Доп. свойство №2
    Line Input #1, strTemp
    If strTemp = "1" Then ' Доп. свойство №2
        prpAddPRP2 = 1
        TxtAddPRP2.Text = swModel.CustomInfo2(sConfigName, LblAddPRP2.Caption)
        If TxtAddPRP2.Text = "" Then
            TxtAddPRP2.Text = swModel.CustomInfo2("", LblAddPRP2.Caption)
        End If
    Else
        prpAddPRP2 = 0
        TxtAddPRP2.Text = swModel.CustomInfo2("", LblAddPRP2.Caption)
        If TxtAddPRP2.Text = "" Then
            TxtAddPRP2.Text = swModel.CustomInfo2(sConfigName, LblAddPRP2.Caption)
        End If
    End If
'
    Line Input #1, strTemp
    If strTemp = "1" Then ' Окно макроса в левом верхнем углу
        prpLeftTopCorner = 1
    Else
        prpLeftTopCorner = 0
    End If
    Line Input #1, strTemp
    If strTemp = "1" Then ' Окно макроса поверх всех
        prpTopAll = 1
    Else
        prpTopAll = 0
    End If
Close #1
End Sub

 

Спасибо........

Изменено 9 марта 2018 пользователем Konuzelev

[fox1001 787]

В 07.03.2018 в 17:55, Konuzelev сказал:

А то я пол дня потратил а вы

...а Leon на эти макросы потратил уже 13 лет

[streamdown 1 565]

В 07.03.2018 в 16:06, ILL сказал:

прописать типа

 

ВП=А3 Ведомость покупных изделий

И типа автоматом будет вот это? - 

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

 

А если нет - то как это будет вязаться с заглавием темы "Спецификация... по ГОСТ" ? 

Изменено 9 марта 2018 пользователем streamdown

[Leon 433]

9 часов назад, Konuzelev сказал:

Подсвечивается жёлтым первая строчка-Line Input #1, strTemp

Что-то  у вас с файлом MyProperties_1.ini приключилось. Возьмите из архива.

======================

Проверяйте.

MProp_v_2018_SP0.1.zip

[ILL 241]

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

И типа автоматом будет вот это? - 

 

Ну да.. SpecEditor должен будет знать откуда-то, какой формат прописывать.. Для неменяющихся форматов забить в файле SpecEditor_Doc.txt, для остальных хранить в свойствах файла сборки..

 

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

 

А если нет - то как это будет вязаться с заглавием темы "Спецификация... по ГОСТ" ?

 

Не понял..

 

[Konuzelev 0]

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

Что-то  у вас с файлом MyProperties_1.ini приключилось. Возьмите из архива.

======================

Проверяйте.

MProp_v_2018_SP0.1.zip

Спасибо за поддержку!

Попробовал MProp_v_2018_SP0.1 тоже самое

Ошибка и

Подсвечивает- Line Input #1, strTemp

 

 Line Input #1, strTemp
    LblAddPRP2.Caption = strTemp ' Доп. свойство №2
    Line Input #1, strTemp
    If strTemp = "1" Then ' Доп. свойство №2
        prpAddPRP2 = 1
        TxtAddPRP2.Text = swModel.CustomInfo2(sConfigName, LblAddPRP2.Caption)
        If TxtAddPRP2.Text = "" Then
            TxtAddPRP2.Text = swModel.CustomInfo2("", LblAddPRP2.Caption)
        End If
    Else
        prpAddPRP2 = 0
        TxtAddPRP2.Text = swModel.CustomInfo2("", LblAddPRP2.Caption)
        If TxtAddPRP2.Text = "" Then
            TxtAddPRP2.Text = swModel.CustomInfo2(sConfigName, LblAddPRP2.Caption)
        End If
    End If
'
    Line Input #1, strTemp
    If strTemp = "1" Then ' Окно макроса в левом верхнем углу
        prpLeftTopCorner = 1
    Else
        prpLeftTopCorner = 0
    End If
    Line Input #1, strTemp
    If strTemp = "1" Then ' Окно макроса поверх всех
        prpTopAll = 1
    Else
        prpTopAll = 0
    End If
Close #1
End Sub

 

А в MProp.ini

Прописано

0
0
0
0
0
Test

больше ни чего.......

 

[Leon 433]

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

А в MProp.ini

Прописано

 

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

Что-то  у вас с файлом MyProperties_1.ini приключилось. Возьмите из архива.

 

[Konuzelev 0]

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

 

 

Я и взял из архива MProp_v_2018_SP0.1

открыл в notepad

и там прописано

 

0
0
0
0
0
Test
100

 

а что там должно быть?

Изменено 10 марта 2018 пользователем Konuzelev

[Kir95 950]

В ‎08‎.‎03‎.‎2018 в 08:40, Konuzelev сказал:

Выдаёт ошибку

Run-time error 76

Path not found

 

В ‎06‎.‎03‎.‎2018 в 19:53, Leon сказал:

И рядом должны быть папки с другими макросами.

Может всё-таки запускаете не из папки всего проекта SWPlus? Проверьте, что новые файлы скопировали в папку MProp в корневой папке всего проекта. В SW2018 макрос работает нормально.

[Timi 15]

Вышел SW 2018 SP2. И что вы думаете? Со свойствами все норм с версией Mprop 2017, с 18 наоборот лишнее добавляет:) 

Назначение материала починили, параметры массы тоже в Mprop в чертеже нормально меняются...

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

 

[Timi 15]

fix. Масса в чертеже меняется только в св-вах чертежа по прежнему... материал через ctrl+q в модели после назначения в чертеже только меняется...

Это в документах из 17 солида все работает как и прежде... Короче тестить еще надо...

Изменено 10 марта 2018 пользователем Timi

[Sergei 297]

В ‎09‎.‎03‎.‎2018 в 17:06, Leon сказал:

Проверяйте.

MProp_v_2018_SP0.1.zip

Во Leon замаскировал сообщение, только сейчас увидел. Проверил. Всё ОК. Спасибо.

Админы, закиньте в шапку.

[Konuzelev 0]

18 часов назад, Kir95 сказал:

 

Может всё-таки запускаете не из папки всего проекта SWPlus? Проверьте, что новые файлы скопировали в папку MProp в корневой папке всего проекта. В SW2018 макрос работает нормально.

Пробовал всяко разно на разные диски отдельно в папке...........

Не пойму в чём причина

 

пробовал ТТ работает............

 

Изменено 11 марта 2018 пользователем Konuzelev

[Пожарник 4]

Добрый день уважаемый Leon!

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

[Kir95 950]

16 минут назад, Пожарник сказал:

Referens не активизировано

из режима отладки выйдите, вот здесь нажмите, потом активизируется всё:

[Leon 433]

1 час назад, Пожарник сказал:

желтая  строчка выделена.

Изменено 11 марта 2018 пользователем Leon

[Пожарник 4]

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

Я так и не понял для чего Вы показали мне этот скрин, но проверил свой шаблон у меня так.