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

[Sergei 298]

Понимаю что можно в имени файла писать только обозначение но этот вариант не подходит.

Почему?

[Kelny 1 328]

Почему?

Искать не удобно стандартными средствами Windows, те что по клавишам Ctrl+F. Можно конечно воспользоваться средствами Office, но это уже дополнения.

[Backsik 1]

Почему?

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

[Sergei 298]

А столбец "Заголовок" ("Название" для win7) не пробовали выводит в проводнике в режиме таблица?

[Backsik 1]

Это есть я пробывал все выводит. Но я ж говорю у меня уже есть очень много файлов и если я сейчас перейду на новый тип создания имени файлов то пойдут разночтения. Да и еще есть проблема что я работаю с разными производителями и каждому рассказывать как настроить колонки просто нереально

[kobold 0]

Добрый день. назрел такой вопрос. имеем имя файла, 12345_хххххх , возможно ли сделать так чтобы в макросе MProp Графа ОБОЗНАЧЕНИЕ по умолчанию подтягивало с имени файла до слеша (12345), а в графу НАИМЕНОВАНИЕ после слеша(хххххх). Понимаю что можно в имени файла писать только обозначение но этот вариант не подходит.

Откой макрос и в коде формы найди строку

TxtNumber.Value = sNumberTitle

и поменяй на

TxtNumber.Value = Left(sNumberTitle, InStr(1, sNumberTitle, "_") - 1)

тогда в Обозначение будет записываться все что до _

потом найди

Наименование.Value = swModel.SummaryInfo(0)

и поменяй на

Наименование.Value = Right(sNumberTitle, Len(sNumberTitle) - InStr(1, sNumberTitle, "_") )

тогда в Наименование будет записываться все что после _

[Backsik 1]

Откой макрос и в коде формы найди строку

TxtNumber.Value = sNumberTitle

и поменяй на

TxtNumber.Value = Left(sNumberTitle, InStr(1, sNumberTitle, "_") - 1)

тогда в Обозначение будет записываться все что до _

потом найди

Наименование.Value = swModel.SummaryInfo(0)

и поменяй на

Наименование.Value = Right(sNumberTitle, Len(sNumberTitle) - InStr(1, sNumberTitle, "_") )

тогда в Наименование будет записываться все что после _

Проделал вышеописанное но чет не вышло чуда. Попробую обьяснить по другому суть. я имея файл с именем 12345_ххххх хочу получить в основной надписи обозначение 12345 и наименование ххххх и это же при формировании спецификации. Т.к. MProp позволяет заполнить свойства обозначения и наименования то начал копать именно туда но в основной надписе чертежа обозначение все равно совпадает с именем файла а наименование осталось пустым.

[Backsik 1]

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

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

[kobold 0]

Ну тогда замени весь блок

' Проверяем наличие ручного ввода Обозначения

strTemp = "$PRP:" & Chr$(34) & "SW-File Name" & Chr$(34)

If swModel.CustomInfo(prpNumber) = strTemp Or swModel.CustomInfo(prpNumber) = "" Then

ChkManual.Value = True

TxtNumber.Value = sNumberTitle

Else

ChkManual.Value = True

TxtNumber.Value = swModel.CustomInfo(prpNumber)

End If

ChkManual_Click

на TxtNumber.Value = Left(sNumberTitle, InStr(1, sNumberTitle, "_") - 1)

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

strTemp = swModel.CustomInfo2("", prpDescription)

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

Наименование.Value = swModel.SummaryInfo(0)

Else

Наименование.Value = strTemp

End If

Else

Наименование.Value = strTemp

End If

на Наименование.Value = Right(sNumberTitle, Len(sNumberTitle) - InStr(1, sNumberTitle, "_") )

[Kelny 1 328]

strTemp = "$PRP:" & Chr$(34) & "SW-File Name" & Chr$(34)

kobold переменная strTemp всегда не пуста и далее не сбрасывается, соответственно ниже ни когда не наступит:

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

  strTemp = swModel.CustomInfo2("", prpDescription)

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

	  Наименование.Value = swModel.SummaryInfo(0)

	Else

	  Наименование.Value = strTemp

	End If

Else

  Наименование.Value = strTemp

End If

всё время будет:

Наименование.Value = strTemp

[Backsik 1]

сенкс все работает

[Sergei 298]

ГДЕ LEON ???

[SERoz 201]

ГДЕ LEON ???

Человек обживается на новой работе, изучает семёрку...

[Leon 442]

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

Появились новые настройки, так что почти все ini файлы изменились, будьте внимательны при замене.

Из основного, появилась возможность работать с именами файлов, состоящих из Обозначение (разделитель) Наименование.

Доделал работу с материалами. В MProp можно указать основную базу, и тогда макрос будет стараться брать материалы только из нее. Работа с заготовками в будущем, пока галочка не активна.

К сожалению нет времени все описать...

SWPlus_v_04_beta.rar

[Sergei 298]

О ВЕЛИКИЙ !!!

[SERoz 201]

_Leon_

Действительно - ОГРОМНОЕ СПАСИБО от всех безталанных (или безруких)!!!

Удивляюсь Вашей работоспособности - и на работе (для работы) и тут (форумчан не забываете)...

За возможность работы с базой материалов - отдельное спасибо...

=====

Немного про это...

Базы и материалы выбираются, НО..

При загрузке MProp, ругается на отсутствие базы "Test"...

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

[streamdown 1 567]

кхм-кхм

говорит нет базы test - после ОК такое окно

[Sergei 298]

М-да, что-то не то. Может где в настройках нужно подправить?

[streamdown 1 567]

Может макросописатели помогут))

Идем по файлу пока не увидим звезду

If Left$(strTemp, 1) = "*" Then

Отсчитываем знаки до запятой

varTemp = InStr(strTemp, ",")

записывем стринг в виде " 7 знаков длина, от запятой 7 знаков"

strTemp = Mid$(strTemp, 7, varTemp - 7)

добавляем стринг в форму

CboHatch.AddItem strTemp

Или я неправильно хелп по функции понял

Dim MyString, FirstWord, LastWord, MidWords

MyString = "Mid Function Demo"	' Create text string.

FirstWord = Mid(MyString, 1, 3)	' Returns "Mid".

LastWord = Mid(MyString, 14, 4)	' Returns "Demo".

MidWords = Mid(MyString, 5)	' Returns "Function Demo".

Переименовал свою базу материалов в test, создал деталь, задал металл и выбрал штриховку, создал круг с бобышкой, сохранил, жмакнул по макросу Mprop и ... опять такая же ошибка. Может тут с длиной стринга чего неправильно?

предположения:

1.Вообще, код, вроде пытается считать материал из этой test, мож она какая особенная?

2.Для любого материала штриховка будет ANSI31 ибо с нее начинается первая *

[Leon 442]

Пардон, поспешил, как обычно, попробуйте эту исправленную версию MProp.

Про базу Test. Смысл здесь вот в чем. Для порядка мы у себя в конторе хотим внедрить одну базу материалов, а то когда у каждого своя, получается бардак. Имя этой базы надо указать в настройках вместо Test. Если установлена галочка для контроля материалов, то макрос будет проверять материал, смотреть есть ли он в этой основной базе, и если есть, то предлагать замену базы.

Вообще многие опции моих макросов нужны именно для контроля стандарта оформления КД и приведения в порядок уже созданных ранее моделей и чертежей, у которых настройки не пойми какие.

SWPlus_v_04_beta_sp1.rar