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

[Vasiliy85 5]

5 минут назад, Leon сказал:

@Vasiliy85 И это именно MProp делает если его в чертеже запустить? Другие макросы, например DProp, если к примеру форматку заменить, так не поступают?

другие протестировал не замечано. А MProp четко сбрасывается разрядность с .1 на .12 если нажать применить.

[Leon 433]

'     Назначение массовых характеристик
    Dim swModelDraw As ModelDoc2
    Set swModelDraw = swDraw
    ok = swModelDraw.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitSystem, swUserPreferenceOption_e.swDetailingNoOptionSpecified, swUnitSystem_Custom)
    Select Case CboMass.ListIndex
    Case 0
        ok = swModelDraw.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropLength, swUserPreferenceOption_e.swDetailingNoOptionSpecified, swMM)
        ok = swModelDraw.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropMass, swUserPreferenceOption_e.swDetailingNoOptionSpecified, swUnitsMassPropMass_Milligrams)
        ok = swModelDraw.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, swUserPreferenceOption_e.swDetailingNoOptionSpecified, swUnitsMassPropVolume_Millimeters3)
    Case 1
        ok = swModelDraw.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropLength, swUserPreferenceOption_e.swDetailingNoOptionSpecified, swCM)
        ok = swModelDraw.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropMass, swUserPreferenceOption_e.swDetailingNoOptionSpecified, swUnitsMassPropMass_Grams)
        ok = swModelDraw.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, swUserPreferenceOption_e.swDetailingNoOptionSpecified, swUnitsMassPropVolume_Centimeters3)
    Case 2
        ok = swModelDraw.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropLength, swUserPreferenceOption_e.swDetailingNoOptionSpecified, swMETER)
        ok = swModelDraw.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropMass, swUserPreferenceOption_e.swDetailingNoOptionSpecified, swUnitsMassPropMass_Kilograms)
        ok = swModelDraw.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, swUserPreferenceOption_e.swDetailingNoOptionSpecified, swUnitsMassPropVolume_Meters3)
    Case 3
        ok = swModelDraw.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropLength, swUserPreferenceOption_e.swDetailingNoOptionSpecified, swFEET)
        ok = swModelDraw.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropMass, swUserPreferenceOption_e.swDetailingNoOptionSpecified, swUnitsMassPropMass_Pounds)
        ok = swModelDraw.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropVolume, swUserPreferenceOption_e.swDetailingNoOptionSpecified, swUnitsMassPropVolume_Feet3)
    End Select
    ok = swModelDraw.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropDecimalPlaces, swUserPreferenceOption_e.swDetailingNoOptionSpecified, CboTol.ListIndex)

Найдите в MProp этот кусок и попробуйте закомментировать последнюю строку.

[Vasiliy85 5]

Если имелось сделать так

 

End Select
  '  ok = swModelDraw.Extension.

 

то не помогло.

Изменено 15 июля 2019 пользователем Vasiliy85

[malvi.dp 263]

@Vasiliy85 , попробуйте так

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

 

Hide  

 

[Plumber 737]

4 часа назад, shultz81 сказал:

программу запускаю от администратора. система Win 7. диск только С

открыть полный доступ на папку не могу потому как

А что это там такое в строке Location:

У меня почему-то это так выглядит  

Hide  

А еще надо посмотреть во вкладке "Security", может владельца поменять надо

[shultz81 1]

Повторил процедуру

Скинул Макросы на флешку

Открыл солид установил в проперти 

1.темплейты с папки шаблоны

2. Макрос путь к макросам на флешке

3. sheet template указал путь к форматкам на флешке

4. Загрузил Май стандарт с флешки, открыв чертеж>свойства чертежа 

Создал деталь, сохранил

создал 2 деталь, сохранил

Создал сборку с деталей, сохранил

Сделать чертеж с сборки, указал темплейт с флешки

сохранил чертеж

Добавил макрос спец едитор, запустил.

Запустился без предупреждения об ошибке в форматке 

создать спецификацию....Вуаля! Есть создало

Создаю 3 деталь

делаю сборку из сборки с первыми 2-мя деталями + 3 деталь

сохраняю сборку, создаю чертеж, указываю формат А3 с флешки

сохраняю чертеж

пробую сгенерировать спецификацию.

Вылетает сообщение об ошибке в форматке исправте с помощью Dprop

ок

нажимаю после генерацию....Все...приплыли ...висим
Запускал от администратора

4 часа назад, Plumber сказал:

А что это там такое в строке Location:

У меня почему-то это так выглядит

Hide

А еще надо посмотреть во вкладке "Security", может владельца поменять надо

Это скрин с работы (контора японская). Дома тоже самое 

Может из этого что удалить нужно?

[shultz81 1]

Переустановка солида, ничем не помагла!

Какие идеи,? Какие еще варианты?

 

[Vasiliy85 5]

