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

[Leon 444]

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

[Sergei 298]

Я себе вообще логотип поставил в шаблоны.

И как привязать логотип чтобы он не слетал при изменении формата?

[bnickl 21]

И как привязать логотип чтобы он не слетал при изменении формата?

Есть файлик ...\SWPlus\Master\Master_Template_Sheet1.SLDDRW

Я туда засунул блок (нарисовал логотип в SW) в режиме редактирования осн. надписи. Картинку не пробовал ставить.

[Almo 3]

Доброго времени суток. Подскажите, возможно ли как то отсортировать спецификацию вручную? То есть интересует следующий вопрос: необходимо переместить шпильку перед контргайкой (или после ее), в общем как переместить объекты в стандартных изделиях.

Спасибо.

[bnickl 21]

ГОСТ не читаем?

Правильно сортировать не умеем!!!

Всё-таки вопрос не по ЕСКД был задан. Хотелось бы прочитать ответ. Еще добавлю дополнение к вопросу: что делать, если надо строку (строки) перенести на другой лист?

PS На некоторых предприятиях принято сначала размещать в спецификации весь крепеж, а потом все остальное. Так же встречаются традиции вначале размещать оригинальные в данной сборке детали, а потом - заимствованные. И пофиг тогда сортировка в соответствии с ЕСКД.

Изменено 25 января 2013 пользователем bnickl

[Almo 3]

To GriSt

Читаем и умеем.

Было бы не плохо что бы Вы отвечали на вопрос, если знаете, а не писали бессмысленные высказывания... Не нужно рассматривать вопрос буквально. Я же не спрашивал как должна сортироваться спецификация, а спросил возможна ли ручная сортировка с сохранением связи со сборкой...?

To bnickl

Поддерживаю.

[Timi 16]

SolidWorks 2012 sp5, макросы последние из темы.

Макрос SaveAsPDF при сохранении добавляет дату. Но в ней пропадают первые нули. Т.е. вместо 01.01.12 дата будет выглядеть как 1.1.12.

Это можно как-то исправить?

Формат в вин7 стоит такой как надо.

В форматке есть в месте даты невидимая заметка, в которую дата и вписывается. Так вот как макрос ее распознает? Наверно по id элемента.

А как этот самый id узнать?

Возможно ли без правки кода, как-то сделать, чтобы также заполнялась дата проверяющего?

Из справки "При сохранении измененного чертежа старый вариант копируется в папку Revisions (имя настраивается)."

Как это в настройках включить? Не понятно.

Так же не ясно, как заполнить № докум. изменения через макросы. Может кто подскажет?

Спасибо.

П.С.

Также из справки

"SaveAsPDF_main - основной режим работы. При сохранении чертежа в основной надписи обновляется дата.

SaveAsPDF _main_wd - режим аналогичен первому с одним исключением - дата не обновляются."

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

Так и задумано?

[Almo 3]

Тогда объясните смысл приведенной картинки и данного действия для стандартных изделий!!!

Если бы спросили про раздел детали или сборочные единицы, то я бы понял Ваш вопрос, а для стандартных изделий - кому какая разница, где записана Шпилька???

Читайте что написал bnickl.

Вопрос остается прежним.

[un_wn 1]

... а для стандартных изделий - кому какая разница, где записана Шпилька???

Обычно нормоконтролерам

что делать, если надо строку (строки) перенести на другой лист?

Тут несколько вариантов:

-Раставляете позиции на чертеже.

-Нажимаете левой кнопкой мыши на позицию и справа в окне (FutureManager) в блоке "Настройка позиции" нажмите нижний выпадающий список.

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

Для лучшего понимания см. картинку ниже:

Скрытый текст: Перенос строк на другой лист

Также можно:

-Нажать правой кнопкой на спецификации, выбрать пункт "Слить таблицы". Если листов несколько и надо слить их все, то команду "Слить таблицы" надо повторить несколько раз.

-Перетаскиваем строки как нужно.

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

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

-Имеем два корявых листа спецификации, запускаем макрос SpecEditor и выбираем команду "Форматировать". После этого таблицы выравнюются. При необходимости применяем команду "Расставить позиции".

Если нужно поменять строки в пределах листа:

-Подводим мышь к левому краю спецификации.

-Появляется слева листа дополнительный столбик с номером строк (столбик синего цвета).

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

-Нажимаем левую кнопку мыши и, держа ее, перетягиваем строку.

