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

[none 51]

У нас суровые нормоконтролеры. Им не докажешь ничего. Есть стандарт предприятия и он отличается от ГОСТа. Может просто в коде макросов поискать по запросу "*)" и заменить все на "*" ? Я так пробовал, но все равно где-то проскакивает скобка. Буду искать. Спасибо за информацию.

[SERoz 201]

Есть стандарт предприятия и он отличается от ГОСТа

Дааа - суррово у Вас (в старое-доброе время за такое сажали)...

[un_wn 1]

А нельзя ли сделать каким-то образом возможность автоматического заполнения форматов для документов из раздела Документация? Я имею в виду те документы, которые наиболее часто используются в отделе и записываются после знака + в текстовом файле-списке документов?

У Вас форматы только одиночные, или есть кратные, вроде А4х3?

Если только одиночные:

В макросе SpecEditor находите строчку: For i = UBound(DocData) To iTemp Step -1

Затем выделяем код начиная с этой строки и заканчиваем строкой Next i включительно.

И заменяем следующим кодом:

Скрытый текст: Новый код

For i = UBound(DocData) To iTemp Step -1

strTemp1 = Left$(DocData(i), InStr(DocData(i), "-") - 1)

strTemp1 = Trim(strTemp1)

strTemp2 = Right$(DocData(i), Len(DocData(i)) - InStr(DocData(i), "-"))

strTemp2 = Trim(strTemp2)

ok = swTable.InsertRow(swTableItemInsertPosition_Before, 2)

ok = swTable.SetCellTextFormat(2, 4, False, swTextFormat)

swTable.CellTextHorizontalJustification(2, 4) = swTextJustificationLeft

swTable.Text(2, 2) = " "

If Left$(strTemp1, 1) = "+" Then

strTemp3 = Left$(strTemp1, 4)

strTemp3 = Trim(strTemp3)

strTemp3 = Right$(strTemp3, 2)

swTable.Text(2, 0) = strTemp3

strTemp1 = Right$(strTemp1, Len(strTemp1) - 4)

swTable.Text(2, 3) = strTemp1

Else

swTable.Text(2, 3) = strTemp & strTemp1

End If

swTable.Text(2, 4) = strTemp2

If CboType.ListIndex = 1 Then

For j = 0 To UBound(vConfVisible)

swTable.Text(2, 5 + j) = "X"

Next j

End If

Next i

Теперь в файле SpecEditor_Doc.txt добавляемые документы должны иметь вид +А3 Обозначение - Наименование, тоесть после плюса ставим нужный формат, затем пробел.

Обязательно сохраните резервную копию макроса.

[HE3BAHHUI_GHOST 0]

У Вас форматы только одиночные, или есть кратные, вроде А4х3?

Ты имеешь ввиду кратные форматы в разделе "документация" или вообще в СП?

[un_wn 1]

Ты имеешь ввиду кратные форматы в разделе "документация" или вообще в СП?

Да, именно в разделе документация для добавляемых через плюс документов. Если там форматы кратные, то надо это учесть в коде.

[HE3BAHHUI_GHOST 0]

Да, именно в разделе документация для добавляемых через плюс документов. Если там форматы кратные, то надо это учесть в коде.

С Документами сторонними ясно...

А типа ПМ, которые имеют номер СБ и обычно выполняются только на А4, например... можно также сделать?

[un_wn 1]

А типа ПМ, которые имеют номер СБ и обычно выполняются только на А4, например... можно также сделать?

Можно, главное определится точно, что еще и для каких документов нужно (наверное и паспорта идут А4)

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

Всем на заметку: в файле SpecEditor_Doc.txt описка в строке: ВС - Ведомость специфиаций, буква К пропущена.

[Almo 3]

Доброго времени суток. При запуске макроса DProp выскакивает следующая ошибка (см. рис.). Совет №2 в начале темы никак не помог по той причине, что опция "References" не подсвечена.

ЗЫ простите за оффтоп если данный вопрос уже поднимался, просмотреть 80+ страниц не осилил...

[none 51]

