Переименование деталей в сборке

[Skymaster 1]

Из SolidWorks загрузил сборку через STEP. Все здорово, кроме имен деталей, которые автоматически прописались в дереве. Имя примерно такое:

Blablabla-Part357-1_По умолчанию(NAU0357)

Blablabla - было именем STEP файла. Остальная лабуда приплыла сама "по умолчанию".

Мне нужно переименовать все детали примерно так:

qq001

qq002

qq003

....

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

[MArtmath 0]

Потренируйся сначала на кошках...В смысле сборку не запортачь.

Ps.Пиво пришлешь бандеролью

[Skymaster 1]

Cпасибо MArtmath, все работает, отлично . Переименовал разные ветки подсборок, залезаешь в редактирование макроса и вводишь нужное имя. Супер. Пиво-то куда? без шуток, угощу с удовольствием.

[MArtmath 0]

Блин счас заметил что instance name переименовывается только в случае если деталь на верхнем уровне...Может подумаю еще...Надеюсь понимаешь что если надумаешь автоматизировать спецификации- готовый проход по дереву - полдела.

[MArtmath 0]

Переименовывает все (Если только нет файлов с одинаковыми именами даже в разных папках).

[Eugen_ 0]

Очень актуальная тема. Но есть проблема - подскажите как следует с ним обращаться. По возможности шаг за шагом. Я вообще то не программист, поэтому прошу о помощи. Пробовал открыть как открывал всегда все скрипты - выдает ошибку. Кажется там где то надо задавать желаемые имена? Очень нуно, плиз...

[MArtmath 0]

В 14 рел.

Подключение :

tools/macro/macros/macro libraries ;вверху выбираешь VBA projects -add existing libraries - выбираешь данный файл;

Затем - tools/macro/visual basic editor;слева -дерево проектов - вабираешь там module1

находишь строки:

prduct2.name = "tt" + CStr(mynumber)

prduct2.PartNumber = "bla" + CStr(mynumber)

name-instance name;part number - понятно...;tt;bla-меняешь на че надо;

Кстати поставь ' перед MsgBox Err.number

изначально переименовывает только детали - если хочешь и сборки - поставь ' внутри

Public Sub Part_action()

'.

'.

end sub

и убери их внутри Main_Action

перед запуском ВЫДЕЛИ СБОРКУ/ПОДСБОРКУ внутри которой и будет все переименовываться.

Попросил бы друзей/коллег/соседа - любого кто написал хоть один макрос для excel/wordа - подсказать: принципы работы одни и те же (Ну если поймешь мое обьяснение на пальцах - буду рад)

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

[Eugen_ 0]

Ну да, теперяча все получилось. Я все так и делал, только не выделял сборку которую надо переименовывать Вот. Вобщем макрос хорош, но меня бы интересовало несколько иное. Мои сборки состоят из деталей которые создаю я и из нормированных деталей. Этот макрос переименовывет все. Но мою гайку М8 я вовсе не хочу переименовывать. Моя задача была бы - найти в дереве все детали, содержащие в номере цифры к примеру 222 и заменить их на цифры 333. Так как это функционирует в ворде и вообще... Пример

БГ1

-01-22201-00

-01-22202-00

-01-22203-00

-Screw M8

-Pin 10

и т.д. Я стартую макрос и получаю

БГ1

-01-33301-00

-01-33302-00

-01-33303-00

-Screw M8

-Pin 10

Это реально?

[MArtmath 0]

Почему нет?Писал быстро - соответственно возможны баги...(А это уже и на панельку мона вытащить).А пиво в Германии ведь неплохое, да ?

Изменено 30 мая 2006 пользователем MArtmath

[Eugen_ 0]

Ок, макрос я скачал, а запустить его как? Я имею в виду UserForm1? И потом он мне все время выдает ошибку если я стартую Module1. Короче пока я не запустил эту штуку, хотя идея конечно хорошая. Help me please.

[MArtmath 0]

Че пишет? Нажми debug - и посмотри какая строчка выделилась....Язык...немецкий?(Попробуй запустить с английским...)-Правильно - module1 - у меня на панели вытащен....КАРДИНАЛЬНОЕ РЕШЕНИЕ - ВО ВСЕХ ПРОЦЕДУРАХ ГДЕ БУДЕТ ВЫСКАКИВАТЬ СВЕРХУ ПИШИ on error resume next -глючит он не на переименовании(скорее всего)на других местах кои для данной задачи не нужны...

Изменено 9 июня 2006 пользователем MArtmath

[Eugen_ 0]

Я делаю так - Alt-F8 (путь уже задан), появляются 4 модуля. Дальше я делаю следующее (кстати поправьте меня если я не правильно делаю): выбираю модуль 1 и нажимаю Edit. Потом двойной щелчек на UserForm1 и затем вверху Run со стрелочкой. Потом измеяю имена и нажимаю на Запуск. Выдает он следующее: Compile error: Can't find project or library.

P.S. Language english

[MArtmath 0]

Debug нажми после этого - скажи в каком модуле (поднимайся по тексту вверх до первой строчки public или private sub..) и какая строчка выделена.Запуск твоим образом -хм...лучше...на module1 выбирай catmain но пойдет и так...

p.s.Запуск на главной СБ - начинает с верха сборки...Попробуй на другой машине/катьке/windows

Изменено 9 июня 2006 пользователем MArtmath

[Eugen_ 0]

Ок, я нажал Alt-F8, выбрал Module1, Run и увидел следующую гадость

[MArtmath 0]

Релиз...? У меня v14sp7

..на module1 выбирай catmain...Или...

tools/macro/marcos/macro libraries/add existing library -выбираешь этот CATvba файл.

На панели cusomize/закладка commands/macros на module1 - выбираешь иконку и подсвечиваемое название Затем его просто мышью перетаскиваешь (на нем зажата левая кнопка) на панель куда надо(естественно нет lock position of toolbars...)

Бывала такая весчь - но после перезапуска обычно лечилось...

Попробуй tools/macro/visual basic editor а не edit -когда стоишь на module1 он дает список процедур - выбери catmain

Изменено 13 июня 2006 пользователем MArtmath

[MArtmath 0]

файлы ниже....

Изменено 22 августа 2006 пользователем MArtmath

[Eugen_ 0]

Novyj Makros?

[MArtmath 0]

Измененый старый... Добавлена И для переименования , кой че еще по мелочи

Изменено 22 августа 2006 пользователем MArtmath

[MArtmath 0]

[MArtmath 0]

Качать все три штуки....

Изменено 22 августа 2006 пользователем MArtmath