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

17 июня 2005

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

25 марта 2011

Установил шестёрку бэту.

Ничего не меняю. Открываю новый чертёж, сохраняю, запускаю DProp - Настройки - галочка на "Всегда заново создавать основную надпись" - ОК - Изменить основную надпись - ОК - вылезает ошибка в строке "swNote.SetText "Формат " & FormatText".

25 марта 2011

serguss

Про 4 Гб посмотрите <noindex>тут</noindex>

Извиняюсь за :poster_offtopic:

Sergei

Сформируйте новые форматки...

Как раз сегодня это проделал -никаких проблем...

25 марта 2011

Sergei

Сформируйте новые форматки...

Как раз сегодня это проделал -никаких проблем...

У меня специально стоит галочка на "Всегда заново создавать основную надпись". так что дело не в этом.

25 марта 2011

Sergei

Я имел ввиду не Основную надпись, а сами форматки (то бишь - шаблоны)....

25 марта 2011

Sergei

Я имел ввиду не Основную надпись, а сами форматки (то бишь - шаблоны)....

А как это сделать? Нужно же сначала заменить основную надпись, а она не изменяется. Я сохранил как шаблон файл Master_Template_Sheet1.SLDDRW

Всё тоже самое. Не помогло.

В макросе Master соответственно выскакивает та же ошибка.

SW2011х64SP3.

26 марта 2011

Всем добрый вечер.

При запуске макросов вылезает ошибка Run-time error '13'. Подскажите что надо подправить.

p.s. SW2011х64-sp0.

Изменено 26 марта 2011 пользователем Steel

26 марта 2011

Я сохранил как шаблон файл Master_Template_Sheet1.SLDDRW

Не понял сего действа - это ведь и так уже шаблон для Мастера, зачем его ещё раз сохранять как шаблон????

Что-то Вы не то делаете...

При запуске макросов вылезает ошибка Run-time error '13'. Подскажите что надо подправить.

Попробуйте прописать разрешения в Безопасности (по пр.кл.)...

26 марта 2011

Не понял сего действа - это ведь и так уже шаблон для Мастера, зачем его ещё раз сохранять как шаблон????

Что-то Вы не то делаете...

Тогда я не понял. Я его сохранял как шаблон чертежа. А шаблоны для мастера я конечно пересохранял.

26 марта 2011

Выкладываю релиз 06. По сравнению с бетой есть одно серьезное изменение. Теперь специя создается в скрытом режиме. Это позволило прилично увеличить скорость работы SpecEditor. Остальное по мелочи.

26 марта 2011

Теперь специя создается в скрытом режиме. Это позволило прилично увеличить скорость работы SpecEditor.

Ты нашёл это. УРА!!!!!!! :clap_1:

А я первый скачал. :tongue:

26 марта 2011

Теперь специя создается в скрытом режиме.

Надеюсь - итог будет виден :g:

???

Спасибо :worthy: :clap_1:

26 марта 2011

А я первый скачал

ой ли..))

Надеюсь - итог будет виден

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

27 марта 2011

ой ли..))

стопудов :-)))

27 марта 2011

Всё работает. Просто я сначала не поменял путь в Master.ini и при ошибке макрос изменил файл Master_Template_Sheet1.SLDDRW . Я забыл что этим файлам шаблонов нужно сразу присваивать атрибут "только для чтения".

27 марта 2011

Но у меня снова при изменении формата макросом DProp в чертеже образуется куча ненужных слоёв. Я уже не знаю что делать. Судя по названям слоёв грешу на установленный Инвентор. Только КАК он может повлиять на работу макроса DProp загадка.

28 марта 2011

Всем привет!

Не работает макрос SProp:

Private Sub Исполнение_Click()

strTemp = MaskClass.Text

Debug.Print strTemp

If Исполнение.Value = True Then

	Обозначение.Caption = sNumber + "-" + swConfig.Name

	MaskClass.Mask = "999999.999-99"

	If strTemp <> "" Then

		MaskClass.Text = Left$(strTemp, 10) + "-**"

	End If

