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

[Leon 435]

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

[USSR_Nic 12]

Здравствуйте. Кто нибудь разобрался как настроить тулбокс, так, чтобы компоненты тулбокса отображались в ВП из SpecEditor? по умолчанию в наименование ставится "Наименование ВП" а в тулбоксе нет такого поля. и как его добавить я не понимаю. ведь в ВП надо разделить наименование на имя и днп. А как это сделать??? Максимум чего я придумал добавить в тулбоксе "Наименование ВП" и туда впихнуть наименование. но тогда в наименование попадает и имя и днп. Как их разделить?, блин...

[USSR_Nic 12]

Забыл написать   SW у меня 2017

[Leon 435]

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

[USSR_Nic 12]

Дык посмотреть то я посмотрел. Я не понимаю как тулбокс перестроить. Как разделить наименование в тулбоксе  на Наименование ВП и Обозначение ДНП... В этом и состоит проблема....

Хоть в макросе их дербань....

Изменено 2 июля пользователем USSR_Nic

[Docuk1 31]

@Leon Доброго дня! в макросе Roughness (простановка общей шероховатости), есть малая неприятность: если активный вид не лист, а любой вид, то обозначение ставится относительно этого вида см.эскиз. Пытался перед вставкой сменить активный вид, но что-то не выходит. Можно как-то подкорректировать?

 

вставлял вот этот кусок кода в разные места кода, особенно в кнопку "ок"

Dim swView As SldWorks.View
Dim swDraw As SldWorks.DrawingDoc
Dim bRet As Boolean

Set swDraw = ModelDoc2
Set swView = swDraw.ActiveDrawingView
If Not swView Is Nothing Then
Debug.Print swView.GetName2
Set swView = swDraw.GetFirstView
bRet = swDraw.ActivateView(swView.GetName2)
Debug.Print "  Active view = " & swView.GetName2
End If

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

эскиз

 

Изменено 3 июля пользователем Docuk1

[Snake 60 732]

@Docuk1 А если перед применением макроса два раза кликнуть (дабл-клик) в любом свободном месте листа?

[Docuk1 31]

20 часов назад, Snake 60 сказал:

@Docuk1 А если перед применением макроса два раза кликнуть (дабл-клик) в любом свободном месте листа?

Именно так и делаем. НО если есть возможность дописать пару строк кода и забыть, то было бы вообще хорошо

[Chuvak 31]

@Docuk1 Могу помочь, если скинете файл макроса

[Chuvak 31]

Пример работы макроса Roughness (простановка общей шероховатости):

1) Некорректная:

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

 

2) Корректная:

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

 

Изменено 4 июля пользователем Chuvak

[malvi.dp 286]

14 часов назад, Docuk1 сказал:

Именно так и делаем. НО если есть возможность дописать пару строк кода и забыть, то было бы вообще хорошо

Пару строк, можно.

В модуле Roughness_run идем в процедуру "main"
и перед строкой "FrmRoughness.Show" вставляем следующий код:

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

'Активируем текущий лист
        Dim swDrwng As DrawingDoc
        Dim activeSheet As Sheet
        Set swDrwng = ModelDoc2
        Set activeSheet = swDrwng.GetCurrentSheet
        ModelDoc2.ActivateSheet activeSheet.GetName

 

 

[mikb 0]

Добрый день ! Использую SW2017 SP5 и макросы SPlus 2017. Виндовс 10х64. Никак не получается запустить SpecEditor, выдает ошибку Run-time error '13'.

При нажатии Debug выдает вот такое:

While k = 1
    k = 0
    For i = 2 To nNumRow - 1
    If swTable.Text(i, nNumColumn - 1) < i - 1 Then
        ok = swTable.MoveRow(i, swTableItemInsertPosition_First, i - 1)
        k = 1
        Exit For
    End If
    Next i
Wend

В чем может быть проблема?

[dicty 0]

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

 

В чем может быть проблема?

Попробуйте изменить тип запуска на "SpecEditor_run.main", мне, вроде, помогало

[mikb 0]

37 минут назад, dicty сказал:

Попробуйте изменить тип запуска на "SpecEditor_run.main", мне, вроде, помогало

Не помогает.

[Leon 435]

19 часов назад, mikb сказал:

Не помогает.

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

Изменено 11 июля пользователем Leon

[Kostelan 0]

Приветствую, подскажите как исправить сортировку стандартных изделий. Поясню, создаю модель стоек по ОСТ, исполнения стоек сделаны конфигурациями на основе таблицы Exel, в таблице указаны все размеры а также обозначение для каждого исполнения. При сортировке с разделе «Стандартные изделия» сортируются не по увеличению типоразмера например:

стойка М2х4, М2х6, М2х10…

А сортирует 

стойка М2х10, М2х12, М2х20, М2х4, М2х6 и т.д.

Как решить это? Прошу помощи знающих, заранее спасибо.

[Leon 435]

Здравствуйте! В коде есть метод "Sort" который реализует алгоритм сортировки. Если ваш крепеж имеет наименование вида "Имя М2x10 ОСТ NN-NN", то алгоритм должен его парсить и правильно сравнивать числовые части.

[USSR_Nic 12]

Здравствуйте. Может кто-нибудь знает как програмно открыть окно "Сохранить как" и сразу вписать туда имя сохраняемого файла и путь. Был бы крайне благодарен, если поделитесь знанием куда посмотреть.

[Snake 60 732]

@USSR_Nic  https://help.solidworks.com/2024/english/api/sldworksapi/SolidWorks.Interop.sldworks~SolidWorks.Interop.sldworks.IModelDocExtension~SaveAs3.html?verRedirect=1

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

Если надо просто вызвать окно сохранения от команды Сохранить как, так можно просто назначить горячую клавишу на эту команду через Настройкм - Клавиатура там в поиск вбить Сохранить Как или запускать эту команду через стандартные команды солида средствами API. Вот так: swDoc.Extension.RunCommand swCommands_SaveAs, Empty

 

Изменено вчера в 11:37 пользователем Snake 60

[USSR_Nic 12]

swDoc.Extension.RunCommand swCommands_SaveAs, Empty

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

 

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

 

Вот еще забыл. почему то ругается что неизвестная переменная вот на нее: swCommands_SaveAs

а написал вместо нее 620 и окно открылось. Почему бы это? в других командах имена из хелпа работают нормально. а для команды .RunCommand

срабатывают тока циферки...

Изменено 2 часа назад пользователем USSR_Nic

[Snake 60 732]

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

Но я все равно не могу понять как мне настроить это окно из программы.

Через эту команду никак. Это тупо имитация нажатия кнопки Save As

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

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

Неверное мнение. Загляните вот сюда https://help.solidworks.com/2024/english/api/swconst/SOLIDWORKS.Interop.swconst~SOLIDWORKS.Interop.swconst.swSaveAsOptions_e.html

Втихую только если выбран параметр swSaveAsOptions_Silent

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

Вот еще забыл. почему то ругается что неизвестная переменная вот на нее: swCommands_SaveAs

Библиотека с константами солида подключена?