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

[Leon 445]

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

[nik_pain 6]

Можно ли использовать ДВА Dprop чтобы каждый обращал к своей базе с основными надписями. меня все мучает вопрос как мне  макросом засовывать англоязычные основные надпись, чтобы каждый раз не лезть в свойства чертежа.

пожаааааалуйста помогите

[malvi.dp 293]

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

Можно ли использовать ДВА Dprop чтобы каждый обращал к своей базе с основными надписями.

Лучше создать несколько каталогов SWPlus (чтобы не напутать с путями  и св-вами) и делать с ними что угодно - например один для английской версии файлов другой для русской и т.д.

[none 51]

48 минут назад, malvi.dp сказал:

Лучше создать несколько каталогов SWPlus (чтобы не напутать с путями  и св-вами) и делать с ними что угодно - например один для английской версии файлов другой для русской и т.д.

А как переключаться между ними безболезненно? Я каждый раз заменяю просто эту папку с макросами, но не знаю как одновременно иметь возможность выбора нужной системы для работы с разными заказчиками и заказами.

[Snake 60 757]

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

А как переключаться между ними безболезненно? Я каждый раз заменяю просто эту папку с макросами, но не знаю как одновременно иметь возможность выбора нужной системы для работы с разными заказчиками и заказами.

С разных папок вытащите разные иконки и не будет никакой путаницы. Можно для каждой папки свою вкладку сделать.

[Thoryn Telvanni 8]

Добрый день! Заранее прошу прощение если вопрос не в тему. Сегодня в ютубе наткнулся на видео про приложение SWPlus от КБ 2.0. На первый взгляд мне очень понравилось, классное развитие макросов) Хотел спросить на сколько приложение превосходит макросы или приложение это по большей части косметика, хотя косметика повторюсь мне понравилась, приятно работать когда интерфейс продуман. И может кто-нибудь знает сколько это приложение стоит, хотя боюсь мне студенту это не потянуть. Заранее спасибо!

[Snake 60 757]

@Thoryn Telvanni Так все вопросы можно задать сотрудникам КБ 2.0. Насколько я помню, если у них приобретать лицензию на SW, то  SWPlus идет комплектом бесплатно. Если приобретать отдельно, то 20 тыр, может быть сейчас уже больше. По функционалу и отличиям тебе @Leon расскажет, а они есть намного больше внешнего вида (говорю как бета-тестер :)

[Кувычка Иван 7]

19.04.2021 в 19:25, Кувычка Иван сказал:

Честно, пробовал найти....
Солид2019сп5- Спекэдитор2017. 

При создании спецификации\при перегенирации спецификации (7-15 листов спецификации) = зависает "наглухо"= выдает ошибку  Виндовс "не хватает памяти"

 

 

 

"Спасибо за помощь!" прям все налетели.... 

@Leon прошу помочь .

 

Зависания не зависят от винды "7-ка,8-ка,10-ка" 
От оперативы тоже не зависят 8,16,32
От жесткого тоже не зависят ИДЕ,ССд

 

Начинается процесс генерации - оперативка стабильная, потом в какой-то момент начинает "жрать" по 300 мб в 1-2 секунды, доходит до предела, там что-то еще пытается сделать и зависает комп.

Заметил что Окно макроса после нажатия на кнопку "создать" исчезает, раньше как-бы не зависал макрос окно не пропадало до окончания

[Leon 445]

@Кувычка Иван Вот здесь я на это отвечал.

[anser89 63]

Подскажите, как поправить - в форматку добавил свои заметки, в основную надпись, и при создании шаблонов больше А4 эти заметки остаются вне основной надписи. Как их можно привязать? 

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

Изменено 4 мая 2021 пользователем anser89

[Buzz_Aldrin 1]

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

[none 51]

Всем привет. Вопрос: При создании групповой специи вдруг стали позиции разных исполнений одной детали вставляться под одинаковым номером позиции. В настройках таблицы специи, посмотрел, и правда: стоит настройка "Отобразить под одним номером" в разделе группировки конфигураций детали. Пытался снять эту галку и сохранить шаблон в файл SpecEditor_sp.sldbomtbt, который лежит стандартно в каталоге SpecEditor. Заодно прописал четко путь в настройках солида до этого каталога как путь до шаблонов спецификации. Но никаких изменений, как макрос ставил одинаковый номер так и продолжает ставить одинаковый номер позиции для исполнений одной детали в групповой специи. В настройках макроса есть галка "Обозначение из параметров конфигурации". Если ее поставить, то макрос вставляет разные номера позиций, но тогда Обозначения выглядят так: "НРНЕ.456456.001-00" и "НРНЕ.456456.001-01". Можно руками поправить, но это уже не то. Кто сталкивался? SW2014. Раньше работал нормально.

Изменено 14 мая 2021 пользователем none

[none 51]

Вопрос решился. Не в тот файл сохранял настройки.

[Simlion 0]