Потрясающе, un_wn. Спасибо. А этот формат будет ставиться в раздел формат или будет сноситься через звездочку в примечания? Если не будет сноситься, то просьба по возможности оценить можно ли это реализовать.

Надо остановить исполнение макроса, нажав квадрат, тогда будет активна References.

[streamdown 1 565]

Almo

Потому что чертёж отсоединенный.

[Almo 3]

Almo

Потому что чертёж отсоединенный.

Спасибо)

Возникло еще несколько вопросов:

1. Как изменить язык символов (букв) сечений, местных видов и тп., с английского на русский?

2. Возможно ли как то настроить автоматическую сортировку вышеупомянутых обозначений разрезов, и тп., то есть что бы было все согласно ГОСТа: сначала местные виды (А, Б, В...) потом разрезы (Г-Г, Д-Д...) и т.д. Что бы после удаления определенного разреза и простановки следующего не пропускались буквы...

Изменено 16 ноября 2012 пользователем Almo

[un_wn 1]

А этот формат будет ставиться в раздел формат или будет сноситься через звездочку в примечания?

В предложеном варианте ставится в столбец формат. Чтобы сносилось в примечание, попробую доработать.

[SERoz 201]

1. Как изменить язык символов (букв) сечений, местных видов и тп., с английского на русский?

Это к разрабоам...

Пробовал - вааще полная лажа...

[Almo 3]

Это к разрабоам...

Пробовал - вааще полная лажа...

Получается что все оформляют документацию с английскими буквами или вручную проставляют русские, без всякой авто сортировки? А как быть если чертеж сборочной единицы имеет множество разрезов и видов? В ручную их все проставить довольно таки хлопотно... Есть ли какие-нибудь хитрости?

[Shvg 67]

2. Возможно ли как то настроить автоматическую сортировку вышеупомянутых обозначений разрезов, и тп., то есть что бы было все согласно ГОСТа: сначала местные виды (А, Б, В...) потом разрезы (Г-Г, Д-Д...) и т.д. Что бы после удаления определенного разреза и простановки следующего не пропускались буквы...

Настроить - нет. Через API SW - да, правда я придерживаюсь мнения, что менять английские буквы на русские надо в конце, когда чертеж готов, путем нажатия одной кнопки. Хотя там существует проблема с переименованием программно вспомогательного вида. Его я переименовываю вручную.

P.S. Хотя это все к спецификации не относится.

[SERoz 201]

Получается что все оформляют документацию с английскими буквами или вручную проставляют русские, без всякой авто сортировки?

Не знаю как все - я да

Вполне возможно, есть возможность использовать русские буквы - не искал...

[fox1001 787]

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

please, расскажите поподробнее.

особенно заинтересовало вот это:

путем нажатия одной кнопки

КАК??? макрос??? приложение???

[Shvg 67]

please, расскажите поподробнее.

особенно заинтересовало вот это:

КАК??? макрос??? приложение???

У меня приложение, но можно и макросом. Сути не меняет. Там все просто. Загоняем в объекты класса View чертежа в коллекцию типа List, потом по определенному алгоритму их сортируем и присваиваем новые обозначения.

P.S. Это не относится к спецификации. Давайте не засорять тему.

[Almo 3]

P.S. Это не относится к спецификации. Давайте не засорять тему.

К какой теме это относится? Давайте продолжим там (если она есть, если ее нету то давайте создадим), уж больно интересно кто как выходит из данной ситуации... Получается это косяк солида, или буржуи привыкли делать все своими руками (в чем искренне сомневаюсь)?

У меня приложение, но можно и макросом. Сути не меняет. Там все просто. Загоняем в объекты класса View чертежа в коллекцию типа List, потом по определенному алгоритму их сортируем и присваиваем новые обозначения...

А можно это на пальцах объяснить?)

Изменено 17 ноября 2012 пользователем Almo

[Shvg 67]

К какой теме это относится? Давайте продолжим там (если она есть, если ее нету то давайте создадим), уж больно интересно кто как выходит из данной ситуации..

<noindex>http://fsapr2000.ru/index.php?showtopic=60...st&p=509888</noindex>