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

[Leon 433]

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

Но ведь планируется что-то другое??

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

[DuS 325]

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

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

А можно спойлер?)

[$iriu$ 0]

Добрый день всем! 

Установлен SW 2018 sp 3. Винда 10 х64

Установлены макросы SWplus 2017 SP0.0.

SpecEditor не запускается вообще, запускаю - молчание. Очень нужна помощь, что делать?

Может быть кто-то с решением этой проблемы встречался.

 

 

[$iriu$ 0]

26 минут назад, $iriu$ сказал:

Добрый день всем! 

Установлен SW 2018 sp 3. Винда 10 х64

Установлены макросы SWplus 2017 SP0.0.

SpecEditor не запускается вообще, запускаю - молчание. Очень нужна помощь, что делать?

Может быть кто-то с решением этой проблемы встречался.

 

 

Методом тыка и найдя запись о подобной проблеме, запустил данный макрос.

Решение проблемы: При добавлении макроса в выпадающем списке Method выбрать Speceditor_run.main

[Leon 433]

6 часов назад, DuS сказал:

А можно спойлер?)

Я выкладывал

Еще пол годика, наверное. Просто времени нет, урывками все.

[Open Gamer 3]

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

Я выкладывал

Еще пол годика, наверное. Просто времени нет, урывками все.

Увы, вот что там пишут: „ Страница, к который вы пытаетесь получить доступ, недоступна для вашего аккаунта. ”

ЗАШТО?

[DuS 325]

13 минуты назад, Open Gamer сказал:

Увы, вот что там пишут: „ Страница, к который вы пытаетесь получить доступ, недоступна для вашего аккаунта. ”

ЗАШТО?

и меня тоже также(

[egregor 0]

Форумчане приветствую. До поры до времени функционала макросов хватало с головой,  но вот настал тот момент...:)

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

Объясню для чего это надо. У нас на заводе "типа" электронный документооборот. Есть сетевая папка с изделиями. Каждое изделие это своя папка с моделями и чертежами(в том числе и pdf). Подобных папок/подпапок около 1000. Рабочий получает задание на изготовление детали, ищет чертеж в сетевой папке по децимальному номеру(обозначению) и открывает у себя на рабочем месте чертеж.  Бывали случаи когда рабочий открывал старую ревизию чертежа и выполнял деталь не верно, а хранить старые версии чертежей нам необходимо для отчетности по сертификации по ИСО. Если ревизии чертежей будут складываться в одном месте, то можно запретить доступ к данной папке, а когда таких папок сотни то это уже проблематично. 

Есть ли у кого возможность написать кусок кода, чтобы  макрос после нажатия на кнопку предлагал выбор пути сохранения ревизии чертежа или чтобы в ini файле можно было делать выбор пути по умолчанию или чтобы в коде был указан путь? 

Буду безмерно благодарен любой помощи. 

Переносить вручную каждый чертеж прошу не предлагать;).

 

Изменено 16 января 2019 пользователем egregor

[tulibay 74]

@egregor  Как вариант! Макрос SWpdfProjects

Изменено 16 января 2019 пользователем tulibay

[vasyam 483]

 .

 

Изменено 17 января 2019 пользователем vasyam

[Kelny 1 236]

11 час назад, egregor сказал:

Есть необходимость чтобы макрос saveasPdf сохранял старые ревизии чертежей в одной определенной папке.

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

 

11 час назад, egregor сказал:

У нас на заводе "типа" электронный документооборот. Есть сетевая папка с изделиями.

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

 

11 час назад, egregor сказал:

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

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

Хотя лучшем решением будет всё же выдавать рабочему нужный учтённый комплект КД, что бы таких недоразумений не было. А то ведь хитрые разработчики могут подменить файл уже после того как рабочий взял деталь в оборот...

 

11 час назад, egregor сказал:

Переносить вручную каждый чертеж прошу не предлагать;).

Лениво вручную, пишите макрос/программу которая это будет делать за вас. Можно попробовать решить с помощью небольшого набора комманд в небольшом исполняемом тестовом файле с изменением расширения на BAT или CMD.

[egregor 0]

10 часов назад, tulibay сказал:

@egregor  Как вариант! Макрос SWpdfProjects

Спасибо, но это не совсем то.

6 минут назад, Kelny сказал:

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

Да никто их не и пересохраняет. Макрос SaveAsPDF копирует старый чертеж в папку Revision в родительском каталоге и добавляет в конце файла номер ревизии указанной через макрос DProp(_Rev.ХХ). Если папки Revision нет, то он ее создает. А хотелось бы чтобы копировалось не в родительский каталог, а в заданную мной папку. Я не правильно выразился сказав, что макрос SaveAsPdf сохраняет старые ревизии.