@malvi.dp сработал только на массе, заметил что так же разрядность меняется если через dpor перезагрузить основную надпись, хотя если нажать Исправить оформление чертежа то разрядность в норме. Мое предположение что макрос восстанавливает те настройки которые заложены в самом солиде в стиле гост т.к внизу чертёжного стандарта написано получено из ГОСТ

[shultz81 1]

8 минут назад, shultz81 сказал:

Переустановка солида, ничем не помагла!

Какие идеи,? Какие еще варианты?

 

Забыл написать что Солид с меню на английском. Может это как-то влияет, язык поменять?

 

[Vasiliy85 5]

Мож все таки дела в настройках файлов.

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

Name Source18 As strTemp1   ' Rename file

не может найти файл, что это такое?

 

еще 1 замечания, если открыть файл A4-P-1.slddrt через солид то он генерируется его на основе шаблона iso как это исправить ?

Изменено 15 июля 2019 пользователем Vasiliy85

[Plumber 737]

15 часов назад, shultz81 сказал:

контора японская

Да хоть какая, просто на скрине вместо обратного слеша (\) почему-то стоит знак Йены "¥"

[Leon 433]

В 15.07.2019 в 00:06, shultz81 сказал:

случайно нет видео материала по настройке макросов

Я тут внезапно обнаружил, что есть! Если вбить в ютюбе "Спецификация в SOLIDWORKS по ГОСТ" то во первых строках будут видео о моих макросах. Даже с девушкой есть, более 10к просмотров. Но именно в целях разобраться с макросами рекомендовать смотреть не буду.

Попробую за выходные свое видео запилить.

 

 

@Vasiliy85 Я вам в личку написал.

[Altay 1]

Добрый день.

Подскажите как отформатировать написание труб в графе материалы. Необходимо что бы слово "Труба" было посередине разделяющей линии, материал трубы сдвинуть ближе к линии, и, в идеале, что бы разделяющая линия совпадала с линией таблицы.

Запись имеет вид Труба <STACK size=0.8>"D1@Эскиз1@"х"D2@Эскиз1@"х"D5@Вытянуть-Тонкостенный1@" ГОСТ 8639-82 <OVER>10 ГОСТ 13663-89 </STACK>.

 

123.pdf

Изменено 17 июля 2019 пользователем Altay

[Kelny 1 236]

3 часа назад, Altay сказал:

Необходимо что бы слово "Труба" было посередине разделяющей линии

Либо в ссылке впереди добавить то что внутри кавычек  (не забыть про пробел впереди): " <FONT size=3.5>"

Или в заметке со ссылкой поставить пробел перед ссылкой: ТутПробел$PRP:"Material"

 

 

 

 

 

Изменено 17 июля 2019 пользователем Kelny

[Altay 1]

14 часа назад, Kelny сказал:

Либо в ссылке впереди добавить то что внутри кавычек  (не забыть про пробел впереди): " <FONT size=3.5>"

Изменил запись на:

 <FONT size=3.5> Труба <STACK size=0.8>"D1@Эскиз1@"х"D2@Эскиз1@"х"D5@Вытянуть-Тонкостенный1@" ГОСТ 8639-82 <OVER>10 ГОСТ 13663-89 </STACK>

Ни чего не изменилось.

Прикрепил файл SW2016.

Труба 80х60.SLDPRT

[Kelny 1 236]

4 часа назад, Altay сказал:

Ни чего не изменилось.

Прикрепил файл SW2016.

В предыдущих версиях, при наличии пробела вначале строки, работает.

[Leon 433]

Первые видеоуроки по макросам. Сделал как смог, ни оборудования ни опыта нет. Как там принято говорить у блогеров, подписывайтесь на канал, ставьте лайки)))

Продолжение следует.

[TVM 267]

@Leon

КУКУ за работу для SW12.

Работа очень хорошая (ЛУЧШАЯ ИМХО).

Нет возможности далее в ней созерцать по объективным причинам.

Чуть опоздал. Извените.

 

[Leon 433]

@TVM Извините, не понял вашу мысль. Если вы про видео и почему именно сейчас? Изначально я не собирался делать видео, поскольку есть справка. Но вот недавно попросили сделать. Плюс увидел на ютюбе сторонние ролики и понял что этот формат популярен и востребован...Лично сам я не очень люблю воспринимать информацию через видео-аудио. Это долго. Предпочитаю читать.

[sagaudi 9]

Добрый день.

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

тк в программировании не силен решил выкручиваться подручными способами используя "доп.свойство_1" из макросов SW_Plus.

захожу в свойства модели и выбираю значение из выпадающего списка напротив "доп.свойства_1" "площадь поверхности",

а в чертеже прописываю $PRPSHEET:"Доп.свойство_1".  и получаю площадь в см2.

 

в связи с чем 2 вопроса, 

1 как сделать чтобы "доп.свойство_1" заполнялось значением "площадь поверхности" при запуске макроса M_Prop? чтобы вручную не выбирать

2 как полученное значение перевести в дм2, то есть как параметр разделить на 100 в самом чертеже? 

 

Изменено 20 июля 2019 пользователем sagaudi