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

[fox1001 787]

Я не видел, что можно размеры передавать.

можно

Скрытый текст: картинка

[Timi 15]

Да я и написал, что до вашего первого сообщения не видел этого.

Да их можно передавать, но все равно необходимо будет заново высвечивать в новом чертеже.

[fox1001 787]

а я не понимаю что значит:

заново высвечивать в новом чертеже.

непонятно почему заново???

даже если чертеж на вторую деталь уже сделан

Вставка -> Элементы модели... (+ поставить галку "Исключить повторы)

[Timi 15]

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

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

Но это мелочи.

[un_wn 1]

Добавление формата для раздела документация (теперь с сохранением):

В макросе SpecEditor:

В коде формы FrmSpecEditor находите строчку: 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)

YY = YY + 2

End If

strTemp2 = Left$(strTemp2, jj - YY)

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

Находим строку: If mRunDoc = 0 Then ' Первичный запуск или в окне "Дополнения" не было изменений.

Выделяем код начиная с этой строки и заканчиваем строкой: If strTemp = strTemp2 Then ' Строка есть в списке документов включительно.

И заменяем кодом (козяблики превратятся в кирилицу):

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

If mRunDoc = 0 Then ' Ïåðâè÷íûé çàïóñê èëè â îêíå "Äîïîëíåíèÿ" íå áûëî èçìåíåíèé

' Ïðîâåðÿåì ñïåöèôèêàöèþ

If mSpec = 1 Then

' ×èòàåì òàáëèöó

' Ðàçäåë Äîêóìåíòàöèÿ

k = 0 ' Ñ÷åò÷èê ìàññèâà DocData

m1 = 0 ' Ìåòêà ñ÷èòûâàíèÿ ñòðîêè Ñáîðî÷íûé ÷åðòåæ

ReDim DocData(0) ' Ìàññèâ äîêóìåíòîâ ðàçäåëà äîêóìåíòàöèÿ ïðî÷èòàííûõ èç ñïåöèôèêàöèè

DocData(0) = "ÑÁ - Ñáîðî÷íûé ÷åðòåæ"

nNumRow = swTable.RowCount

nNumColumn = swTable.ColumnCount

' Debug.Print "nNumColumn=", nNumColumn

Debug.Print "nNumRow=", nNumRow

For i = 1 To nNumRow - 1

strTemp = swTable.Text(i, 4)

'Debug.Print "i=", i, "strTemp=", strTemp

m = 0 ' Ìåòêà êîíöà ðàçäåëà Äîêóìåíòàöèÿ

For j = 1 To UBound(sSectionData)

If strTemp = sSectionData(j) Or InStr(strTemp, "Óñòàíàâëèâàþò") > 0 Then ' Ðàçäåë Äîêóìåíòàöèÿ çàêîí÷èëñÿ

m = 1

End If

Next j

If m = 1 Then

Exit For

End If

If strTemp = "" Or strTemp = "Äîêóìåíòàöèÿ" Then ' Ïðîïóñêàåì çàãîëîâîê Äîêóìåíòàöèÿ

ElseIf strTemp = "Ñáîðî÷íûé ÷åðòåæ" And m1 = 0 Then

m1 = 1

If prpTestFormat = 0 Then ' Íåò ñ÷èòûâàíèÿ ôîðìàòà èç ÷åðòåæà

CboFormat.Value = swTable.Text(i, 0)

TxtRemark.Value = swTable.Text(i, nNumColumn - 1)

Else

If swDraw.CustomInfo2("", "CheckFormat") = "True" Or swDraw.CustomInfo2("", "CheckFormat") = "-1" Then

CboFormat.Value = swTable.Text(i, 0)

TxtRemark.Value = swTable.Text(i, nNumColumn - 1)

'Debug.Print "ChkFormat.Value = True"

' MForm = 1

' ChkFormat.Value = True

' MForm = 0

End If

End If

Else ' Ñòðîêà äëÿ àíàëèçà

For j = 0 To n

strTemp2 = strTempData(j)

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

strTemp2 = Trim(strTemp2) ''ðàâíî ñòðîêå íàèìåíîâàíèå â ñïåöèôèêàöèè

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

strTemp2 = Left$(strTemp2, Len(strTemp2) - YY)

strTemp2 = Trim(strTemp2)

End If

strTemp = Trim(strTemp)

If strTemp = strTemp2 Then ' Ñòðîêà åñòü â ñïèñêå äîêóìåíòîâ

Находим строку: ReDim Preserve strTempData(n)

Под ней к строке: Input #1, strTemp впереди добавляем слово Line. тоесть новая строка имеет вид: Line Input #1, strTemp

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

Идем в код формы: FrmSpecEditor_Doc

Находим строку: Input #1, strTemp и дописываем слово Line, тоесть новая строка имеет вид: Line Input #1, strTemp

Для корректной работы необходимо дополнительно изменить макрос MProp:

Находим строчку: ReDim Preserve sDocData(n)

Сразу под ней строчка: Input #1, strTemp, необходимо в ее начало добавить слово Line

Тоесть строка должна иметь вид: Line Input #1, strTemp

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

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

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

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

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

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

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

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

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

+АБВГ.ХХХХХХ.002 - Документ №2 []

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

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

[Timi 15]

А почему это в основную ветку не интегрировать?

[none 51]

Пока все работает! Спасибо, un-wn.

Здесь надо добавить для всех, что сохранять представленный код нужно в текстовом файле с UTF-8 кодировкой.