Else

	Обозначение.Caption = sNumber

	MaskClass.Mask = "999999.999"

	If strTemp <> "" Then

		MaskClass.Text = Left$(strTemp, 10)

	End If

End If

2 строчку подсвечивает жёлтым и ругаеться. Версия SW 2008 SP4.0. Я в курсе что данный макрос разрабатывался на SW 2009 и для более поздних версий, но он такая конфетка :music_serenade: Если можите поможите !!!

29 марта 2011

А кто знает, все-таки SAVE AS PDF не работает с форматом А1?

29 марта 2011

А кто знает, все-таки SAVE AS PDF не работает с форматом А1?

Работает, но имеется ошибка в коде макроса (неправильно вписано значение для PrinterPaperSize, пометил исправление в комментарии строк Было ###), необходимо заменить блок макроса на приведённый ниже:

Private Sub Orientation() 'Анализ формата чертежа



vSheetProps = swSheet.GetProperties



If vSheetProps(5) <= vSheetProps(6) Then

	ps.Orientation = swPageSetupOrient_Portrait

	ok = swApp.SetUserPreferenceIntegerValue(swPageSetupPrinterOrientation, swPageSetupOrient_Portrait)

	Debug.Print "ok=", ok

	Select Case vSheetProps(5)

	Case Is <= 0.21

		ps.PrinterPaperSize = 9 ' A4

	Case Is > 0.21

		ps.PrinterPaperSize = 8 ' A3

	End Select

	Select Case vSheetProps(5)

	Case 0.297

		ps.PrinterPaperSize = 8 ' A3

	Case 0.42

		ps.PrinterPaperSize = 66 ' A2

	Case 0.594

		ps.PrinterPaperSize = 129 ' A1 было 122 <=========Ошибка

	Case Is >= 0.841

		ps.PrinterPaperSize = 127 ' A0 было 121 <=========Ошибка

	End Select

Else

	ps.Orientation = swPageSetupOrient_Landscape

	ok = swApp.SetUserPreferenceIntegerValue(swPageSetupPrinterOrientation, swPageSetupOrient_Landscape)

	Debug.Print "ok=", ok

	Select Case vSheetProps(5) ' Ширина листа

	Case Is <= 0.297

		ps.PrinterPaperSize = 9 ' A4

	Case Is > 0.297

		ps.PrinterPaperSize = 8 ' A3 Было 9 <=========Ошибка

	End Select

	Select Case vSheetProps(5)

	Case 0.42

		ps.PrinterPaperSize = 8 ' A3

	Case 0.594

		ps.PrinterPaperSize = 66 ' A2

	Case 0.841

		ps.PrinterPaperSize = 129 ' A1 было 122 <=========Ошибка

	Case Is >= 1.189

		ps.PrinterPaperSize = 127 ' A0 Было 121 <=========Ошибка

	End Select

End If



End Sub

Возможно будет интересно для Leon'а, программа для получения списка доступных форматов листов принтера:

<noindex>http://kelnyproject.ucoz.ru/load/spisok_fo...intera/7-1-0-26</noindex>

29 марта 2011

Работает, но имеется ошибка в коде макроса (неправильно вписано значение для PrinterPaperSize, пометил исправление в комментарии строк Было ###), необходимо заменить блок макроса на приведённый ниже:

Private Sub Orientation() 'Анализ формата чертежа



vSheetProps = swSheet.GetProperties



If vSheetProps(5) <= vSheetProps(6) Then

	ps.Orientation = swPageSetupOrient_Portrait

	ok = swApp.SetUserPreferenceIntegerValue(swPageSetupPrinterOrientation, swPageSetupOrient_Portrait)

	Debug.Print "ok=", ok

	Select Case vSheetProps(5)

	Case Is <= 0.21

		ps.PrinterPaperSize = 9 ' A4

	Case Is > 0.21

		ps.PrinterPaperSize = 8 ' A3

	End Select

	Select Case vSheetProps(5)

	Case 0.297

		ps.PrinterPaperSize = 8 ' A3

	Case 0.42

		ps.PrinterPaperSize = 66 ' A2

	Case 0.594

		ps.PrinterPaperSize = 129 ' A1 было 122 <=========Ошибка

	Case Is >= 0.841

		ps.PrinterPaperSize = 127 ' A0 было 121 <=========Ошибка

	End Select

Else

	ps.Orientation = swPageSetupOrient_Landscape

	ok = swApp.SetUserPreferenceIntegerValue(swPageSetupPrinterOrientation, swPageSetupOrient_Landscape)

	Debug.Print "ok=", ok

	Select Case vSheetProps(5) ' Ширина листа

	Case Is <= 0.297

		ps.PrinterPaperSize = 9 ' A4

	Case Is > 0.297

		ps.PrinterPaperSize = 8 ' A3 Было 9 <=========Ошибка

	End Select

	Select Case vSheetProps(5)

	Case 0.42

		ps.PrinterPaperSize = 8 ' A3

	Case 0.594

		ps.PrinterPaperSize = 66 ' A2

	Case 0.841

		ps.PrinterPaperSize = 129 ' A1 было 122 <=========Ошибка

	Case Is >= 1.189

		ps.PrinterPaperSize = 127 ' A0 Было 121 <=========Ошибка

	End Select

End If



End Sub

Возможно будет интересно для Leon'а, программа для получения списка доступных форматов листов принтера:

<noindex>http://kelnyproject.ucoz.ru/load/spisok_fo...intera/7-1-0-26</noindex>

Что-то не получилось ничего. Блок заменил, а печатает как раньше. И формат чертежа А1 в параметрах страницы не LETTER переводит

29 марта 2011

Что-то не получилось ничего. Блок заменил, а печатает как раньше. И формат чертежа А1 в параметрах страницы не LETTER переводит

Тогда не знаю. Запустите программу по ссылке выберите принтер PDFCreator и найдите в списке формат A1.

Войти

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

Ваш опыт использования пакета макросов SWPlus 630 пользователей проголосовало

1. Вы используете макросы из пакета SWPlus?

2. Каие макросы из пакета Вы используете?

3. Были ли у Вас проблемы с освоением (изучением) макросов?

4. Были ли у Вас проблемы (глюки) с установкой и настройкой макросов?

5. Устраивает ли Вас подход к автоматизации оформления КД, заложенный в данных макросах?

Рекомендованные сообщения

Leon 442

Ссылка на сообщение

Поделиться на других сайтах

Sergei 298

Ссылка на сообщение

Поделиться на других сайтах

SERoz 201

Ссылка на сообщение

Поделиться на других сайтах

Sergei 298

Ссылка на сообщение

Поделиться на других сайтах

SERoz 201

Ссылка на сообщение

Поделиться на других сайтах

Sergei 298

Ссылка на сообщение

Поделиться на других сайтах

Steel 0

Ссылка на сообщение

Поделиться на других сайтах

SERoz 201

Ссылка на сообщение

Поделиться на других сайтах

Sergei 298

Ссылка на сообщение

Поделиться на других сайтах

Leon 442

Ссылка на сообщение

Поделиться на других сайтах

Sergei 298

Ссылка на сообщение

Поделиться на других сайтах

SERoz 201

Ссылка на сообщение

Поделиться на других сайтах

streamdown 1 567

Ссылка на сообщение

Поделиться на других сайтах

Sergei 298

Ссылка на сообщение

Поделиться на других сайтах

Sergei 298

Ссылка на сообщение

Поделиться на других сайтах

Sergei 298

Ссылка на сообщение

Поделиться на других сайтах

DrokMor 0

Ссылка на сообщение

Поделиться на других сайтах

Чужой 1

Ссылка на сообщение

Поделиться на других сайтах

Kelny 1 328

Ссылка на сообщение

Поделиться на других сайтах

Чужой 1

Ссылка на сообщение

Поделиться на других сайтах

Kelny 1 328

Ссылка на сообщение

Поделиться на других сайтах

Присоединяйтесь к обсуждению

Сейчас на странице 0 пользователей

Сообщения

Ваш опыт использования пакета макросов SWPlus
630 пользователей проголосовало