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

[Leon 442]

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

[SERoz 201]

В листе 32 строки, вот и попробуйте ставить такое количество.

Ну это занятие для мазохистов - проще будет просто разделить таблицу (пр.кл. - Разделить) и нижнюю часть перенести на второй лист (и вставляйте что надо)...

Ну и т.д., сколько надо листов...

Может быть зависит от версии, но у меня в SW 2010 нету плюсиков :(

Да, наверное (забыл уже, как там в 2010м) - хотя о версии, вроде никто не говорил (хотя возможно пропустил)....

[un_wn 1]

Ну это занятие для мазохистов - проще будет просто разделить таблицу (пр.кл. - Разделить) и нижнюю часть перенести на второй лист (и вставляйте что надо)...

Ну и т.д., сколько надо листов...

Думаю тут вопрос с добавлением страниц через макрос ставится из-за необходимости иметь правильное количество листов (вместе с листом регистрации изменений). Надоело, видимо, править руками. Тогда тут либо строчки добавлять (ничего в этом сложного не вижу) или по коду поставить +1 к кол-ву страниц (если это считает макрос).

to malvi.dp

Спасибо за разъяснения с картинками

Отредактировал сообщение, каряво работала предложеная мной замена.

Изменено 13 февраля 2012 пользователем un_wn

[un_wn 1]

Просьба, если у кого есть лист регистрации изменений для 2010 солида, выложите пожалуйста.

[HE3BAHHUI_GHOST 0]

Вот то, что я для себя рисовал.

ЛРИ.rar

[un_wn 1]

... но хочется просто пустой лист иметь в конце.... я его заменяю на ЛРИ

Чтобы добавить лист регистрации изменений создайте кнопку и повесьте на нее код:

vRetval = swDraw.NewSheet3("ЛР", swDwgPapersUserDefined, swDwgTemplateCustom, 1#, 1#, True, sSource18, 0.21, 0.297, "")

Finish

Затем в коде макроса после строки:

sSource17 = Left$(sSource, Len(sSource) - 14) & "MyStandard.sldstd"

добавьте

sSource18 = Left$(sSource, Len(sSource) - 14) & "LR-1.slddrt" где LR-1 имя листа регистрации изменений (можно вставить свое), но лист обязательно разместить в папку SWPlus\SpecEditor\

Затем после строки

Dim sSource17 As String

добавьте

Dim sSource18 As String

Если хотите чтобы лист нумеровался и заполнялось обозначение, в код кнопки добавьте строки(перед строкой Finish):

ok = swDraw.ActivateSheet("ЛР")

Set swSheet = swDraw.GetCurrentSheet

Set swView = swDraw.CreateDrawViewFromModelView3(swModel.GetPathName, vModelViewNames(0), -0.1, 0, 0)

swView.ReferencedConfiguration = sConfigName

swDraw.SuppressView

swDraw.ForceRebuild3 (True)

strSheetFormatName = swSheet.GetSheetFormatName()

strTemp1 = "Sheet1@" & strSheetFormatName

ok = swDraw.Extension.SelectByID2(strTemp1, "NOTE", 0, 0, 0, False, 0, Nothing, 0)

If ok = True Then

Set swNote = swSelMgr.GetSelectedObject2(1)

strTemp1 = LTrim(CStr(i))

swNote.SetText strTemp1

End If

При этом общее количество на первом листе !не меняется!, надо ручками или править сам код макроса глубже.

Приведенный код может быть избыточен, но уж на что хватило знаний

to HE3BAHHUI_GHOST: спасибо за ЛРИ.

Изменено 14 февраля 2012 пользователем un_wn

[dnsdns 1]

Вопрос к Leon,

Можно ли окно макроса MProp сделать маштабируемым. (Полосы прокрутки и изменение размеров окна)?

Иногда приходится работать на ноуте, (1366х768) Оч неудобно.

[un_wn 1]

Вопрос к Leon,

Можно ли окно макроса MProp сделать маштабируемым. (Полосы прокрутки и изменение размеров окна)?

Иногда приходится работать на ноуте, (1366х768) Оч неудобно.

Может вас устроит вот такой<noindex> <noindex>http://fsapr2000.ru/index.php?showtopic=66...st&p=420468</noindex></noindex> способ.

[Michael_Mira 135]

Вчера обновился антивирус Каспер.

Результат:

Снес все ТТ, которые были собраны с форума за последние 3 года.

Этот прикол меня поставил в угол.

Админ говорит снести, а чем же тогда пользоваться?

-----------------------------------------------------------------------

Чтобы добавить лист регистрации изменений создайте кнопку и повесьте на нее код:

vRetval = swDraw.NewSheet3("ЛР", swDwgPapersUserDefined, swDwgTemplateCustom, 1#, 1#, True, sSource18, 0.21, 0.297, "")

Finish

Можно повторить более понятно "для особо одаренных"?

Какую кнопку создать и куда код повесить?

И если повесили этот код, то откуда там возьмется

Затем в коде макроса после строки:

sSource17 = Left$(sSource, Len(sSource) - 14) & "MyStandard.sldstd"

добавьте

sSource18 = Left$(sSource, Len(sSource) - 14) & "LR-1.slddrt" где LR-1 имя листа регистрации изменений (можно вставить свое), но лист обязательно разместить в папку SWPlus\SpecEditor\

Затем после строки

Dim sSource17 As String

добавьте

Dim sSource18 As String

Если хотите чтобы лист нумеровался и заполнялось обозначение, в код кнопки добавьте строки(перед строкой Finish):

ok = swDraw.ActivateSheet("ЛР")

Set swSheet = swDraw.GetCurrentSheet

Set swView = swDraw.CreateDrawViewFromModelView3(swModel.GetPathName, vModelViewNames(0), -0.1, 0, 0)

swView.ReferencedConfiguration = sConfigName

swDraw.SuppressView

swDraw.ForceRebuild3 (True)

strSheetFormatName = swSheet.GetSheetFormatName()

strTemp1 = "Sheet1@" & strSheetFormatName

ok = swDraw.Extension.SelectByID2(strTemp1, "NOTE", 0, 0, 0, False, 0, Nothing, 0)

If ok = True Then

Set swNote = swSelMgr.GetSelectedObject2(1)

strTemp1 = LTrim(CStr(i))

swNote.SetText strTemp1

End If

[malvi.dp 293]

Вчера обновился антивирус Каспер.

проверял нодом базы актуальные (20022012) усе впорядке

[un_wn 1]

Можно повторить более понятно "для особо одаренных"?

Повторяю :)

Проходите по меню: Инструменты-Макрос-Редактировать и выбираете в папке с макросом SpecEditor файл SpecEditor.swp

В появившемся окне сверху слева будет дерево макроса

Скрытый текст: Дерево макроса

В нем правой кнопкой жмем по строке FrmSpecEditor (самой верхней) и выбираем в всплывшем меню пункт View Object.

Появится знакомое окно макроса и панель ToolBox.

Скрытый текст: Окно макроса

На этой понели различные элементы, выбираем CommandButton (нажимаем на левой кнопкой мыши, потом нажимаем в свободном месте на поле окна макроса). Должна появится кнопка CommandButton1. Двойной клик на этой кнопке и откроется окно кода. Полный код кнопки (с добавлеными нужными стоками) ниже.

Скрытый текст: Код новой кнопки

Private Sub CommandButton1_Click()

vRetval = swDraw.NewSheet3("ЛР", swDwgPapersUserDefined, swDwgTemplateCustom, 1#, 1#, True, sSource18, 0.21, 0.297, "")

ok = swDraw.ActivateSheet("ЛР")

Set swSheet = swDraw.GetCurrentSheet

Set swView = swDraw.CreateDrawViewFromModelView3(swModel.GetPathName, vModelViewNames(0), -0.1, 0, 0)

swView.ReferencedConfiguration = sConfigName

swDraw.SuppressView

swDraw.ForceRebuild3 (True)

strSheetFormatName = swSheet.GetSheetFormatName()

strTemp1 = "Sheet1@" & strSheetFormatName

ok = swDraw.Extension.SelectByID2(strTemp1, "NOTE", 0, 0, 0, False, 0, Nothing, 0)

If ok = True Then

Set swNote = swSelMgr.GetSelectedObject2(1)

strTemp1 = LTrim(CStr(i))

swNote.SetText strTemp1

End If

Finish

End Sub

Затем, оставаясь в окне кода, находим строку(находится в самом начале программы): Dim sSource17 As String ниже нее добавляем строку Dim sSource18 As String

Скрытый текст: Добавление переменной

Dim sSource17 As String

Dim sSource18 As String

Затем находим строку: sSource17 = Left$(sSource, Len(sSource) - 14) & "MyStandard.sldstd" и ниже нее добавляем: sSource18 = Left$(sSource, Len(sSource) - 14) & "LR-1.slddrt", где LR-1 имя листа регистрации изменений (можно вставить свое), но лист обязательно разместить в папку SWPlus\SpecEditor\

Скрытый текст: Путь к файлу ЛР

sSource17 = Left$(sSource, Len(sSource) - 14) & "MyStandard.sldstd",

sSource18 = Left$(sSource, Len(sSource) - 14) & "LR-1.slddrt"

!Внимание! Я работаю в 6 версии макросов, надеюсь в 7 тоже заработает. Обязательно сделайте резервную копию макросов, перед внесением в них изменений.

[Michael_Mira 135]

Повторяю :)

Спасибо за повтор.

Теперь информация стала доступной.

[Leon 442]

Вчера обновился антивирус Каспер.

Результат:

Проверил файл TT.exe на www.virustotal.com/

Действительно, Касперский находит HEUR:Trojan.Win32.Generic. Но остальные 42 антивируса ничего не находят.

ехе я делал с помощью портабл VB6. Теоретически могла быть закладка. Решать вам.

[SERoz 201]

Действительно, Касперский находит HEUR:Trojan.Win32.Generic. Но остальные 42 антивируса ничего не находят.

ехе я делал с помощью портабл VB6

Это, скорее всего - паранойя каспера (ложное срабатывание), как и большинства антиков...

Т.к. в этом ТТ есть разные генераторы кодов (наверное) - вот у каспера крышу и сносит (давно снёс его)...

[Michael_Mira 135]

Проверил файл TT.exe на www.virustotal.com/

Действительно, Касперский находит HEUR:Trojan.Win32.Generic. Но остальные 42 антивируса ничего не находят.

ехе я делал с помощью портабл VB6. Теоретически могла быть закладка. Решать вам.

_Leon_

К Вам нет никаких претензий вообще, да и быть не может.

Вашими макросами пользуюсь более 3х лет и никакого влияния на все мои компы не наблюдал.

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

Меня смущает совсем другое: как мне теперь писать ТТ, если админы не кинут макрос в доверенную зону?

Привычка...

[streamdown 1 567]

Теоретически могла быть закладка

HEUR означает, что сам касперский не знает троян ли это, он просто подозревает по поведению этой программы, что это троян.

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

HEUR - он же эвристический анализ.

Кстати, _Leon_, а почему бы просто не перекомпилировать на обычном васике, не портабл?

[Leon 442]

Кстати, _Leon_, а почему бы просто не перекомпилировать на обычном васике, не портабл?

Да у нас теперь все и везде с лицензией. Бесплатную экспресс студию под vb6 не нашел.

[Sergey___1978 36]

Посмотрел всю ветку и не нашел ответа. Может плохо искал.

Как в этой спецификации выводить количество дробным числом, допустим 0,5 м.

Актуально для материалов, допустим для провода.

[SERoz 201]

Как в этой спецификации выводить количество дробным числом, допустим 0,5 м.

Текстом...

Или делать свой шаблон с формулой...

[un_wn 1]

Как в этой спецификации выводить количество дробным числом, допустим 0,5 м.

Актуально для материалов, допустим для провода.

Файл=>Свойства. Во вкладке конфигурация создаете свое свойство, например "Длина", указываете значение, например 0.5 (вот тут не помню разделитель точка или запятая, попробуйте так и так), затем в верхнем правом углу находим выпадающий список "Количество в спецификации" и выбираем свое созданое свойство.

[SERoz 201]

un_wn

А если есть несколько разных длин (0,5 только как пример - наскока понял)???