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

[Leon 433]

fox1001

Форматки идут вместе со спецификацией. Для первого и второго листа. Там есть эта заметка с именем Format. (только сейчас увидел что забыл там А4 дописать). Форматки для чертежей подобные этим. Имя можно присвоить только с помощью API. Я для этого сделал маленький макрос.

Namer.rar

[fox1001 787]

fox1001

Форматки идут вместе со спецификацией. Для первого и второго листа. Там есть эта заметка с именем Format. (только сейчас увидел что забыл там А4 дописать). Форматки для чертежей подобные этим. Имя можно присвоить только с помощью API. Я для этого сделал маленький макрос.

в каком месте находится эта заметка? чёй-то никак найти не могу...

Namer.swp просит выделить заметку, а я не вкурсе где она.

[Leon 433]

в каком месте находится эта заметка? чёй-то никак найти не могу...

Внизу справа, там где и должна быть по ГОСТ.

[fox1001 787]

всё. кажется въехал. щаз поэксперементирую.

баааааааааааааааальшое спасибо за помощь.

[fox1001 787]

небольшой косячок у меня на компе после применения макроса MProp (у меня SW2009 SP2.0).

1. прописал материал в MProp (первая картинка)

2. вот что получил в свойсвах детали (вторая картинка)

3. (в основной надписи, в поле "материал" ) поставил заметку с сылкой на свойство модели ($PRPSHEET:"Материал_Таблица"). получил "Материал1" и "Материал3" на одной строке (третья картинка.

4. залез в свойства детали (модели), скопировал текст (просто выделил текст двойным щелчком и Ctrl+C) свойстсва "Материал_Таблица" из колонки "Значение/Текстовое выражение", залез в чертеж этой же детали вставил заметку и Ctrl+V, материалы стоят как положено (четвертая картинка).

может чего не по инструкции сделал?

[Leon 433]

fox1001

Добавьте пробел в начале заметки перед ссылкой на свойство. Свойство надо использовать Материал_ФБ. Материал_Таблица используется для групповых чертежей.

[fox1001 787]

да, с пробелом все нормально получилось

[Leon 433]

С некоторой задержкой выкладываю очередную версию макроса. Основные изменения:

- Добавились дополнительные свойства Справочный № и Первичное применение.

- Добавилась возможность вставлять пустой раздел Комплекты и заданное количество пустых строк

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

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

SpecEditor_v_1_3.rar

[fox1001 787]

_Leon_, огромное спасибо. "SpecEditor_v_1_3" - шикарная вещь. а совместно с "MProp" дык просто ваааааащееее...

[Leon 433]

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

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

Ну и баги смотрите, код уже стал развесистый, за всем не уследить.

[Crab 4]

Leon

душевно получилось. Спасибо.

Зачитывает отлично.

У меня после сортировки слетает выравнивание название разделов на последующих листах по вертикали, уходит вверх.

Как можно поправить: чтобы увеличить количество строк таблицы и на 1-ом и на последующих листах спецификации так чтобы основная таблица спецификации доходила до штампа. При исправлении в макросе с 26 на 30 , при этом если наименование имеет 2-3 строчки, строка таблицы налезает на штамп.

Бывает наименование прочих изделий доходит до 5-ти строк.

А можно ли когда вставляешь пустые строки присваивать одновременно и к какому разделу ее отнести а потом сортировать.

Это же относиться к разделу(например "Материалы" в котором будет находиться допустим

ФУМ-лента) .

[Kelny 1 239]

Как можно поправить: чтобы увеличить количество строк таблицы и на 1-ом и на последующих листах спецификации так чтобы основная таблица спецификации доходила до штампа.

http://fsapr2000.ru/index.php?s=&show...st&p=256189

[Crab 4]

Kelny

Наименование у меня имеет 3 строчки.

' Делим таблицу

If i = 1 Then

Set swTable1 = swTable.Split(swTableSplit_BeforeRow, 26)

Else

Set swTable1 = swTable.Split(swTableSplit_BeforeRow, 26 + (i - 1) * 31)

End If

Меняем на 30 в двух местах и получаем строку высотой почти 20 мм, а перенос на другой лист не происходит.

Я обычно текст принудительно между словами ставлю "квадратик как в SWR".

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

А если текст на 5-ти строках(прочие изделия) не хочет вписывать , а делает четыре строчки высотой 24мм,

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

При 26 работает но нужно подправлять.

[Leon 433]

Crab

У меня после сортировки слетает выравнивание название разделов на последующих листах по вертикали, уходит вверх.

Не понятно, как это у вас получается. Покажите картинку.

Как можно поправить: чтобы увеличить количество строк таблицы и на 1-ом и на последующих листах спецификации так чтобы основная таблица спецификации доходила до штампа. При исправлении в макросе с 26 на 30 , при этом если наименование имеет 2-3 строчки, строка таблицы налезает на штамп.

Бывает наименование прочих изделий доходит до 5-ти строк.

Нужно поменять там где указал Kelny и еще в части кода под заголовком "Добавляем строки для корректного переноса"

Вообще я сделал количество строк как у SWR. Сделать вровень со штампом все равно не получится, т.к. подобрать при равной высоте строк нужную высоту и количество для первого и второго листа нельзя.

А можно ли когда вставляешь пустые строки присваивать одновременно и к какому разделу ее отнести а потом сортировать.

Это же относиться к разделу(например "Материалы" в котором будет находиться допустим

ФУМ-лента) .

Можно, но есть проблема с позициями. При сортировке любая пустая или самодельная (несвязанная с файлом модели) строка почему-то все равно нумеруется позицией и это все сбивает. Программно отключить позицию не удается (нет такой функции). Поэтому сейчас при сортировке я оставляю только "живые" строки а все остальное (пустые, заголовки разделов, строки разделов Документация и Комплекты) дописываю потом.

[Crab 4]

Leon

Доброе утро.

' Делим таблицу

If i = 1 Then

Set swTable1 = swTable.Split(swTableSplit_BeforeRow, 30)

Else

Set swTable1 = swTable.Split(swTableSplit_BeforeRow, 30 + (i - 1) * 31)

End If

Вот что получилось: ссылка <noindex>http://files.mail.ru/OQHLKD</noindex>

[Crab 4]

к предыдущему сообщению

А если допустить что наименование имеет две строки то вот что получается

сслка <noindex>http://files.mail.ru/JYNZ74</noindex>

[Leon 433]

Вот что получилось:

Так а вы в разделе "Добавляем строки для корректного переноса" код поправили?

[Crab 4]

После исправления 26 на 30 и 31 на 32 в указанных местах перенос заработал,

кроме как на первом листе если наименование в две строки.

Set swTable1 = swTable.Split(swTableSplit_BeforeRow, 30)

Else

Set swTable1 = swTable.Split(swTableSplit_BeforeRow, 30 + (i - 1) * 32)

Добавляем строки для корректного переноса

nNumRow = swTable.RowCount - 1

'Debug.Print "nNumRow=", nNumRow

k = 1 ' Метка конца таблицы

k1 = 0 ' Количество добавленных строк

n = 30

i = 0

If nNumRow > 30 Then

If nNumRow > (30 + i * 32 - 1) Then

k = 1

n = 30 + i * 32 - 1

If nNumRow > 30 Then

nNumRow = nNumRow - 30

iSheetNumb = Int(nNumRow / 30# + 1.99) ' Число листов спецификации

[Leon 433]

Так, вы похоже не везде все правильно исправили. У меня на первом листе 26 строк, на последующих по 30. Вы хотите сделать 30 и 31 строку? Тогда у вас несколько ошибок. Должно быть так:

If nNumRow > 30 Then

nNumRow = nNumRow - 30

iSheetNumb = Int(nNumRow / 31# + 1.99)  ' Число листов спецификации

и так:

' Делим таблицу

If i = 1 Then

Set swTable1 = swTable.Split(swTableSplit_BeforeRow, 31)

Else

Set swTable1 = swTable.Split(swTableSplit_BeforeRow, 30 + (i - 1) * 32)

End If

[Crab 4]

Буду исправлять и пробовать.

Открыл проект из 1050 деталей и солид вылетает при работе макроса. Вставляет таблицу задумывается и солид выгружается.

Может какие-то ограничения есть.