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

[Leon 435]

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

SERozЯ все равно ничего не понял. Мы же говорили про макрос Мастер для генерации форматок. Причем тут DProp?

Я говорил всего-лишь о той ошибке и не более, просто уточнил где и когда она появляется....

А форматки сделанные в Мастере (MProp) работают нормально (правда у меня получилось сделать их только А4 и А3, но это было в старой версии. В Вашей последней пока ещё не пробовал - и те пока работают нормально)....

[Holms 0]

Leon, Shvg

Спасибо за оперативный ответ. Лишний раз убеждаюсь, что наиболее ценные знания можно получить не не курсах, а при непосредственном обшении с коллегами. К сожалению, вариант с добавлением латинской буквы I (IRetval) не прошел. (Может у меня руки кривые?) А после добавления строки "Dim retval As Long", все заработалоооо. :-))). Спасибо еще раз. Такие "примочки" очень облегчают жизнь.

[Holms 0]

Leon

Обнаружил еще одну неприятную особенность: Задаю макросом DProp масштаб листа (1:2,5). При повторной попытке запустить DProp, выскакивает вот такая ошибка:

Выхожу из положения штатными средствами SW: (в свойствах листа меняю масштаб на какой-либо другой "целый"),тогда все функции DProp восстанавливаются. Вот такие пляски. Вроде мелочь, но осадок остается.

Может поможет такая информация для дальнейшей отладки Ваших макросов?

[Shvg 68]

Обнаружил еще одну неприятную особенность: Задаю макросом DProp масштаб листа (1:2,5). При повторной попытке запустить DProp, выскакивает вот такая ошибка

Нажмите кнопку Debug, должна появится строка в коде, где произошла ошибка и выложите скриншот. Так легче будет другим разобраться.

[Holms 0]

Нажмите кнопку Debug, должна появится строка в коде, где произошла ошибка и выложите скриншот. Так легче будет другим разобраться.

Вот скриншот того, что появляется после нажатия кнопки Debug

P.S. Ну вот и сам разобрался. Поменял в строках с дробными масштабами запятую на точку, и все заработало!!!

[ssv22 17]

Leon, Shvg

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

обшении с коллегами. К сожалению, вариант с добавлением латинской буквы I (IRetval) не прошел. (Может у меня руки кривые?)

А после добавления строки "Dim retval As Long", все заработалоооо. :-))). Спасибо еще раз. Такие "примочки" очень облегчают жизнь.

"...буквы I (IRetval)..." какую букву Вы добавили? I (`И`(англ.)- заглавную) или `l`- L-прописную?

ИМХО надо `l`- L-прописную, т.е. `l` - от слова `Long`.

[Holms 0]

"...буквы I (IRetval)..." какую букву Вы добавили? I (`И`(англ.)- заглавную) или `l`- L-прописную?

ИМХО надо `l`- L-прописную, т.е. `l` - от слова `Long`.

