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

[makarov 0]

Добрый день. Подскажите, есть ли возможность пакетно сохранить чертежи в pdf с помощью макроса save_as_pdf ?

[Kelny 1 251]

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

Подскажите, есть ли возможность пакетно сохранить чертежи в pdf с помощью макроса save_as_pdf ?

Макрос напишите, будет печатать хоть пакетом, хоть в один файл или каждый лист в свой файл, а может чего ещё надумаете, как вам хочется... Было бы желание...

[malvi.dp 268]

18 часов назад, makarov сказал:

Добрый день. Подскажите, есть ли возможность пакетно сохранить чертежи в pdf с помощью макроса save_as_pdf ?

Попробуйте использовать "Task Sheduler" пакетно сохраняет чертежи в пдф

Показать содержимое  

 

Hide  

 

[Kelny 1 251]

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

пакетно сохраняет чертежи в пдф

К сожалению, после перехода на конвертацию через Adobe в Solidworks2006 встроенное сохранение не все элементы чертежа корректно переносит в PDF. Поэтому приходится использовать сторонние виртуальные принтеры и макросы для упрощения конвертации.

 

 

Изменено 30 августа 2017 пользователем Kelny

[makarov 0]

С Task Sheduler'ом проблема в шрифтах. Мы здесь конвертируем через SaveAs - на заводе кряквозябры. Нормально работает только через виртуальный принтер.

 

Если б я мог написать макрос, вопросов бы не задавал :-))

 

save_as_pdf  создан давно, я думал, уже кто-то решил проблему с пакетным переводом чертежей.

 

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

 

Dim swApp As SldWorks.SldWorks
Dim Part As ModelDoc2
Dim longstatus As Long, longwarnings As Long

Sub Main()
    'MyPath = "C:\temp" 'Папка в которой необходимо сделать PDF
    MyPath = InputBox("Введите путь к папке:", "Папка преобразования чертежей")

    Set swApp = Application.SldWorks
    Dim FileList As String

    If Right(MyPath, 1) <> "\" Then
        MyPath = MyPath & "\"
    End If
    MyName = Dir(MyPath, vbDirectory)
    If MyName = vbNullString Then
        MsgBox "Указанная папка не cуществует"
            Exit Sub
    End If
    Do While MyName <> ""
        If MyName <> "." And MyName <> ".." Then
            If UCase(MyName) Like UCase("*.slddrw") Then ' Маска файлов с нужным расширением
                Debug.Print MyName
                FileList = MyPath & MyName
                Set Part = swApp.OpenDoc6(FileList, 3, swOpenDocOptions_e.swOpenDocOptions_Silent, "", longstatus, longwarnings)
                'Если макрос преобразования в PDF лежит в той же папке, что и этот макрос строка ниже:
                 swApp.RunMacro swApp.GetCurrentMacroPathFolder & "\SaveAsPDF.swp", "SaveAsPDF_run", "main"
                'Если знаете путь до макроса можно прописать путь, раскомментируйте строку ниже и закоментируйте строку выше:
                'swApp.RunMacro "Путь_к_макросу_Например_C:\macros\SaveAsPDF.swp", "SaveAsPDF_run", "main"
                swApp.CloseDoc Part.GetPathName
            End If
        End If
        MyName = Dir
    Loop
    End
End Sub

[Alex8007 24]

В 04.08.2017 в 16:12, Solidman сказал:

@Leon

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

Такая же беда. Это при редактировании старых чертежей вылезает, версия чертежа отсутствует. Я лечу так: захожу в DProp, там меняю следующую версию на "нет", затем жму "изменить версию", закрыть. И перерисовать чертеж "светофором" или Ctrl+Q. Возможно, если выключить галку в общих настройках, то при изменении таких чертежей больше не будет ошибки.

 

Показать содержимое  

Hide  

Показать содержимое  

Hide  

Изменено 6 сентября 2017 пользователем Alex8007

[Kelny 1 251]