[Almo 3]

Подскажите пожалуйста, как быть при использовании макроса MProp на ноуте с диагональю экрана 15,6'' (разрешение 1366х768). Проблема состоит в том, что окно макроса не помещается на экране, и не возможно нажать "принять" и тд...

[un_wn 1]

Подскажите пожалуйста, как быть при использовании макроса MProp на ноуте с диагональю экрана 15,6''

Вот тут рецепт: <noindex>http://fsapr2000.ru/index.php?s=&showt...st&p=420468</noindex>

[Timi 15]

Здравствуйте.

В данный момент делаю свою библиотеку крепежа.

Возникло несколько вопросов.

Заполнил в конфигурациях св-ва Наименование. Заполняется через таблицу Excel.

Заполнил в настройках Раздел - Стандартные изделия.

Макрос Sprop не использовал, т.к. для меня пока сложно все это. Делал в ручную.

Вот, что получилось в спецификации.

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

как заполнить св-ва, чтобы она была правильной?

Вообще не рассматривалась ли ранее возможность создания какого-либо параметра, с помощью которого производилась бы сортировка?

Допустим числового, допустим со значениями 1,2,3... которые задают порядок элементов.

И второй момент, нажал на кнопку До. форматирование.

Стало:

Гайка DIN 934

M3

M3,5

M4

Но это поменяло значения в параметре Наименование моего файла. Там стало вместо полного Наименования M3, M3,5, M4.

Как этого избежать, чтобы макрос не мог править значения в параметрах?

Может еще что-нибудь посоветуете? А то у меня мало опыта и может еще что-то всплывет...

Спасибо.

[Almo 3]

Вот тут рецепт: <noindex>http://fsapr2000.ru/index.php?s=&showt...st&p=420468</noindex>

Спасибо

[fox1001 787]

Подскажите пожалуйста, как быть при использовании макроса MProp на ноуте с диагональю экрана 15,6'' (разрешение 1366х768). Проблема состоит в том, что окно макроса не помещается на экране, и не возможно нажать "принять" и тд...

вот ещё один способ:

открыть форму Мпроп в редакторе макросов VBA. подбираете значение свойства формы Zoom по своему вкусу.

Скрытый текст: картинка

Может еще что-нибудь посоветуете?

<noindex>здесь один из способов</noindex>

[VOleg 228]

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

как заполнить св-ва, чтобы она была правильной?

Вообще не рассматривалась ли ранее возможность создания какого-либо параметра, с помощью которого производилась бы сортировка?

Я использую отдельное свойство "Сортировка". В это свойство я копирую "Наименование" у стандартных, прочих и материалов. У остальных копирую "Обозначение". В этом свойстве я добавляю нули в цифровые группы для правильной сортировки чтобы 8 шла поле 10 (т.е. к 8 дописываю 0 и получается 08).

Однако, сначала надо отсортировать по группам, а в группах по ГОСТам. Т.к. в Солиде всего 3 условия сортировки, то я создаю еще одно свойство "Стандарт" в которое записываю "группу+стандарт".

Разделы я обозначаю цифрами.

В итоге я сортирую средствами Солида 1 условие - "раздел", 2 условие "стандарт" и 3 условие "Сортировка".

В итоге все получается по ГОСТ и НК доволен.

Описанное для "ручной" работы.

[Timi 15]

Спасибо за ответы.

Возьму на заметку.

Просто хотелось бы знать алгоритм сортировки SpecEditor стандартных.

Вот сейчас заметил, что если заполнены только параметры Раздел и Наименование, то гайки на

нужном месте.

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

Может я что-то не правильно заполнил или не дозаполнил.

Спасибо.

П.С.

Понял. В гайках был заполнен параметр Группа, а в винтах нет. Это и влияло...

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

Например, Гайка M4 DIN 934 это вообще зачем?

Вроде и без этого работает.

И почему св-ва создаются в Настройках, а не в конфигурациях?

Это я про Наименование и Наименование_ВП...

[SERoz 201]

Например, Гайка M4 DIN 934 это вообще зачем?

А Гайка M4 ГОСТхххх - зачем???

[Timi 15]

Я и спрашиваю зачем?

Какая разница, ГОСТ или DIN. Это был пример.

См. скрины

По умолчанию у меня стоит имя конфигурации. И в специи все отображается.

А Sprop переключает этот параметр на Имя заданное пользователем.

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

[DuS 325]

Понимаю что вопрос уже был. Подскажите как подключить то библиотеку от pdf creator в макросе save as PDF.

Я честно прочитал справку установил pdf creator а макрос все равно не находит библиотеку как ее найти хрензнает :(

[streamdown 1 565]

DuS

Не библиотеку. Указывайте путь к EXE файлу с помощью кнопки Browse

[DuS 325]

DuS

Не библиотеку. Указывайте путь к EXE файлу с помощью кнопки Browse

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

"WithEvents PDFCreator1 As PDFCreator.clsPDFCreator"

[HE3BAHHUI_GHOST 0]

Добавление формата для раздела документация (теперь с сохранением):

Спасибо, заработало..

Вот только вылез один баг (не знаю у меня одного или нет)

При пересоздание СП, когда нахожусь на листе СП выскакивает ошибка "Не удалось определить вид из свойств листа. Используется первичный вид", после этого генерация СП происходит на листе чертежа.

При пересоздание СП, находясь на листе чертежа - все ок....

Раньше такого не замечал.