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

[Leon 445]

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

[Awesome 2]

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

[Thoryn Telvanni 8]

Приветствую! Стал ставить макросы на другой комп, столкнулся с проблемой, съехавшие почему то наименование и масса детали, в чем проблема?

[Leon 445]

@Thoryn Telvanni Добрый день, это подглючивают заметки в солиде. Если вы зайдете/выйдите из заметки, то текст выровняется. А съезжает он пока не вставлена модель в режиме отображения Ошибочных связей для примечаний, который лучше отключить.

[Thoryn Telvanni 8]

@Leon спасибо, сейчас попробую.

[kekich 3]

02.03.2020 в 19:08, Altay сказал:

Доброго времени суток.

При переходе SW 2017 на Windows 10 перестал отрабатывать макрос SaveAsPDF.

При сохранении выскакивает окно Снимок 1.

В файле PDF на чертёже сохраняется только контур детали и добавляется лист с текстом:

ERROR: undefined
OFFENDING COMMAND: sign
STACK:
/degree

Библиотеки все подключены. Версия PDFCreator 1.2.1.

При повторном сохранении через макрос появляется окно ошибки Снимок 2. При этом PDFCreator подгружается в диспетчер задач. Снятие задачи из диспетчера не даёт результата.

Помогите разобраться, необходимо много чертежей сохранить в PDF. 

Возникла абсолютно такая же ситуация, подскажите как решили?

[Kelny 1 332]

11 часов назад, kekich сказал:

Возникла абсолютно такая же ситуация, подскажите как решили?

Ctrl+Shift+Esc или Ctrl+Alt+Del(Delete) и через менеджер задач завершить процесс PDFCreator.exe

 

Второй вариант (что-бы не морочится в будущем с закрытием процесса), перед запуском основного кода проверять наличие процесса PDFCreator.exe и закрывать его программно, в модуле SaveAsPDF_run должно быть:

Цитата

Sub main()
Dim Process As Object 'Объявляем объект
        For Each Process In GetObject("winmgmts:").ExecQuery("Select * from Win32_Process") 'Смотрим все процессы
                If Process.Caption Like "PDFCreator.exe" Then 'Проверяем имя процесса и если нужное выпоняем действие по закрытию
                        Process.Terminate 'Снимает задачу процесса PDFCreator.exe
                        Exit For 'Завершает цикл и идёт дальше к выполнению макроса
                End If
        Next
        
SaveAsPDF.Show '(vbModeless) 'Запускает основной код макроса

End Sub

 

Или если проблема с сохранением в PDF, то попробуйте сохранить ни через макрос, а через виртуальный принтер PDFCreator (Файл-Печать... и выбрать принтер PDFCreator). Если проблема сохранилась, то проверьте, что виды чертежа обновлены, виды не чернового качества и модель решена (нет сокращённых деталей).

Так же попробуйте сохранить штатными инструментами: Файл-Сохранить как... и выбрать тип файла PDF.

Изменено 23 декабря 2022 пользователем Kelny

[Kelny 1 332]

@kekich Если найдете решение не забудьте поделиться это позволит вашим последователям увидеть не только вопрос (как в вашем случае), но и ответ, если вы поделитесь своим решением проблемы.

Изменено 23 декабря 2022 пользователем Kelny

[1master 1]

11.01.2012 в 21:18, kkk сказал:

Что нужно сделать, чтобы в MProp в профиле фамилий сразу были записи? А то у меня все время при запуске пустые окошки, приходится каждый раз выбирать профиль фамилий.

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

Хочу всегда ставить свою фамилию (допустим "Иванов"). Можно каждый раз выбирать из выпадающего списка, но это неудобно.

 

Было предложение в шаблоне детали сразу вписать. Попробовал (свойству Конструктор дал значение "Иванов"), но заработало лишь отчасти.

Если запускаешь макрос MProp, то он значение не видит и при применении макроса затирает фамилию на пустоту.

 

Может кто решил эту проблему?

[kkk 295]

12 минут назад, 1master сказал:

Может кто решил эту проблему?

Я решил тем, что стал пользоваться ПропертиТабБилдером. 

[1master 1]

16 минут назад, kkk сказал:

Я решил тем, что стал пользоваться ПропертиТабБилдером. 

Ну это уже решение вне макросов, а мне бы хотелось ими пользоваться.

 

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

Может гуру @Leon подскажет?

Можно ли сделать так, чтобы первый профиль фамилий был выбран по умолчанию?

[Leon 445]

@1master В шаблон чертежа свойства забить) Либо самостоятельно править код макроса.

[1master 1]

23 минуты назад, Leon сказал:

@1master В шаблон чертежа свойства забить) Либо самостоятельно править код макроса.

Я чуть выше писал, что вариант со свойством в шаблоне не работает. При вызове MProp он значение шаблона не видит и при применении макроса просто его затирает.

 

Хотел сам код макроса поправить, но пока не нашел нужное место 

[Leon 445]

@1master В шаблон модели, извините, в макросах фамилии в модели хранятся.

[1master 1]

5 минут назад, Leon сказал:

@1master В шаблон модели, извините, в макросах фамилии в модели хранятся.

Да, я именно в шаблоне модели и делал

[Snake 60 757]

@1master Скинь свою версию макроса, которой пользуешься - я подправлю

[1master 1]

12 минут назад, Snake 60 сказал:

@1master Скинь свою версию макроса, которой пользуешься - я подправлю

MProp.zip

[Maik812 309]

3 часа назад, 1master сказал:

Может кто решил эту проблему?

 

3 часа назад, kkk сказал:

решил тем, что стал пользоваться ПропертиТабБилдером. 

А я Тоталом и его шаблонами, кстати там есть и список постоянных используемых слов и символов

[Snake 60 757]

@1master Отправил в личку

[Snake 60 757]

Если кому-то нужно тоже самое, что и @1master (автозаполнение поля Разработал), то делаем следующее:

После строк кода:

' Заполнение списка Разраб. и проверка свойства Автор
Разработал.Clear
For i = 0 To jfam
    Разработал.AddItem Fam(i)
Next i

добавляем строку

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

и в поле Разработал будет подтягиваться автоматом первая фамилия из списка.

 

Такой же фокус можно сделать и с другими полями формы по аналогии.

[vmg13171 0]

Всем добрый день.

Есть два вопроса:

1) Можно ли как-то вставить групповую спецификацию на первый лист (с чертежом). Одиночное исполнение вставляется без проблем, например для текущего вида на чертеже. А вот если на  несколько исполнений можно ли как-то сделать?

2) Как можно сделать, чтобы, чтобы при использовании макроса SpecEditor в спецификации  отображались исполнения не -, 01, 02, 03.... , а те что в модели сборки, например: 800, 800.А, 900, 900.А...

 

https://ibb.co/61Fw50v

 

https://ibb.co/M9DVfqp