38 минут назад, Alex8007 сказал:

Такая же беда. Это при редактировании старых чертежей вылезает

http://cccp3d.ru/topic/6622-спецификация-для-sw-по-гост/?do=findComment&comment=814619

[Sancho78 0]

Добрый день!

Вопрос по SWPlus_v_2013_sp1. Установил на SW premium 2013 x64 sp5. Вроде бы всё генерит в спецификации, но вот фамилии разраб., пров., и тд. отказывается прописывать, остаются пустыми. Прописывал в Mprop. Всё равно пустые строки. В чём причина? 

[IgorT 398]

SWPlus позволяет делать запись в спецификацию чертежа б/ч? Как это делается?

[IgorT 398]

Так кто как  б/ч в спецификацию записывает? 

 

[DuS 325]

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

SWPlus позволяет делать запись в спецификацию чертежа б/ч? Как это делается?

 

25 минут назад, IgorT сказал:

Так кто как  б/ч в спецификацию записывает? 

 

я вставляю в "наименование" такую запись. Например для швеллера:

Швеллер
Швеллер "номер@э"-В ГОСТ8240-89 
            Ст3 ГOCT 535-88
L="D1@Бобышка-Вытянуть1"мм, Торцы Rz320

 

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

[MUXALblCH 43]

Для заполнения свойств БЧ деталей использую прогу GeOS. Иногда использую небольшой макрос читающий свойства из списка вырезов и записывающий их в свойство файла. Все зависит от способа построения модели...

[DuS 325]

4 минуты назад, MUXALblCH сказал:

Для заполнения свойств БЧ деталей использую прогу GeOS.

параметризация обеспечивается?

[MUXALblCH 43]

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

 

я вставляю в "наименование" такую запись. Например для швеллера:

Швеллер
Швеллер "номер@э"-В ГОСТ8240-89 
            Ст3 ГOCT 535-88
L="D1@Бобышка-Вытянуть1"мм, Торцы Rz320

 

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

GeOS на выходе примерно тоже и выдает...

Следовательно, если изменилась длина детали, то никаких проблем. Если поменяли сортамент (предположим двутавр поменяли на трубу), то:

-> GeOS - заходить в модель и менять через прогу (я на данный момент делаю так).

-> Со сварными - зайти в файл модели и нажать обновить свойства.

 

[DuS 325]

6 минут назад, MUXALblCH сказал:

GeOS на выходе примерно тоже и выдает...

Следовательно, если изменилась длина детали, то никаких проблем. Если поменяли сортамент (предположим двутавр поменяли на трубу), то:

-> GeOS - заходить в модель и менять через прогу (я на данный момент делаю так).

-> Со сварными - зайти в файл модели и нажать обновить свойства.

 

то есть по размерам есть параметризация. буду изучать.

[IgorT 398]

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

 

я вставляю в "наименование" такую запись. Например для швеллера:

Швеллер
Швеллер "номер@э"-В ГОСТ8240-89 
            Ст3 ГOCT 535-88
L="D1@Бобышка-Вытянуть1"мм, Торцы Rz320

 

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

Это в модели надо делать?

[MUXALblCH 43]

11 минуту назад, IgorT сказал:

Это в модели надо делать?

Ага, через MProp и не забыть в формате поменять на БЧ. У меня кстати в примечаниях масса детали почему-то не прописывается при замене формата на БЧ. Пришлось в коде подправить.

[DuS 325]

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

Это в модели надо делать?

да 

[Solan 3]

@Kelny Не подскажете, для чего макрос SWPlus свойство Конструктор прописывает в общем поле, а проверяющего, ..., утверждающего в списке  свойств конфигурации? При передаче в swe поля разработчика, проверяющего ... отображаются в разных закладках.

[aravius 0]

Вопрос по SpecEditor. В спецификации не отображаются прочие изделия. SW2015. Прописываются какие-то записи "по умолчанию"

Изменено 25 сентября 2017 пользователем aravius