8 минут назад, Kelny сказал:

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

Хотя лучшем решением будет всё же выдавать рабочему нужный учтённый комплект КД, что бы таких недоразумений не было. А то ведь хитрые разработчики могут подменить файл уже после того как рабочий взял деталь в оборот...

Бумажные комплекты КД есть, но опять же рабочим лень искать нужную папку с чертежами в шкафу с документацией:( Поэтому все пользуются поиском на ПК.

Мы не хитрые разработчики;).

10 минут назад, Kelny сказал:

Лениво вручную, пишите макрос/программу которая это будет делать за вас. Можно попробовать решить с помощью небольшого набора комманд в небольшом исполняемом тестовом файле с изменением расширения на BAT или CMD.

С батником кстати неплохая идея. Попрошу нашего админа подумать над этим. А можно ли чтобы после выполнения макроса SaveAsPdf чтобы сразу запускался батник? Если можно, то как?

[Open Gamer 3]

@egregor , а не хотите попробовать задействовать Winrar, например? Т.е. весь архивный хлам хранить в тех же папках, но в упакованном виде (но не zip - чтобы исключить прямое взаимодействие с проводником Windows), и только актуальные версии - в естественном. У Winrar богатый набор инструментов командной строки, в т.ч. есть и возможность присвоение номера версии запихуемому в архив файлу.

[Kelny 1 236]

20 минут назад, egregor сказал:

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

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

 

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

А можно ли чтобы после выполнения макроса SaveAsPdf чтобы сразу запускался батник? Если можно, то как?

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

[egregor 0]

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

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

1. Через ini файл задаю полный путь к папке(папка создана(рис. 3)) куда должны копироваться старые ревизии чертежей(рис. 1).

2. Изменяю Dprop'ом ревизию чертежа.

3. Нажимаю кнопку макроса SaveAsPdf.

4. Получаю ошибку(рис. 2).

 

Что делаю не так?

[Kelny 1 236]

33 минуты назад, egregor сказал:

Что делаю не так?

Двумя строчками выше исправить на: sDirCopyName = sIni7 & "\"

Тогда проверка существования папки будет проходить и новая папка с непонятным именем/путём создаваться не будет.

 

Не помню может ли макрос работать с сетевыми путями. Если нет, то возможно придётся подключить сетевой ресурс как сетевой диск и использовать путь до этого сетевого диска. Или смотреть как в макросе использовать сетевые пути.

 

33 минуты назад, egregor сказал:

Получаю ошибку(рис. 2).

Ошибку получаете потому как у вас в sDirCopyName записывается путь вида: ПутьКпапкеФайла\\NAS\... (sDirCopyName = sDirName & sIni7 & "\")

И соответственно такой путь не может быть создан (впрочем как не может быть создан набор папок).

Изменено 17 января 2019 пользователем Kelny

[egregor 0]

8 минут назад, Kelny сказал:

Двумя строчками выше исправить на: sDirCopyName = sIni7 & "\"

Тогда проверка существования папки будет проходить и новая папка с непонятным именем/путём создаваться не будет.

Это сделал, спасибо. Теперь затык чуть ниже по коду(рис. 1).

11 минуту назад, Kelny сказал:

Не знаю может ли макрос работать с сетевыми путями. Если нет, то возможно придётся подключить сетевой ресурс как сетевой диск и использовать путь до этого сетевого диска. Или смотреть как в макросе использовать сетевые пути.

Попробовал подставить в качестве пути подключенный сетевой диск(рис. 2) - результат тот же(рис. 1)

[vasyam 483]

Три строчки выше

strTemp = Left$(sPathName, varTemp - 1) & "\" & sIni7 & Right$(sPathName, Len(sPathName) - varTemp + 1)

замените на

strTemp = sDirCopyName & Right$(sPathName, Len(sPathName) - varTemp + 1)

[Sergei 297]

А как сделать чтобы у БЧ детали внизу наименования появлялся материал? Спецификация на листе, БЧ в МПроп поставил.

[egregor 0]

4 минуты назад, vasyam сказал:

Три строчки выше

strTemp = Left$(sPathName, varTemp - 1) & "\" & sIni7 & Right$(sPathName, Len(sPathName) - varTemp + 1)

замените на

strTemp = sDirCopyName & Right$(sPathName, Len(sPathName) - varTemp + 1)

Вот спасибо тебе огромное добрый человек. Завелось.