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

[Z-MAN 0]

Работают. Есть решение и Леон (или ещё кто) выложит версию для 2013

Уважаемый Леон, не будете ли вы так любезны, выложите, плз, версию для 2013, желательно на х64

[visla 1]

Скорее всего на шаблоне в папке мастер у вас нету надписи ФОРМАТ (он был удален вами либо сам, что мы и видим на скрине)

Здравствуйте.

Не понял объяснения для предыдущего поста. Можно ли поточнее объяснение?

У меня один в один такая же проблема. Как побороть?

У меня выскакивает ошибка при нажатии на "Создать основные форматы" в макросе Master. Нажимаю Debug, а дальше что делать не знаю.

Вот скрины.

Привествую,.

У меня тоже самое, как удалось разрешить вопрос???

[Reichsmann 0]

Уважаемый Леон, не будете ли вы так любезны, выложите, плз, версию для 2013, желательно на х64

Так вроде на рутрекере уже дня три выложен полный пакет макросов работающих под 2013 и ниже и исправленным хелпом. Посмотрите там, дискуссия там уже начала напоминать здешнюю :)

[Leon 433]

выложите, плз, версию для 2013, желательно на х64

На рутрекере есть ссылка в теме про 2013. Делал не я, но человек которому можно доверять как мне, и даже больше )))

Мне сейчас стало сильно некогда. Через некоторое время выложу и здесь.

И зачем вы спешите с 2013? Никогда ничем хорошим эта спешка не заканчивалась...

[SERoz 201]

_Leon_

Хочу ещё разик спросить, по-поводу точки (разделителя - Обозначение.Исполнение) в штампе Основной надписи (при простановке галки - Конфигурация в MProp)...

Где это можно подправить (в смысле заменить "-" на ".")???

[IIapaM 0]

visla

Заменил файл шаблона в Master'e на шаблон от Леона. Если будете часто менять шаблон, то лучше ставьте галочку в свойствах файла "Только для чтения" перед тем как создавать основные форматы, иначе шаблон опять повредится и придется делать изменения заново.

[kirass 41]

Есть пожелание сделать возможным вставить логотип компании вместо названия фирмы

прим. так

или так

Изменено 23 октября 2012 пользователем kirass

[streamdown 1 565]

kirass

это умеет делать макрос от fox1001

[kirass 41]

kirass

это умеет делать макрос от fox1001

не могу найти

[SERoz 201]

не могу найти wallbash.gif

Зачем ещё и макрос???

Вставляйте как Рисунок, подгоните размеры и на нужное место...

[kirass 41]

SERoz

так и сделал))))

[streamdown 1 565]

Вставляйте как Рисунок

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

[Sergei 297]

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

Где макрос то этот?

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

[Kelny 1 234]

Где макрос то этот?

' ******************************************************************************

' Макрос вставки картинки в документ 10/24/12 by Kelny

' ******************************************************************************





'Макрос вставки картинки в документ

Sub main()

'Объявляем и инициализируем всё необходимое

Dim swApp As SldWorks.SldWorks

Dim Part As SldWorks.ModelDoc2



Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc



'Вставляем рисунок

Dim SkPicture As SldWorks.SketchPicture

Set SkPicture = Part.SketchManager.InsertSketchPicture("C:\Путь_к_рисунку\Имя_рисунка.gif")

'Единицы измерения МЕТРЫ

SkPicture.SetOrigin 0.1, 0.2 'Изменяем координату вставки

SkPicture.SetSize 0.1, 0.05, True 'Задаём размер изображения

Part.ClearSelection 'Снимаем выделение с картинки

End Sub

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

Вставлять на лист, а не в режиме редактирования основной надписи...

[fox1001 787]

Где макрос то этот?

для общественного суда и пользования я его не выкладывал (по-моему). у меня он (сейчас уже небольшая программка), но... сделана она под ООООООООООООЧЕНЬ конкретную задачу. легче понавставлять логотипы в основные надписи, сохранить их (основные надписи) и не мучица.

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

' ******************************************************************************

' Макрос вставки картинки в документ 10/24/12 by Kelny

' ******************************************************************************

....................

Вставлять на лист, а не в режиме редактирования основной надписи...

уважаемый Kelny. позволю себе небольшую ремарочку.

в таком макросе ещё нужно учесть масштаб и размер листа, т.к. размер и точка вставки картинки изменяются в соответствии с его (листа) масштабом.

[kirass 41]

Для своих нужд так и сделал (вставил лого в основные надписи и все сохранил)

токо неполучилось запихать картинку в слой с рамкой но эт уже другая история)))

пожелание все равно имеет место быть..... вдруг кто нить сможет(захочет) реализовать такой функцианал

у меня к сожелению пока не хватает навыка (надеюсь пока)

[fox1001 787]

Для своих нужд так и сделал (вставил лого в основные надписи и все сохранил)

токо неполучилось запихать картинку в слой с рамкой но эт уже другая история)))

пожелание все равно имеет место быть..... вдруг кто нить сможет(захочет) реализовать такой функцианал

у меня к сожелению пока не хватает навыка (надеюсь пока)

попробуйте такой код:

' Макрос вставки картинки в документ 10/24/12 created Kelny, corrected fox1001

' ******************************************************************************

'Макрос вставки картинки в документ

Sub main()

'Объявляем и инициализируем всё необходимое

Dim swApp As SldWorks.SldWorks

Dim Part As SldWorks.ModelDoc2

Dim swSheet As Sheet

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

Set swSheet = Part.GetCurrentSheet

'Вставляем рисунок

Dim SkPicture As SldWorks.SketchPicture

Set SkPicture = Part.SketchManager.InsertSketchPicture("c _linenums:0'>' ******************************************************************************' Макрос вставки картинки в документ 10/24/12 created Kelny, corrected fox1001' ******************************************************************************'Макрос вставки картинки в документSub main()'Объявляем и инициализируем всё необходимоеDim swApp As SldWorks.SldWorksDim Part As SldWorks.ModelDoc2Dim swSheet As SheetSet swApp = Application.SldWorksSet Part = swApp.ActiveDocSet swSheet = Part.GetCurrentSheet'Вставляем рисунокDim SkPicture As SldWorks.SketchPictureSet SkPicture = Part.SketchManager.InsertSketchPicture("c:\картинка.jpg")'Единицы измерения МИЛЛИМЕТРЫk = swSheet.GetProperties(3) / swSheet.GetProperties(2)SkPicture.SetOrigin (swSheet.GetProperties(5) - 0.055) * k, 0.001 * 5 * k 'Изменяем координату вставкиSkPicture.SetSize 0.001 * 50 * k, 0.001 * 15 * k, True 'Задаём размер изображенияPart.ClearSelection 'Снимаем выделение с картинкиEnd Sub

соотношение сторон картинки желательно иметь 50/15, или менять коэф-ты в коде (50 заменить на ширину вашей картинки, 15 - на высоту вашей картинки).

[kirass 41]

Eror 91

SkPicture.SetOrigin (swSheet.GetProperties(5) - 0.055) * k, 0.001 * 5 * k

[fox1001 787]

Eror 91

Set SkPicture = Part.SketchManager.InsertSketchPicture("c:\картинка.jpg")

вместо c:\картинка.jpg нужно прописать полный путь к картинке которую вы хотите вставить.

[kirass 41]

прописал даж русских букв в пути нет

прописал

Set SkPicture = Part.SketchManager.InsertSketchPicture("D:\SWPlus_v_07\SWPlus\Master\1.jpg")

прошу пардону сам балбес все работает

Изменено 24 октября 2012 пользователем kirass