-Запускаем макрос SpecEditor и выполняем команду "Расставить позиции".

[Almo 3]

Обычно нормоконтролерам

Тут несколько вариантов:

-Раставляете позиции на чертеже.

-Нажимаете левой кнопкой мыши на позицию и справа в окне (FutureManager) в блоке "Настройка позиции" нажмите нижний выпадающий список.

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

Для лучшего понимания см. картинку ниже:

Скрытый текст: Перенос строк на другой лист

Также можно:

-Нажать правой кнопкой на спецификации, выбрать пункт "Слить таблицы". Если листов несколько и надо слить их все, то команду "Слить таблицы" надо повторить несколько раз.

-Перетаскиваем строки как нужно.

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

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

-Имеем два корявых листа спецификации, запускаем макрос SpecEditor и выбираем команду "Форматировать". После этого таблицы выравнюются. При необходимости применяем команду "Расставить позиции".

Если нужно поменять строки в пределах листа:

-Подводим мышь к левому краю спецификации.

-Появляется слева листа дополнительный столбик с номером строк (столбик синего цвета).

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

-Нажимаем левую кнопку мыши и, держа ее, перетягиваем строку.

-Запускаем макрос SpecEditor и выполняем команду "Расставить позиции".

Спасибо. Теперь на одну проблему связанную с нормоконтролем стало меньше)))

[DEVIL 1]

Макросы от _Leon_ работают в 2013 версии солида? в 2012 работают... только оценил возможности этих макросов! крутая вещь) у меня в 2013 от макросов работает только ТТ, остальные не запускаются. если долго и упорно нажимать на них выскакивает окошко. может кто сталкивался с этим и решил проблему?

[Kelny 1 332]

если долго и упорно нажимать на них выскакивает окошко. может кто сталкивался с этим и решил проблему?

Вероятно заменить (x32): Declare Function ...

на (x64):

Declare PtrSafe Function ...

В вашей функции больше ни чего менять не надо, а в некоторых других функциях надо также подменять As Long на As LongPtr, но не везде:

Which Longs should become LongPtr?

It's actually pretty easy to determine what requires LongPtr and what can stay as Long. The only things that require LongPtr are function arguments or return values that represent addresses in memory. This is because a 64-bit OS has a memory space that is too large to hold in a Long data type variable. Arguments or return values that represent data will still be declared Long even in 64-bit.

The SendMessage API is a good example because it uses both types:

32-bit:

Public Declare Function SendMessageA Lib "user32" (ByVal hWnd As Long, ByVal wMsg As Long, _

ByVal wParam As Long, lParam As Any) As Long

64 bit:

Public Declare PtrSafe Function SendMessageA Lib "user32" (ByVal hWnd As LongPtr, ByVal wMsg As Long, _

ByVal wParam As Long, lParam As Any) As LongPtr

The first argument -hWnd- is a window handle, which is an address in memory. The return value is a pointer to a function, which is also an address in memory. Both of these must be declared LongPtr in 64-bit VBA. The arguments wMsg and wParam are used to pass data, so they can be Long in both 32-bit and 64-bit.

How to determine what is a memory address and what is data? You just have to read the MSDN documentation for the API functions (the C++ version) and it will tell you. Anything called a handle, pointer, brush or any other object type will require a LongPtr in 64-bit. Anything that is strictly data can stay as Long.

Источник: <noindex>http://www.jkp-ads.com/articles/apideclarations.asp</noindex>

Если хочется макрос универсальный сделать для x32 и x64, то надо ещё и проверку на то в какой системе запущен макрос, навроде этого:

Public Function Is64bit() As Boolean

	Dim handle As Long, bolFunc As Boolean



	' Assume initially that this is not a Wow64 process

	bolFunc = False



	' Now check to see if IsWow64Process function exists

	handle = GetProcAddress(GetModuleHandle("kernel32"), _

				 "IsWow64Process")



	If handle > 0 Then ' IsWow64Process function exists

		' Now use the function to determine if

		' we are running under Wow64

		IsWow64Process GetCurrentProcess(), bolFunc

	End If



	Is64bit = bolFunc



End Function

или тут ещё вариант есть: <noindex>http://www.sql.ru/forum/actualthread.aspx?tid=668385</noindex>

[bnickl 21]

un_wn, большое спасибо!