Да, руки у меня действительно кривые. В самом деле не ту букву вписал. Если бы воспользовался буфером обмена, (скопировал-вставил), и вопроса не возникло бы. :-((

Спасибо!

[Leon 435]

Holms С масштабом у меня ошибки не возникает. Но видимо дело в системных настройках. У меня в качестве разделителя цельной и дробной части выставлена запятая. Надо подумать, как сделать так, чтобы макрос не зависел от системных настроек.

Может поможет такая информация для дальнейшей отладки Ваших макросов?

Чем больше информации - тем лучше. Любые предложения и замечания, не стесняйтесь.

[ssv22 17]

Да, руки у меня действительно кривые. В самом деле не ту букву вписал. Если бы воспользовался буфером обмена, (скопировал-вставил), и вопроса не возникло бы. :-((

Спасибо!

Да не, при чем тут руки: эти буквы я и сам частенько путаю - похожи...

А так, если какие-то проблемы с переменными(и не только), можно пробовать отключать явное объявление перменных - оператор "Option Explicit".

Если программа заработает, то уже иожно сделать вывод...

Holms С масштабом у меня ошибки не возникает. Но видимо дело в системных настройках.

У меня в качестве разделителя цельной и дробной части выставлена запятая.

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

...

Что тут думать? Трясти надо :-)

Надо делать проверку на предмет является данная переменная числом или строкой.

"

This example uses the IsNumeric function to determine if a variable can be evaluated as a number.

MyVar = "53" ' Assign value.

MyCheck = IsNumeric(MyVar) ' Returns True.

MyVar = "459.95" ' Assign value. <<<<<<<<<<<<<< вот тут, если стоит запятая, IsNumeric возвратит False, а дальше надо перевести строку в число

MyCheck = IsNumeric(MyVar) ' Returns True.

MyVar = "45 Help" ' Assign value.

MyCheck = IsNumeric(MyVar) ' Returns False.

"

[SERoz 201]

_Leon_

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

[Shvg 68]

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

В VB6 я обычно для этого использовал обработчик ошибок

Sub QQ()

   On Error GoTo LineError

   ..........

   ..........



  Exit Sub ' Выход из процедуры, чтобы не заходить в обработчик ошибок

LineError: 'обработчик ошибок

   Select Case Err.Number ' Определяем код ошибки

	  Case 380 'недопустимое значение свойства, ошибка, которая была у Holms-a

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

	 Case Else

		.....' Здесь размещается код для обработки других ошибок

   End Select

   Resume ' Возобновляем выполнение со строки, вызвавшей ошибку.

End Sub

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

[Leon 435]

ssv22

Спасибо, но ваш вариант работает только при считывании масштаба. А при назначении все равно нужно знать системный разделитель, иначе снова возникнет ошибка, если пользователь сменит масштаб, например с 1:1 на 1:2,5.

Shvg

Также благодарю, обработка ошибок вещь правильная, я ленюсь ее делать.

В данном случае решил проблему третьим путем, через swApp.GetUserPreferenceStringValue(swSeparatorCharacterForDims)

[ssv22 17]

ssv22

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

иначе снова возникнет ошибка, если пользователь сменит масштаб, например с 1:1 на 1:2,5.

...

Это имеется ввиду что пользователь ввел "1:2,5", и это есть строка?

Тут вижу три пути:

1. запретить этому контролу принимать строковые значения (в help`e по VB есть пример);

2. запретить вообще ввод пользователем, а использовать "выпадающий список", с заранее забитыми значениями (в SW также сделано!);

3. синтаксический разбор введенных данных и преобразование в нужный формат - этот вариант самый трудный (ИМХО).

PS. знать системный разделитель в любом случае знать надо. ИМХО это в какой-то переменной SW хранится...

PPS. защита от неправильного ввода данных - самое муторное занятие при написании программ...

[SERoz 201]

Может проще будет - указать пользователю проверить этот разделитель в винде и ввести его в окно переменной???

[ssv22 17]

Может проще будет - указать пользователю проверить этот разделитель в винде и ввести его в окно переменной???

из Мэрфологии:

- Любая система, зависящая от человеческой надежности, ненадежна.

- Любые предложения люди понимают иначе, чем тот кто их вносит.

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

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

[Leon 435]

Так ведь я написал, что решил эту проблему. Все отлично работает. Системный разделитель считываю из swApp.GetUserPreferenceStringValue(swSeparatorCharacterForDims)

Скоро будет новая версия макросов.

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

Ну посыпятся, но у меня совесть чиста, я денег за макросы не прошу, а дареному коню...

[ssv22 17]

Так ведь я написал, что решил эту проблему. Все отлично работает. Системный разделитель считываю из swApp.GetUserPreferenceStringValue(swSeparatorCharacterForDims)

Скоро будет новая версия макросов.

Ну посыпятся, но у меня совесть чиста, я денег за макросы не прошу, а дареному коню...

Работает - этто хорошо!

Я ни в коем случае не критикую, это так, просто мысли вслух...

[SERoz 201]

Ну посыпятся, но у меня совесть чиста, я денег за макросы не прошу, а дареному коню...

За что Вам отдельное спасибо

[SERoz 201]

_Leon_

1. Есть пару картинок из Стандартных

Первая - при первом запуске SProp (почему-то Наименование двоится) ...

Вторая - после нажимания Enter (скока раз нажму ОК, стока и получу двойников - выход только через крестик)...

(может пример с файлом "Трубка" не совсем удачный, но такой первый попался)

2. Если можно - немного непоняток в именах Свойств...

Суть свойств понятна, но в чём разница и для чего столько, и можно ли их использовать по-отдельности или это только для макроса - Наименование, Наименование_ВП, Наименование_ФБ или Примечание, Примечание_ВП и т.п.???

И что такое - Обозначение_ДНП (Децимальный Номер Прибора или другое)???

Честно говоря, сколько не сравнивал описания - так и не понял такого изобилия вариантов (а может мне и не нужно этого понимать??)...

Или это нужно для разделения по разным Спецификаторам и это "не посвящённым" знать не нужно???

Или в файле "Описание.DOC" просто перечислены все "готовые к использованию" свойства Солида в файлах Проекта???

И ещё вопросик:

Можно ли какое то свойство использовать в качестве "Заимствовано из..." и потом группировать и сортировать по нему или это сложно (хотя бы только сортировка)???....

Методом тыка будет долго - может Вы подскажете????

[Leon 435]

SERoz

По первой картинке. Вопрос здесь уже был. Наименование "двоится", потому что у вас два раза вбито одно и тоже. В поле Обозначение ДНП (документ на поставку) нужно вбивать ГОСТ, ОСТ, ТУ и т.д.

По второй картинке. Здесь моя недоработка, исправлю. Выходить можно кнопкой Отмена. Если у вас заполнены поля Наименование, Обозначение ДНП и Группа, то при нажатии ОК индикатор станет зеленым. Это значит, что все свойства внесены правильно.

Про свойства. Я вроде прикладывал к макросам вордовский документ, где описаны все свойства. Их так много, потому что они используются и для штампа чертежа, и для спецификации и ВП, и в PDMWorks. А раньше еще и в SWR-спецификации. Например для материала и массы используется по 2 свойства, потому что в одно всегда пишется только значение, а в другое, в зависимости от ситуации, может быть записано "См. табл." или прочерк.

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

И ещё вопросик:

Можно ли какоето свойство использовать в качестве "Заимствовано из..." и потом группировать и сортировать по нему или это сложно (хотя бы только сортировка)???....

Методом тыка будет долго - может Вы подскажете????

А где и как вы хотите сортировать? У меня есть свойство Проект_ФБ, в которое я пишу шифр проекта, к которому относится деталь. Своего рода первичное применение в проекте.