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

[SEREDA 0]

Добрый день коллеги.

Подскажите как корректно изменить мастер формат, чтобы соответствовали ISO 5475:1999.

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

Как поднять штамп на 5мм?

[Solidman 15]

@SEREDA

40 минут назад, SEREDA сказал:

Как поднять штамп на 5мм?

Эта привязка внутренней рамки штампа. Для управления самим штампом нужно отобразить скрытые размеры. Вид - Отобразить/Скрыть - Примечания. Там не сложно.

[SEREDA 0]

21 минуту назад, Solidman сказал:

Вид - Отобразить/Скрыть - Примечания. Там не сложно.

С этими размерами нет проблем. Вопрос в том, что весь штамп зафиксирован относительно одной точки.

Если Вы попытаетесь изменить размер "5", к примеру на "10" то:

Весь штамп зафиксирован.

При удалении фиксации теряется привязка штампа на формате.

Может как- то можно поправить привязки в форматах?

[Solidman 15]

@SEREDA

19 минут назад, SEREDA сказал:

Весь штамп зафиксирован.

При удалении фиксации теряется привязка штампа на формате.

Удалять фиксацию не надо. Ничего не потеряется. Изменяйте размер 185 (который на моем примере 205)

 

Изменено 4 декабря 2019 пользователем Solidman

[SEREDA 0]

1 минуту назад, Solidman сказал:

@SEREDA

Удалять фиксацию не надо. Ничего не потеряется. Изменяйте размер 185

 

Суть в том чтобы сделать отступы по ISO 5457. отступ 20х10х10х10. А по ГОСТ 20х5х5х5. 

 

[Leon 433]

21 час назад, ytltkmrj сказал:

Здравствуйте, а где поправить, чтобы в колонке формат макрос не сжимал шрифт, а было, как в обозначении? 

' Поджимаем стобец Формат
    If CboType.ListIndex = 0 Or CboType.ListIndex = 1 Then  ' Спецификация или Групповая спецификация
        Set swTextFormat = swTable.GetCellTextFormat(1, 0)
        swTextFormat.WidthFactor = dFontWidth / 1.4
        ok = swTable.SetCellTextFormat(i, 0, False, swTextFormat)
    End If

Удалите или закомментируйте

Изменено 4 декабря 2019 пользователем Leon

[Solidman 15]

@SEREDA

Получилось?

[SEREDA 0]

2 минуты назад, Solidman сказал:

@SEREDA

Получилось?

К сожалению нет. Не удается поднять штамп без удаления привязки "Зафиксирован". А это приводит к тому, что макрос "Master" некорректно вставляет штамп на все форматы отличные от А4.

[Solidman 15]

@SEREDA

Сделал для первого листа.

Тут!

[ytltkmrj 0]

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

Удалите или закомментируйте

напомните, как туда попасть?

 

[s.v.sevagin 0]

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

[Solidman 15]

@SEREDA

Доделал

Тут 1

[SEREDA 0]

1 час назад, Solidman сказал:

@SEREDA

Сделал для первого листа.

Тут!

Супер! Громадное СПАСИБО! Откройте секрет, как Вы это осуществили? Еще и второй лист нужно сделать. ;)

В Master.swp нужно что-то изменять? Или это в штампе?

[Solidman 15]

@SEREDA

Скачайте этот архив. Это уже со вторым листом. Объяснять дольше чем делать. Скопируйте файлы из архива взамен исходных файлов макроса (см. папку Master). Штамп подредактируйте под себя. Если что-то отвалится - пишите, помогу. Сам когда-то "прошел" этой дорогой. Спасибо автору этих макросов Leon

Изменено 4 декабря 2019 пользователем Solidman

[Leon 433]

1 час назад, ytltkmrj сказал:

напомните, как туда попасть?

Инструменты-Макрос-Рдактировать-SpecEditor.swp-FrmSpecEditor и дальше поиском по коду

[Leon 433]

1 час назад, s.v.sevagin сказал:

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

У меня там к сожалению нет проверки на тип таблицы, и макрос ее видимо подхватывает.

Попробуйте заменить вот этот кусок кода:

If Not swTable Is Nothing Then ' Спецификация найдена на листе сборки
            nNumColumn = swTable.ColumnCount
            If nNumColumn = 7 Then
                mSpecType = 0
                CboType.ListIndex = 0 ' Спецификация
                mChkAssem = 1
                ChkAssem.Value = True
                mSpec = 1
                CmdSort.Enabled = True
                FrmLine.Enabled = True
                CmdFormat.Enabled = True
                CmdAddFormat.Enabled = True
                CmdPosition.Enabled = True
                CmdPosTest.Enabled = True
                CmdView.Enabled = True
            End If
        End If

Вот этим:

If Not swView Is Nothing Then
        Set swTable = swView.GetFirstTableAnnotation
        If Not swTable Is Nothing Then ' Спецификация найдена на листе сборки
            If swTable.Type = swTableAnnotationType_e.swTableAnnotation_BillOfMaterials Then
                nNumColumn = swTable.ColumnCount
                If nNumColumn = 7 Then
                    mSpecType = 0
                    CboType.ListIndex = 0 ' Спецификация
                    mChkAssem = 1
                    ChkAssem.Value = True
                    mSpec = 1
                    CmdSort.Enabled = True
                    FrmLine.Enabled = True
                    CmdFormat.Enabled = True
                    CmdAddFormat.Enabled = True
                    CmdPosition.Enabled = True
                    CmdPosTest.Enabled = True
                    CmdView.Enabled = True
                End If
            End If
        End If
    End If

 

[eest 1]

Добрый день коллеги. Подскажите пожалуйста как изменить толщину линии в шаблоне для SpecEditor, по стандарту там всегда 0,6мм а нужно 0,2

 

 

Изменено 5 декабря 2019 пользователем eest

[Solidman 15]

@eest

Нужно изменить толщину линий в \SpecEditor\SpecEditor_sp.sldbomtbt. Для этого настройте толщину в созданной спецификации и сохраните таблицу спецификации как шаблон (Файл-Сохранить как... - \SpecEditor\SpecEditor_sp.sldbomtbt)

[eest 1]

Спасибо за ответ, но к сожалению этот способ не работает, даже перезапустил SW и таже толщина как и была 0,6мм

[Solidman 15]

@eest

А при создании спецификации какой шаблон используется?