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

[USSR_Nic 9]

Здравствуйте. Кто нибудь разобрался как настроить тулбокс, так, чтобы компоненты тулбокса отображались в ВП из SpecEditor? по умолчанию в наименование ставится "Наименование ВП" а в тулбоксе нет такого поля. и как его добавить я не понимаю. ведь в ВП надо разделить наименование на имя и днп. А как это сделать??? Максимум чего я придумал добавить в тулбоксе "Наименование ВП" и туда впихнуть наименование. но тогда в наименование попадает и имя и днп. Как их разделить?, блин...

[USSR_Nic 9]

Забыл написать   SW у меня 2017

[Leon 435]

@USSR_Nic Здравствуйте, там несколько разных свойств. Наименование для спецификации и для ВП это разные свойства, есть еще Обозначение ДНП. Посмотрите в таблицах, на какие свойства столбцы ссылаются.

[USSR_Nic 9]

Дык посмотреть то я посмотрел. Я не понимаю как тулбокс перестроить. Как разделить наименование в тулбоксе  на Наименование ВП и Обозначение ДНП... В этом и состоит проблема....

Хоть в макросе их дербань....

Изменено Во вторник в 13:42 пользователем USSR_Nic

[Docuk1 31]

@Leon Доброго дня! в макросе Roughness (простановка общей шероховатости), есть малая неприятность: если активный вид не лист, а любой вид, то обозначение ставится относительно этого вида см.эскиз. Пытался перед вставкой сменить активный вид, но что-то не выходит. Можно как-то подкорректировать?

 

вставлял вот этот кусок кода в разные места кода, особенно в кнопку "ок"

Dim swView As SldWorks.View
Dim swDraw As SldWorks.DrawingDoc
Dim bRet As Boolean

Set swDraw = ModelDoc2
Set swView = swDraw.ActiveDrawingView
If Not swView Is Nothing Then
Debug.Print swView.GetName2
Set swView = swDraw.GetFirstView
bRet = swDraw.ActivateView(swView.GetName2)
Debug.Print "  Active view = " & swView.GetName2
End If

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

эскиз

 

Изменено В среду в 12:21 пользователем Docuk1

[Snake 60 727]

@Docuk1 А если перед применением макроса два раза кликнуть (дабл-клик) в любом свободном месте листа?

[Docuk1 31]

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

@Docuk1 А если перед применением макроса два раза кликнуть (дабл-клик) в любом свободном месте листа?

Именно так и делаем. НО если есть возможность дописать пару строк кода и забыть, то было бы вообще хорошо

[Chuvak 21]

@Docuk1 Могу помочь, если скинете файл макроса

[Chuvak 21]

Пример работы макроса Roughness (простановка общей шероховатости):

1) Некорректная:

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

 

2) Корректная:

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

 

Изменено В четверг в 17:13 пользователем Chuvak

[malvi.dp 282]

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

Именно так и делаем. НО если есть возможность дописать пару строк кода и забыть, то было бы вообще хорошо

Пару строк, можно.

В модуле Roughness_run идем в процедуру "main"
и перед строкой "FrmRoughness.Show" вставляем следующий код:

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

'Активируем текущий лист
        Dim swDrwng As DrawingDoc
        Dim activeSheet As Sheet
        Set swDrwng = ModelDoc2
        Set activeSheet = swDrwng.GetCurrentSheet
        ModelDoc2.ActivateSheet activeSheet.GetName