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

[Vasiliy85 5]

@Leon Подскажите что нужно поменять что бы наименования документа (например Сборочный чертеж) в основной надписи были шрифт размер 4?

[Alan Grek 8]

17 часов назад, Vasiliy85 сказал:

@Leon Подскажите что нужно поменять что бы наименования документа (например Сборочный чертеж) в основной надписи были шрифт размер 4?

шаблон основной надписи в папке макроса Master. и затем заново сгенерировать все форматки.

только 4 - это неГОСТовский размер

[Tomat 0]

Беда!!! Вывожу на печать спецификацию, мне пустой лист распечатывается. Сохраняю в PDF, сохраняется пустой лист вместо спецификации. Что делать?

[Vasiliy85 5]

В 22.02.2019 в 10:45, Alan Grek сказал:

шаблон основной надписи в папке макроса Master. и затем заново сгенерировать все форматки.

только 4 - это неГОСТовский размер

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

<FONT size=1> <FONT size=2.5> получилось сделать только 3.5 если поставить 4 то начинаются проблемы.

[ayct 0]

всем добрый день. Не могу разобраться с одним моментом.

@Leon, к сожалению скачть не могу Вашу пачку скриптов, но как Вы расписали метод InsertRow в IAnnotationTable?

sw API Помогает никак: в описании декларации функции (для 2015 версии) стоит

Цитата

Function InsertRow( _
   ByVal Where As System.Integer, _
   ByVal Index As System.Integer _
) As System.Boolean

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

 

Почему классическое гостовское размещение заменяю костылем - чтобы потом спеки не переделывать полностью в случае изменений - запас создаю.

Изменено 27 февраля 2019 пользователем ayct

[Leon 433]

@ayct

Dim ok as Boolean

Dim nRow as Integer

ok = swTable.InsertRow(swTableItemInsertPosition_Before, nRow)

[casper2 0]

Подскажите с какой версией SW беспроблемно будет работать SWPlus.

[ILL 241]

4 часа назад, casper2 сказал:

Подскажите с какой версией SW беспроблемно будет работать SWPlus.

 

Вообще-то, в имени архива указан год.. Соответственно, версия SW д.б. не ниже данного года.. Выше можно но тут уже может быть архив с данным годом в имени..

 

В 21.02.2019 в 15:24, Jerald сказал:

Вылазит вот такая ошибка

 

Скриншот в студию..

 

В 21.02.2019 в 14:52, Paladin_Of_War сказал:

но хотелось бы узнать как сделать сие (формат автоматически) без макросов

 

Модель ничего не знает про чертеж, поэтому только макросом..

 

 

[Конструктор РК29 1]

Доброго времени суток! Помогите настроить макрос.

Что нужно сделать, чтобы в MProp в профиле фамилий сразу были записи? Для SW2014 уже объясняли, а как для SW2017 не нашел информации (мне кажется, макросы отличаются ).

Интересны два варианта:

1. Автозаполнение если нет фамилии, (если есть то оставляет текущую)

2. Автозамена фамилии.

Подойдет ли такой вариант для названия организации и автозаполнения литеры?

 

И еще один вопросик. Может не в эту тему, но раз уж начал .

Проблема со шрифтами. Ставлю GOST 2.304 type A - буква "В" (на кириллице) заползает на соседние буквы в слове.

Если GOST type A - то пропадает значок градуса, вместо него большой квадрат.

Если GOST Type AU - то при печати выдает абракадабру.

Подскажите как подкорректировать шрифты или может где-то скачать можно.(если скачать, то как правильно установить)

 

[ГЕЛА 52]

В 2017-том  ПКМ в одном из окошек( разработал, проверил и т.д.) появляется всплывающий список выбираешь "Редактировать список фамилий". А по шрифтам  я пользуюсь ариал наров вроде проблем нет.

[Конструктор РК29 1]

13 минуты назад, ГЕЛА сказал:

В 2017-том  ПКМ в одном из окошек( разработал, проверил и т.д.) появляется всплывающий список выбираешь "Редактировать список фамилий". А по шрифтам  я пользуюсь ариал наров вроде проблем нет.

Как раз от лишнего нажатия кнопок я хочу уйти.

Считаю, что ариал не совсем подходит для оформления чертежей.

[ГЕЛА 52]

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

Изменено 4 марта 2019 пользователем ГЕЛА

[Конструктор РК29 1]

1 час назад, ГЕЛА сказал:

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

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

[bnickl 20]

1 час назад, Конструктор РК29 сказал:

Как раз от лишнего нажатия кнопок я хочу уйти.

Считаю, что ариал не совсем подходит для оформления чертежей.

Надо во всех основных надписях (например - A3-A-1.slddrt) заполнить способом, на который указал @ГЕЛА и запомнить эти осн. надписи (Файл -> Сохранить основную надпись...).

 

Использую Arial полууплотненный курсив. По ГОСТ 2.004-88 это допускается (п.1.8, примечание 3).

[tulibay 74]

@Конструктор РК29

12 минуты назад, Конструктор РК29 сказал:

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

открывайте MProp в редакторе VBA, в коде формы FrmMProp ищите процедуру Private Sub UserForm_Activate(), переходите в самый конец этой процедуры и ПЕРЕД строкой End Sub пишем:

CboProfile.ListIndex = XXX

вместо XXX пишите номер строки нужного профиля. нумерация строк начинается с 0 (ноль)

[malvi.dp 266]

@Конструктор РК29 , один раз настройте и сохраните в шаблон детали или сборки.

При открытии нового файла все фамилии и прочие сохраненные атрибуты будут уже присутствовать.
 

[bnickl 20]

34 минуты назад, malvi.dp сказал:

один раз настройте и сохраните в шаблон детали или сборки.

При открытии нового файла все фамилии и прочие сохраненные атрибуты будут уже присутствовать.
 

Да, я был не прав.

[Конструктор РК29 1]

1 час назад, tulibay сказал:

@Конструктор РК29

открывайте MProp в редакторе VBA, в коде формы FrmMProp ищите процедуру Private Sub UserForm_Activate(), переходите в самый конец этой процедуры и ПЕРЕД строкой End Sub пишем:

CboProfile.ListIndex = XXX

вместо XXX пишите номер строки нужного профиля. нумерация строк начинается с 0 (ноль)

Спасибо, способ работает. Отмечу только, что теперь без доработки макроса или профиля невозможно поменять фамилии, точнее при каждом запуске макроса они восстанавливаются из профиля.

 

Нашел способ (на форуме) как вставлять фамилии по умолчанию:

 

Разработал.Clear

For i = 0 To jfam

Разработал.AddItem Fam(i)

Next i

Разработал.Value = swModel.SummaryInfo(2)

If Разработал.Value = "" Then

Разработал.ListIndex = 0

End If

 

Может кто знает, можно ли также сделать с литерой?

1 час назад, bnickl сказал:

Использую Arial полууплотненный курсив. По ГОСТ 2.004-88 это допускается (п.1.8, примечание 3).

Под этот пункт можно подтянуть все что хочешь

Изменено 4 марта 2019 пользователем Конструктор РК29
новая информация

[Конструктор РК29 1]

1 час назад, Конструктор РК29 сказал:

Может кто знает, можно ли также сделать с литерой?

С литерой все оказалось еще проще. Если кому интересно, то вот решение.

 

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

 

Теперь при загрузке макроса, если литеры нет, то автоматом проставляется И

 

[k_v 301]

Добрый день.

В SW 2019 SP1 столкнулся с тем что в свойства массы и материала, отображаемые в чертежах стали в конце строки добавляться последовательности символов .SLDPRT"

если уже было скиньте ссылку куда копать?

Изменено 12 марта 2019 пользователем k_v