Добрый день! Не знаю в правильную ли тему пишу. Вопрос по спецификации swplus2013: Как в спецификации сделать перенумерацию позиций деталей, к примеру в разделе деталей есть 9 деталей соответственно им присвоены позиции с 1 по9, далее к примеру идет раздел стандартных изделий и он соответственно автоматически начинается уже с 10 позиции, если я хочу раздел стандартных изделий начать не с 10 позиции а с 20-ой, я вручную исправляю в таблице позицию первой детали в разделе стандартные изделия, как сделать что бы раздел перенумеровался с новой позиции?

[malvi.dp 293]

11 часов назад, Simlion сказал:

как сделать что бы раздел перенумеровался с новой позиции?

автоматом никак, но можно задать в настройках резервирование позиций после раздела

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

 

[Thoryn Telvanni 8]

Добрый день! У меня длинное название организации, в одну строчку не помещается, каждый раз редактировать основную надпись сдвигая рамку не вариант, есть ли какие-нибудь способы настроить макрос так, чтобы он делал это автоматически?

[Kelny 1 333]

30 минут назад, Thoryn Telvanni сказал:

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

Если вы в одной организации работаете, то зачем каждый раз? Один раз добавьте название в шаблоны основной надписи и больше не пишите.

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

Или можно писать текст в две строки структурой стек: тут_пробел<FONT size=4>текст_слева_между_строк<STACK size=1 divider=no>первая_строка<OVER>вторая_строка</STACK>

 

С другой стороны, если КОД организации есть в обозначении документа, то название организации как бы лишнее:

Цитата

ГОСТ 2.104-2006

...

в графе 9 - наименование или код организации, выпускающей документ (графу не заполняют, если код содержится в обозначении документа);

 

Изменено 18 мая 2021 пользователем Kelny

[Thoryn Telvanni 8]

@Kelny спасибо за ответ! Попробую вбить название в шаблон.

[Thoryn Telvanni 8]

Еще один не большой вопрос по макросам. Не могу понять, какой макрос автоматически проставляет дату напротив разработчика, как это отключить?

Изменено 19 мая 2021 пользователем Thoryn Telvanni

[kenny 49]

1 час назад, Thoryn Telvanni сказал:

Не могу понять, какой макрос автоматически проставляет дату напротив разработчика

макрос вывода на печать, SaveAsPDF

[Kelny 1 333]

1 час назад, Thoryn Telvanni сказал:

Не могу понять, какой макрос автоматически проставляет дату напротив разработчика, как это отключить?

 

16 минут назад, kenny сказал:

макрос вывода на печать, SaveAsPDF

Здесь:

Цитата

Private Sub UserForm_Activate()

 

...

 

  ' Дата
    ' Определяем дату
    MyDate = Date
    MyDay = Day(MyDate)
    MyMonth = Month(MyDate)
    MyYear = Year(MyDate)
    strData = CStr(MyDay) & "." & CStr(MyMonth) & "." & Right$(CStr(MyYear), 2)
    ' Активируем первый лист
    ok = swDraw.ActivateSheet(vSheetNames(0))
    Set swSheet = swDraw.GetCurrentSheet
    strSheetFormatName = swSheet.GetSheetFormatName()
    Set swSelMgr = swDraw.SelectionManager
    ' Проверяем наличие изменений (Revision)
    strTemp = "Revision4@" & strSheetFormatName
    ok = swDraw.Extension.SelectByID2(strTemp, "NOTE", 0, 0, 0, False, 0, Nothing, 0)
    If ok = True Then ' Есть заметка Revision4
        Set swNote = swSelMgr.GetSelectedObject2(1)
        strTemp = swNote.GetText()
        If Len(strTemp) < 2 Then ' Изменений еще не было
            ' Устанавливаем дату Разраб.
            For i = 0 To UBound(vSheetNames)
                ok = swDraw.ActivateSheet(vSheetNames(i))
                Set swSheet = swDraw.GetCurrentSheet
                strSheetFormatName = swSheet.GetSheetFormatName()
                strTemp = "Date@" & strSheetFormatName
                ok = swDraw.Extension.SelectByID2(strTemp, "NOTE", 0, 0, 0, False, 0, Nothing, 0)
                If ok = True Then
                    Set swNote = swSelMgr.GetSelectedObject2(1)
                    swNote.SetText strData
                End If
            Next i
        Else ' Изменения были
            ' Устанавливаем дату Изм.
            For i = 0 To UBound(vSheetNames)
                ok = swDraw.ActivateSheet(vSheetNames(i))
                Set swSheet = swDraw.GetCurrentSheet
                strSheetFormatName = swSheet.GetSheetFormatName()
                strTemp = "Revision4@" & strSheetFormatName
                ok = swDraw.Extension.SelectByID2(strTemp, "NOTE", 0, 0, 0, False, 0, Nothing, 0)
                If ok = True Then
                    Set swNote = swSelMgr.GetSelectedObject2(1)
                    swNote.SetText strData
                End If
            Next i
        End If
    End If

можно закомментить так:

Цитата

                    'Set swNote = swSelMgr.GetSelectedObject2(1)
                    'swNote.SetText strData

 

Изменено 19 мая 2021 пользователем Kelny