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

[KaTana 0]

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

А может еще подскажите, как можно сформировать спецификацию по вар. А ГОСТ 2.113-75

В SW я в сборке делаю разные конфигурации.

Materials_GOST.rar

[SERoz 201]

KaTana

Ваша база материалов (Materials_GOST.sldmat) - это шипко порезанная big base.sldmat (если сравнить их в WinMerge), удалено много разных материалов и похоже с ошибками...

Наверное поэтому Солид и ругается...

В конце базы добавлены материалы "SK ХХ Schott" и насколько правильно - это надо проверять...

Попробуйте поставить другую базу (их много разных выкладывалось на форуме - в частности и big base.sldmat)...

[Leon 433]

KaTana

Как и сказал SERoz ваша база похожа на big base. А похожа тем, что она многоуровневая. С такими базами макрос пока не работает. Уровней должно быть не более 2.

[streamdown 1 565]

Уровней должно быть не более 2.

а с чем это связано? С ограничениями языка? Солида? Или просто по другому макрос писать?

[profi10 0]

Так конечно! Я где-то писал здесь, что ниже 2009 версии работа макросов не гарантируется.

Все работает разобрался. Просто работы много и все срочно и бегом- потому основательно не изучил Вами созданное.Спасибо!

[Leon 433]

а с чем это связано? С ограничениями языка? Солида? Или просто по другому макрос писать?

Последнее. У меня выбор материала реализован через раскрывающиеся списки. Их всего три - база, группа и материал. Если существуют еще уровни подгрупп то девать их некуда. Единственно, что я могу сделать, это чтобы все материалы подгрупп отображались в одном списке.

[streamdown 1 565]

все материалы подгрупп отображались в одном списке

[T900 0]

Здравствуйте. Подскажите, как можно сделать так чтобы при генерации спецификации в разделе материалы в графе кол. стояло бы например: 50мм, 5г. ,а не кол-во ?

[S.A.V 0]

Здравствуйте. Подскажите, как можно сделать так чтобы при генерации спецификации в разделе материалы в графе кол. стояло бы например: 50мм, 5г. ,а не кол-во ?

В свойствах файла..

.. и получится..

Изменено 22 июля 2010 пользователем S.A.V

[profi10 0]

Все работает разобрался. Просто работы много и все срочно и бегом- потому основательно не изучил Вами созданное.Спасибо!

Поставил 2010й sp0 все работает. Все проблеммы от нашей бестаковости. Леон респект

[Leon 433]

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

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

[KaTana 0]

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

[SERoz 201]

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

Думаю, единой базы нет и у всех свои базы (конешно во многом они похожи, но...)...

У меня есть около 10 сторонних баз и постепенно, всё что надо, переношу в свою (NovajaBaza_materials)...

Если Вас устроит

[Michael_Mira 135]

Вопрос по поводу MPropa.

Если название состоит из 5 и больше слов (так вышло), то как заставить MProp автоматически разбивать на пару строк в основной надписи, не влазя туды ручками?

[Leon 433]

Вопрос по поводу MPropa.

Если название состоит из 5 и больше слов (так вышло), то как заставить MProp автоматически разбивать на пару строк в основной надписи, не влазя туды ручками?

В поле Наименования макроса Mprop нужно вводить текст в две строки, через Enter, тогда и в чертеже в две строки будет.

Залез я в код макроса, подебажил его немного (благо когда-то чуть-чуть програмил на плюсах), и даже нашёл цикл в котором оно виснет, если Леону интересно, то на картинке ниже я его выделил. Но к сожалению мои познания в VB не настолько сильные чтоб я мог его сам исправить. Кстати, заметил, что после добавления-удаления разных деталей, в том числе и "глючных" специя стала нормально составляется.

Похоже вы правы, я еще толком не тестировал, но данный кусок кода можно удалить. Начиная с оператора while и заканчивая wend включительно. Только в строке "Проверяем удаленные самопальные строки" нужно or на and заменить.

[Michael_Mira 135]

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

' Заполнение списка литер и проверка свойства "Литера_ФБ"

CboLit.Clear

CboLit.AddItem " "

CboLit.AddItem "П"

CboLit.AddItem "Э"

CboLit.AddItem "Т"

CboLit.AddItem "И"

CboLit.AddItem "О"

CboLit.AddItem "О1"

CboLit.AddItem "О2"

CboLit.AddItem "А"

CboLit.AddItem "Б"

strTemp = swModel.CustomInfo2(sConfigName, prpLitTable)

If strTemp = "" Then ' Если строчка пустая

strTemp = swModel.CustomInfo2(sConfigName, prpLit)

End If

If Left$(strTemp, 5) = "<FONT" Then

varTemp = InStrRev(strTemp, "5>")

If Len(strTemp) > varTemp + 1 Then

strTemp = Right$(strTemp, Len(strTemp) - varTemp - 1) ' Удаляем пустую строку

Else

strTemp = " "

End If

End If

[Leon 433]

Кто подскажет, что надо в коде поменять

Перед строчкой

If Left$(strTemp, 5) = "<FONT" Then

напишите

If strTemp = "" Then ' Если строчка пустая

strTemp = "Нужная литера"

End If

Вроде так, проверьте

[Michael_Mira 135]

_Leon_ Вы как всегда на высоте.

Спасибо, все работает.

[zwee 9]

Похоже вы правы, я еще толком не тестировал, но данный кусок кода можно удалить. Начиная с оператора while и заканчивая wend включительно. Только в строке "Проверяем удаленные самопальные строки" нужно or на and заменить.

Сделал так, немного подёргал, действительно не виснет. Но теперь появились глюки с сортировкой деталей. А может они и были, щас пока не могу проверить.

[fox1001 787]

Сделал так, немного подёргал, действительно не виснет. Но теперь появились глюки с сортировкой деталей. А может они и были, щас пока не могу проверить.

а чем отличается сортировка от создания новой специи???