Ещё хочу добавить (проверил): Если в SpecEditor нажать кнопку "Создать", то все сделанные раньше манипуляции пропадут. Т.е. SpecEditor расставит узлы, детали, стандартные, прочие и т.д. так, как ему приказал _Leon_ или мы где-то сделали неосознанно какие-то признаки для сортировки, и надо будет снова перерасставить. Но это небольшой труд.

Спасибо, _Leon_!

Изменено 26 января 2013 пользователем bnickl

[Valikosha 0]

Подскажите пожалуйста, а как можно уменьшить размер шрифта массы в чертеже?

[DEVIL 1]

Kelny спасибо! ты настоящий друг! :) почти разобрался... не подскажешь как с этим быть? Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

[Kelny 1 332]

не подскажешь как с этим быть?

А что изменилось по сравнению с первым вопросом? Всё так же:

#If Win64 Then

  Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As LongPtr)

#Else

  Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

#End If

[DEVIL 1]

А что изменилось по сравнению с первым вопросом? Всё так же:

#If Win64 Then

  Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As LongPtr)

#Else

  Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

#End If

Бесполезно...

Скрытый текст: тут ошибка

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swDraw As SldWorks.DrawingDoc

Dim swDraw1 As SldWorks.DrawingDoc

Dim swModExt As SldWorks.ModelDocExtension

Dim swSheet As SldWorks.Sheet

Dim swView As SldWorks.View

Dim swSelMgr As SldWorks.SelectionMgr

Dim swNote As SldWorks.Note

Dim swAnn As SldWorks.Annotation

Dim swTextFormat As SldWorks.TextFormat

Dim swModelDocExt As SldWorks.ModelDocExtension

Dim swExpPDFData As SldWorks.ExportPdfData

Dim ps As SldWorks.PageSetup

Dim fs As Object

Dim fs1 As Object

Dim fs2 As Object

' PDFCreator

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As LongPtr)

Private WithEvents PDFCreator1 As PDFCreator.clsPDFCreator

Private ReadyState As Boolean, DefaultPrinter As String

' ----------

Dim sPathName As String

Ругается на sub/ Или я не правильно делаю

[Kelny 1 332]

Ругается на sub/ Или я не правильно делаю

Вероятно ни чего не делаете, почувствуйте разницу.

У вас:

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As LongPtr)

Предложенный вариант:

Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As LongPtr)

[DEVIL 1]

спасибо! точно я криворукий) разобрался. Там еще в настройках preference надо галочку поставить на PDFcreator. Только он сохраняет в формате тиф каждый лист отдельным файлом! Если я еще не надоел можно еще вопрос?)))) При нажатии SaveDRW ничего не происходит. захожу редактировать макрос там ошибок нет (точнее не выделяется ничего красным). Если не трудно может подскажешь где что поменять?

а обязательно надо чтобы автокад был установлен?

Изменено 29 января 2013 пользователем streamdown
Выкладывать весь листинг не имеет смысла!! В архив и прикрепить к сообщению.

[Kelny 1 332]

[spoiler="saveDRW_run(Code)"]

Спойлер на этом форуме не позволяет таких вольностей только одно слово в квадратных скобках spoiler - открыть и /spoiler - закрыть

При нажатии SaveDRW ничего не происходит. захожу редактировать макрос там ошибок нет (точнее не выделяется ничего красным). Если не трудно может подскажешь где что поменять?

Судя по названию макроса он сохраняет чертёж, возможно даже ни чего спрашивать не должен. А что-то должно происходить? Или документ не сохраняется после выполнения макроса? Что в нём не так и что должно быть так не знаю.

а обязательно надо чтобы автокад был установлен?

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

[DEVIL 1]

Спойлер на этом форуме не позволяет таких вольностей только одно слово в квадратных скобках spoiler - открыть и /spoiler - закрыть

Судя по названию макроса он сохраняет чертёж, возможно даже ни чего спрашивать не должен. А что-то должно происходить? Или документ не сохраняется после выполнения макроса? Что в нём не так и что должно быть так не знаю.

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

спасибо тебе человеческое большое спасибо! выручил!

Есть еще вопросы может кто поможет? Как можно сделать так, чтобы высота строк всегда был 8мм. Как я понимаю, она автоматически меняется из-за того что шрифт не влезает(если шрифт не поменять размер строки меньше не становится). Или как шрифт поменять в макросе спецификации?

Изменено 30 января 2013 пользователем DEVIL