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

[Leon 444]

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

[Backsik 1]

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

[Sergey___1978 36]

Как у Вас вышло тоже никто не запрещает.

Группирование похожих деталей это пережиток прошлого, когда все вручную набивали.

Откуда программе знать что и с чем группировать?

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

[profi10 0]

Читайте ГОСТ.....

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

[Backsik 1]

Читайте ГОСТ.....

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

Ну для зеркального отображения вроде допускается не отображать вид если деталь простая (как в моем случае). В общем я поставил макрос последней версии и все исправилось. Не знаю насколько это правильно но меня устраивает.

[Sergey___1978 36]

Как щас у вас точно не правильно.

Не может быть в спецификации двух одинаковых позицицй.

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

Раньше так делалось, чтобы не перечерчивать почти два абсолютно похожих вида.

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

[uniss 2]

пытаюсь перейти на связку SW2013+SWPlus07x64(от gellmar'а) под управлением W7SP1x64. пара вопросов:

учтен ли sp1 к 7-й версии в х64 сборке?

и еще

в спецификации хочу применить другой шрифт (например, T-Flex type A).

шрифт вписан в master.ini, speceditor.ini и в myproperties_2.ini

файл чертежного стандарта изменен (по типу и размеру шрифта)

шаблон основной надписи СБ не менял, шаблон СП мастером пересоздал

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

при просмотре файла шаблона чертежа блокнотом между краказябрами встречаются только надписи "arial narrow" и "times new roman" но никак не "t-flex type a"

при генерации СП весь текст в результате остается arial narrow (причем видно, что сначала текст имеет нужный шрифт, а затем он меняется на arial)

плюс к этому высота строк становится больше 9мм (в винде шрифт выставлен 100%)

попытка выставить высоту 8 заканчивается претензией солида типа "никак не могу"

после ручной корректировки вертикальных отступов таблицы и замены шрифта вручную все становится на места

где искать причину?

вопрос применения SW2013 принципиален - электрики уже юзают SWElectrical2013SP0, так что msoffice уже 2010х64 и vba уже седьмой.

Изменено 19 ноября 2012 пользователем uniss

[Backsik 1]

Как щас у вас точно не правильно.

Не может быть в спецификации двух одинаковых позицицй.

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

Выходит мне нужно удалить повторяющиеся позиции на исполнениях 01 и тогда будет все верно. И теперь мне новый макрос не делает позиции по порядку. Может скинете мне простенькую сборку с исполнениями и чертеж к ней хочу глянуть как вы заполняли свойства. (Если Вас не затруднит). У меня 2011 солид сп5, макросы последние с шапки.

[Sergey___1978 36]

Я писал свою прогу под прое.

Про солид ничего сказать не могу.

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

Потом плюнул на все это и сделал сквозной нумерацией.

КТОС пока не придирался, значит ГОСТ это допускает.

И Вам советую не заморачиватся.

Как нарисовано в ГОСТе, только руками можно сделать, принудительным присваиванием позиций.

Для маленьких сборок еще можно реализовать.

Для больших сборок ручная обработка - это зло.

[nahaus 13]

Маленький такой вопрос: как можно в сборке скрыть от макроса (спецификации) ненужную деталь, но только не гасить?

Цель такая: деталь оставить в дереве сборки, не гасить, при этом, в спецификации ее не должно быть и масса этой дет. не должна приплюсовываться к массе всей сборки!

[Sergey___1978 36]

Фильтр должен быть для этого по регионам.

Если деталь не попадает в заданный регион (детали, сборочные единицы и т.д.), то она вообще никуда не попадет и соответственно не отобразится в спецификации.

[malvi.dp 293]

в спецификации ее не должно быть

в сборке стать на компонент и нажать кнопочку св-ва компонента, там выбрать "исключить из спецификации". На счет массы: вроде только принудительно задать ей "о"

[nahaus 13]

в сборке стать на компонент и нажать кнопочку св-ва компонента, там выбрать "исключить из спецификации". На счет массы: вроде только принудительно задать ей "о"

Да, так и решил эту задачу!

[Leon 444]

Backsik

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

пытаюсь перейти на связку SW2013+SWPlus07x64(от gellmar'а) под управлением W7SP1x64. пара вопросов:

учтен ли sp1 к 7-й версии в х64 сборке?

и еще

в спецификации хочу применить другой шрифт (например, T-Flex type A).

Да, должен быть учтен.

По поводу шрифта, нужно аккуратно проделать все, что написано в файле описания про первичные настройки. Только в архиве от gellmar'а файл описания от 6-ой версии. Возьмите в шапке от 7-ой.

[Shtangel 0]

Из сообщения 890

Не уведел как проблема решена с заголовком, у меня такая же штука в шапке спецификации.

[uniss 2]

в speceditor.ini размер шрифта стоит 3,5

в myproperties.ini - 5

в mystandard.sldstd размер текста в спецификации задан 3,5

проверка оформления чертежа включена

внимание, вопрос!

какой размер будет иметь реальный текст в спецификации, созданной speceditor'ом?

(у меня генерируется с высотой 5)

решается задача задания высоты шрифта в чертеже 5мм, и только в спецификации 3,5мм

Изменено 20 ноября 2012 пользователем uniss

[Leon 444]

Странно, при включенной проверке оформления значения величины шрифта в speceditor.ini и в myproperties_2.ini должны быть одинаковыми. Из mystandard.sldstd макрос считывает только высоту размерного шрифта (подразумевается что и остальные примечания и записи таблиц должны быть высоты размерного шрифта) В вашем случае придется выключить проверку и задать высоту шрифта в настройках SpecEditor принудительно.

[none 51]

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

[streamdown 1 567]

Прошу помощи в оформлении.

Как с помощью данных макросов создаётся и учитывается сборка-заготовка?

[un_wn 1]

А этот формат будет ставиться в раздел формат или будет сноситься через звездочку в примечания?

В макросе SpecEditor находите строчку: For i = UBound(DocData) To iTemp Step -1

Затем выделяем код начиная с этой строки и заканчиваем строкой Next i включительно.

И заменяем следующим кодом:

Скрытый текст: Новый код

For i = UBound(DocData) To iTemp Step -1

strTemp1 = Left$(DocData(i), InStr(DocData(i), "-") - 1)

strTemp1 = Trim(strTemp1)

strTemp2 = Right$(DocData(i), Len(DocData(i)) - InStr(DocData(i), "-"))

strTemp2 = Trim(strTemp2)

ok = swTable.InsertRow(swTableItemInsertPosition_Before, 2)

ok = swTable.SetCellTextFormat(2, 4, False, swTextFormat)

swTable.CellTextHorizontalJustification(2, 4) = swTextJustificationLeft

swTable.Text(2, 2) = " "

If Right$(strTemp2, 1) = "]" Then

jj = Len(strTemp2)

YY = 0

For ii = 2 To jj

strTemp5 = Right$(strTemp2, ii)

If Left$(strTemp5, 1) = "[" Then

YY = ii

End If

Next ii

If YY = 2 Then

strTemp3 = ""

Else

YY = YY - 1

strTemp3 = Right$(strTemp2, YY)

YY = YY - 1

strTemp3 = Left$(strTemp3, YY)

End If

strTemp2 = Left$(strTemp2, jj - (YY + 2))

If Len(strTemp3) > 2 Then

swTable.Text(2, 0) = "*)"

If CboType.ListIndex = 1 Then

swTable.Text(2, 15) = "*)" & strTemp3

Else

swTable.Text(2, 6) = "*)" & strTemp3

End If

Else

swTable.Text(2, 0) = strTemp3

End If

End If

If Left$(strTemp1, 1) = "+" Then

strTemp1 = Right$(strTemp1, Len(strTemp1) - 1)

swTable.Text(2, 3) = strTemp1

Else

swTable.Text(2, 3) = strTemp & strTemp1

'swTable.Text(2, 0) = strTemp3

End If

swTable.Text(2, 4) = strTemp2

If CboType.ListIndex = 1 Then

For j = 0 To UBound(vConfVisible)

swTable.Text(2, 5 + j) = "X"

Next j

End If

Next i

Затем идем в самый верх кода (там где переменные) и добавляем строчку Dim YY As Integer

Теперь в файле SpecEditor_Doc.txt чтобы добавить формат, нужно в конце строки дописать нужный формат в квадратных скобках,

например [А4], без пробелов между скобками.

Если нужено несколько форматов или кратный, то пишем [А4;А3] или [А3х5], символы *) добавятся автоматически в примечание.

Если формат не нужно проставлять, то ничего не добавляем в строку. Можно оставить пустые скобки [], но только без символов внутри (даже без пробелов).

Пример строк:

Скрытый текст: Пример строк

ГЧ - Габаритный чертеж [А3;A2]

МЭ - Электромонтажный чертеж

+АБВГ.ХХХХХХ.001 - Документ №1 [А4]

Обязательно сделайте резервную копию.

none, Вам нужно в тексте приведенного кода заменить *) на * (в трех местах), тогда скобка писаться не будет, но это относится только для форматов взятых из файла SpecEditor_Doc.txt.

[Leon 444]

Прошу помощи в оформлении.

Как с помощью данных макросов создаётся и учитывается сборка-заготовка?

А в чем сложность? Создаете новую сборку, вставляете в нее сборку-заготовку. В спецификацию она попадет. В MProp для новой сборки заполнять поля для заготовки не надо.

Теорию смотри в ГОСТ 2.109 пункт 1.3.4.

Только создать разделы "вновь устанавливаемые части" и "снятые части" автоматом создать не получится.