Jump to content

Сделай свою работу в Solidworks эффективнее


Recommended Posts

 

strModelName = Replace(strModelName, ".SLDPRT", "")
    strModelName = Replace(strModelName, ".sldprt", "")
    strModelName = Replace(strModelName, ".SLDASM", "")
    strModelName = Replace(strModelName, ".sldasm", "")
    strModelNameNoExt = strModelName
    

 

Компактнее записать так

strModelName = Replace$(strModelName, ".sldprt","",,,vbTextCompare)

strModelName = Replace$(strModelName, ".sldasm","",,,vbTextCompare)

Если знаем, что имя содержит расширение, еще компактнее

strModelNameNoExt = Left$(strModelName, InStrRev(strModelName,".") - 1)

  • Чемпион 1
Link to post
Share on other sites


2 часа назад, brigval сказал:

Компактнее записать так

Цитата

 

Dim FSO

Set FSO=CreateObject("Scripting.FileSystemObject")

FSO.GetBaseName(ModelDoc2.GetPathName) — Вернёт имя файла без расширения

FSO.GetExtensionName(ПутькФайлу) — Вернёт расширение файла

FSO.GetFileName(ПутьКФайлу) — Вернёт имя файла с расширением

FSO.GetParentFolderName(ПутьКФайлу) — Вернёт каталог, в котором находится файл

FSO.FileExists(ПутьКФайлу) — Проверяет, существует ли файл. Если да, то значение True.

FSO.GetTempName() — Возвращает случайное имя для временного файла

 

 

2 часа назад, brigval сказал:

Если знаем, что имя содержит расширение, еще компактнее

strModelNameNoExt = Left$(strModelName, InStrRev(strModelName,".") - 1)

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

Тогда уж strModelName=UCASE(strModelName) и откидывать окончание например по наличию ".SLD"

Edited by Kelny
  • Нравится 1
  • Чемпион 1
Link to post
Share on other sites
20 часов назад, Kelny сказал:

Если знаем, что имя содержит расширение

 

20 часов назад, Kelny сказал:

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

 

:smile:

Link to post
Share on other sites
12.10.2021 в 12:39, brigval сказал:

 


strModelName = Replace(strModelName, ".SLDPRT", "")
    strModelName = Replace(strModelName, ".sldprt", "")
    strModelName = Replace(strModelName, ".SLDASM", "")
    strModelName = Replace(strModelName, ".sldasm", "")
    strModelNameNoExt = strModelName
    

 

Компактнее записать так

strModelName = Replace$(strModelName, ".sldprt","",,,vbTextCompare)

strModelName = Replace$(strModelName, ".sldasm","",,,vbTextCompare)

Если знаем, что имя содержит расширение, еще компактнее

strModelNameNoExt = Left$(strModelName, InStrRev(strModelName,".") - 1)

Здравствуйте.

А разве в vba нет функции которая возвращает имя файла без расширения?

Что то вроде:       IO.Path.GetFileNameWithoutExtension()

Link to post
Share on other sites

Здравствуйте
 
в чем может быть проблема, макрос ТТ?
на 1 пк все ок на втором ошибка.


image.png

 

Спасибо.

Link to post
Share on other sites
6 минут назад, eest сказал:

в чем может быть проблема, макрос ТТ?
на 1 пк все ок на втором ошибка.

Цитата

...

Данная ошибка возникает, когда модели COM (Component Object Model) не удается создать необходимый объект Automation, и поэтому объект Automation оказывается недоступен для Visual Basic. Эта ошибка возникает не на всех компьютерах.

...

https://support.microsoft.com/ru-ru/topic/возникновение-ошибки-выполнения-429-при-автоматизации-приложений-microsoft-office-b6070e15-ea78-4349-2751-72bdb5f186f7

 

Link to post
Share on other sites
Kevilandmark

Подскажите пожалуйста добрые люди, есть ли возможность внести изменения в макрос Mprop:RBt3b9a

           - Добавить галочку во втором скрине такую же как и в первом. (выбор материала из выпадающего окна)

https://wampi.ru/image/RBt3b9a

https://wampi.ru/image/RBt3Rw4

Link to post
Share on other sites
  • 4 weeks later...

Как с помощью макроса создать горячую клавишу команды которой нет в стандартных настройках горячих клавиш?

 

Например: 

Команды в плавающей панели инструментов "Открыть деталь" или "Открыть деталь в расположении" или "Изменить прозрачность"

v2va423ZEg0.jpg?size=501x363&quality=95&

 

"Галочка" (есть возможность добавить в жесты, но в горячих клавишах нет)

NtScgGBsHVM.jpg?size=314x327&quality=95&

 

Давно ищу как это сделать! Никто не знает! Очень надо! Помогите пожалуйста!

  • Нравится 1
Link to post
Share on other sites
15.06.2021 в 23:20, Snake 60 сказал:

 


' Последние изменения :: (26.04.2020) ::
''' в версии 1.0.3 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' - Убрал дублирование открытых папок при каждом сохранении

 

Подскажите, пожалуйста, не работает эта функция. Постоянно открывается папка в которую сохраняется ПДФ. Как сделать так что бы эта папка с сохраненным файлом не открывалась вообще?

Link to post
Share on other sites
22 минуты назад, elohim сказал:

Подскажите, пожалуйста, не работает эта функция. Постоянно открывается папка в которую сохраняется ПДФ. Как сделать так что бы эта папка с сохраненным файлом не открывалась вообще?

Простите, я о макросе OneClickPDF

Link to post
Share on other sites
01.12.2021 в 18:48, Snake 60 сказал:

Интересное решение. Один лист- одни документ PDF.

А если таких листов в чертеже будет 100 - как потом с этими файлами разобраться?

Link to post
Share on other sites
14 минут назад, Sturmann сказал:

А если таких листов в чертеже будет 100 - как потом с этими файлами разобраться?

Так а в чем проблема? Называйте листы внятным именем в самом Солиде.

Скрытый текст

изображение.png

У меня в практике не было изделия со 100, максимум 10 (имею ввиду для одной детали/сборочной единицы/сборки), а так обычно 3 листа.

Edited by Snake 60
Link to post
Share on other sites

Все добрый вечер.

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

Программа раскладки для ЧПУ из солида в автокад написана и отлажена.

Основной функционал:

  1. раскладывает все плитные., листовые  детали (которые идут на чпу- кроме хлыстовых)
  2. сортирует по материалам и участкам
  3. умеет читать конфигурации и раскладывает только нужные конфигурации
  4. проверяет детали из листового металла

Пользователю нужно нажать только одну кнопку- дальше программа все сделает сама.

Пример- во вложении.

 

2021-07-06_15-29-30 (2).png

Edited by Sturmann
Link to post
Share on other sites
20 минут назад, Snake 60 сказал:

Так а в чем проблема? Называйте листы внятным именем в самом Солиде.

  Показать содержимое

изображение.png

У меня в практике не было изделия со 100, максимум 10 (имею ввиду для одной детали/сборочной единицы/сборки), а так обычно 3 листа.

Ну вот и получиться 10 стоек, 5 перемычек и 3 царги.

Link to post
Share on other sites
4 часа назад, Sturmann сказал:

Все добрый вечер.

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

Программа раскладки для ЧПУ из солида в автокад написана и отлажена.

Основной функционал:

  1. раскладывает все плитные., листовые  детали (которые идут на чпу- кроме хлыстовых)
  2. сортирует по материалам и участкам
  3. умеет читать конфигурации и раскладывает только нужные конфигурации
  4. проверяет детали из листового металла

Пользователю нужно нажать только одну кнопку- дальше программа все сделает сама.

Пример- во вложении.

 

2021-07-06_15-29-30 (2).png

Гидэ Мопасан?

Link to post
Share on other sites
16 часов назад, Sturmann сказал:

Программа раскладки для ЧПУ из солида в автокад написана и отлажена.

Из картинки трудно понять какие именно задачи решает ваша программа.

Она работает в сборочном чертеже или в модели сборки?

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

 

Link to post
Share on other sites
Ветерок
28 минут назад, malvi.dp сказал:

Из картинки трудно понять какие именно задачи решает ваша программа.

Тут важны не задачи, а сам результат :) Ну разве это не красиво? Можно даже сказать "прекрасно". Какая поистине сказочная раскладка! Просто песня! Мечта каждого технолога.

  • Нравится 1
  • Хаха 1
Link to post
Share on other sites
9 минут назад, Ветерок сказал:

Тут важны не задачи, а сам результат :) Ну разве это не красиво? Можно даже сказать "прекрасно". Какая поистине сказочная раскладка! Просто песня! Мечта каждого технолога.

Согласен гавно редкостное  шедевр, этим уродам  технологам и так сойдет

Link to post
Share on other sites

 

1 час назад, malvi.dp сказал:

Из картинки трудно понять какие именно задачи решает ваша программа.

Она работает в сборочном чертеже или в модели сборки?

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

 

решает задачу сортировки всех деталей сборки по материалам и участкам 

она работает со сборкой изделия

прикрепить пока не могу, пока еще в разработке.

Link to post
Share on other sites
3 часа назад, Sturmann сказал:

Языками не владею.

Можно на русском?

Просто подумал, что макрос должен был быть прикреплен к сообщению, чтобы можно было пощупать.

Link to post
Share on other sites
19 часов назад, none сказал:

Просто подумал, что макрос должен был быть прикреплен к сообщению, чтобы можно было пощупать.

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

 

21 час назад, Ветерок сказал:

Тут важны не задачи, а сам результат :) Ну разве это не красиво? Можно даже сказать "прекрасно". Какая поистине сказочная раскладка! Просто песня! Мечта каждого технолога.

Ну я понимаю сарказм особенно от того, кто так называемый "гуру". 

Моя программа объективно лучше и функциональнее тех которые тут представлены. Функционал, человеконезависимость, интерфейс - во всем впереди. Конечно оценить вы пока не можете

20 часов назад, vasyam сказал:

Согласен гавно редкостное  шедевр, этим уродам  технологам и так сойдет

Не совсем понял вашу цитату. Вы не поняли как работает решение и называете его гавном редкостным?

Поясните пожалуйста свою позицию поподробнее.

 

 

Edited by Sturmann
Link to post
Share on other sites
04.12.2021 в 13:39, Sturmann сказал:

Не совсем понял вашу цитату. Вы не поняли как работает решение и называете его гавном редкостным?

Потому что сама идея готовить раскладку на ЧПУ в солиде так себе. Хотя если вы и управляющую программу для ЧПУ из своего приложения писать будете тогда да, снимаю шляпу. Правда и в этом случае лучше без SW обойтись, а сделать отдельное приложение.

03.12.2021 в 17:49, Sturmann сказал:

решает задачу сортировки всех деталей сборки по материалам и участкам 

она работает со сборкой изделия

А вот это проще и эффективней делать в том же экселе.

Link to post
Share on other sites
3 часа назад, vasyam сказал:

Потому что сама идея готовить раскладку на ЧПУ в солиде так себе. Хотя если вы и управляющую программу для ЧПУ из своего приложения писать будете тогда да, снимаю шляпу. Правда и в этом случае лучше без SW обойтись, а сделать отдельное приложение.

А вот это проще и эффективней делать в том же экселе.

Ну я показал только часть работы, вторая часть- в автокаде, а уж фрезеровщик в арткаме без меня справиться.

Про ексель не понял- как мне таблица поможет в раскладке деталей (т.е. чертежных видов)?

Link to post
Share on other sites
  • 5 weeks later...
Савенков Денис Петрович

Коллеги прошу совета.

Фирма покупает лазерный труборез, необходимо переделать сборки рам изделий из квадратной трубы (15х15х1,5 20х20х1,5 и т.п.) со сварного варианта, на "гнутый" есть ли в SW встроенный функционал для этого (трубы сделаны как "сварные детали").  

Link to post
Share on other sites
Snake 60
5 часов назад, Савенков Денис Петрович сказал:

есть ли в SW встроенный функционал для этого

Встроенного функционала нет, всё придется делать ручками. Возможно поможет вот эта тема (я там выкладывал три примера):

 

Link to post
Share on other sites
Maik812
02.12.2021 в 21:53, Sturmann сказал:

Программа раскладки для ЧПУ из солида в автокад написана и отлажена.

Вы ей поделитесь ? Или она платная у Вас?

 

02.12.2021 в 21:40, Sturmann сказал:

А если таких листов в чертеже будет 100 - как потом с этими файлами разобраться?

 

Элементарно pdf разобраться даже не открывая их.

 

02.12.2021 в 21:53, Sturmann сказал:
  • раскладывает все плитные., листовые  детали (которые идут на чпу- кроме хлыстовых)
  • сортирует по материалам и участкам
  • умеет читать конфигурации и раскладывает только нужные конфигурации
  • проверяет детали из листового металла

Если прога делает все это то крутяк снимаю шляпу.

а пока подобное или принципи подобные вещи по сортировки тех или иных деталей..

mPDM + макрос Geometrika

данные макросом, сортировка и фильтрация ТС. Можно расширить данные по листовому металлу.

 

 

Link to post
Share on other sites
  • 2 weeks later...
livedten

Такой вопрос, в общем имеется вот такой файл, как пример МС-01.00.001 - Пластина.SLDPRT

Можно ли сделать макрос при нажатий на который, в параметры конфигурации вносилось.

 

Обозначение МС-01.00.001

Наименование Пластина

 

и может есть где уроки по макросам

Link to post
Share on other sites
Sturmann
4 часа назад, livedten сказал:

Такой вопрос, в общем имеется вот такой файл, как пример МС-01.00.001 - Пластина.SLDPRT

Можно ли сделать макрос при нажатий на который, в параметры конфигурации вносилось.

 

Обозначение МС-01.00.001

Наименование Пластина

 

и может есть где уроки по макросам

Здравствуйте

Конечно все можно сделать. Только зачем?

Link to post
Share on other sites
livedten
14 минут назад, Sturmann сказал:

Здравствуйте

Конечно все можно сделать. Только зачем?

Да вручную как то надоело вводить постоянно.

Link to post
Share on other sites
Snake 60
5 часов назад, livedten сказал:

Такой вопрос, в общем имеется вот такой файл, как пример МС-01.00.001 - Пластина.SLDPRT

Можно ли сделать макрос при нажатий на который, в параметры конфигурации вносилось.

 

Обозначение МС-01.00.001

Наименование Пластина

 

и может есть где уроки по макросам

Скоро доделаю. Сейчас небольшая нехватка времени в связи со сменой рабочего места. Помимо этого макрос будет полезен для занесения других свойств в детали/сборки. Выглядит как-то вот так:

изображение.png

  • Нравится 1
  • Чемпион 2
Link to post
Share on other sites
livedten
26 минут назад, Snake 60 сказал:

Скоро доделаю. Сейчас небольшая нехватка времени в связи со сменой рабочего места. Помимо этого макрос будет полезен для занесения других свойств в детали/сборки. Выглядит как-то вот так:

изображение.png

мое почтение, супер штучка будет... Пользуюсь Вашими макросами по разверткам и pdf. Особенно по разверткам время конкретно экономит... Укажи где нибудь реквизит, на пивас, какой подкину

Edited by livedten
  • Нравится 1
Link to post
Share on other sites
Sturmann
05.01.2022 в 00:34, Maik812 сказал:

Вы ей поделитесь ? Или она платная у Вас?

 

 

Элементарно pdf разобраться даже не открывая их.

 

Если прога делает все это то крутяк снимаю шляпу.

а пока подобное или принципи подобные вещи по сортировки тех или иных деталей..

mPDM + макрос Geometrika

данные макросом, сортировка и фильтрация ТС. Можно расширить данные по листовому металлу.

 

 

Да, спасибо за оценку.

Это еще не весь функционал программы.

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

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

Скоро доделаю. Сейчас небольшая нехватка времени в связи со сменой рабочего места. Помимо этого макрос будет полезен для занесения других свойств в детали/сборки. Выглядит как-то вот так:

изображение.png

Здравствуйте. Это все руками нужно заносить в эти поля? 

А можно чтобы они сами заносились? Без участия пользователя?

Ну типа открыл сборку, нажал кнопку ..... все готово.

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

Да вручную как то надоело вводить постоянно.

На счет "пластин " в имени файла вообще не понимаю. 

А если пластина превратиться в гнутый уголок или швеллер?

Менять имя файла?

Link to post
Share on other sites
Snake 60
1 час назад, Sturmann сказал:

Здравствуйте. Это все руками нужно заносить в эти поля? 

А можно чтобы они сами заносились? Без участия пользователя?

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

Единственный нюанс, если поле Материал пустое или отсутствует такое свойство, то это свойство создается и туда записывается материал назначенный в модели.

Если поле Материал имеет хоть какое-то значение (допустим, поработал макрос ГЕОС или просто ручками свойство забито), то мой макрос это свойство не трогает.

Сделаю, чтобы раздел ещё заполнялся автоматом. Игнорируются детали Toolbox-a и погашенные детали.

Нижние 5 свойств пользователь вводит свои как имя свойства, так и значения. Можно вводить стандартные свойства типа Объем "SW-Volume" или Плотность "SW-Density" и т.д. Макрос запомнит значения в этих полях и при следующем запуске их уже ручками писать не надо.

Макрос задумывался в первую очередь для пакетной обработки деталей в сборке, что, в принципе и реализовано. Чекбоксами можно выбрать, что макрос будет обрабатывать в пакетном режиме.

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

  • Нравится 1
Link to post
Share on other sites
Maik812
2 часа назад, Sturmann сказал:

Ну типа открыл сборку, нажал кнопку ..... все готово.

Есть вариант шаблонов различных, есть вариант чтения инфы из файла и потом на всех остальные переносить нажатием кнопочки, но SW 2014  и ниже..

Link to post
Share on other sites
18.01.2022 в 01:17, Maik812 сказал:

Есть вариант шаблонов различных, есть вариант чтения инфы из файла и потом на всех остальные переносить нажатием кнопочки, но SW 2014  и ниже..

Шаблоны и пр. Мне известно.

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

Link to post
Share on other sites
47 минут назад, Sturmann сказал:

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

Что она понимать должна подробней!?

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    No registered users viewing this page.



  • Сообщения

    • SWX
      "врачам известно, что ПЦР - метод скрининговый, с 80-85% вероятности" Alexandra Novoselova April 24, 2020  
    • KorovnikovAV
      Абакус для аэродинамики? Ты уже хоть что-то посчитай не? Хотя бы в двумерной постановке на нерегулярной сетке.    У них сложные отношения с абакусом, хоть это и не ГГД, до этого сложные отношения с FloEFD. DS странные товарищи.
    • Basstudio
      Привет всем. Кто могёт расчитать прочность бетонного столба? Сколько арматур и какое сечение. Если эт возможно конечно. Есть аналог из железа, (С) профиль.. Вот надо такой ж крепости, но бетонный  Силы на столб действуют на изгиб и  скручивание Степ профиля в файле  kuk.STEP
    • co11ins
      Это нужно у продвинутых спросить.  у них самая правильная инфа.  но скорее всего, опять дураками назовут 
    • Sergei
      И тут пришёл демиург.......
    • Максим853
      Здравствуйте, не могу установить License server nx4. Выдает что не может запустить службу. Я зашел в службы , пытался нажать запустить, но он выдал ошибку. Может кто сталкивался ?    
    • Krusty
      у дассо нет вменяемых решателей ведь, или не? виртуальная геометрия и виртуальная труба в домашнем писюке? да лан
    • BSV1
      Как же тогда по на его основе определяют, заражён человек в данный момент или нет?  Кстати, насчет "инструмент статистики". Инструмент он, несомненно, но отнюдь не статистики. 
    • VODKABALALAIKALAPTI
      Добрый вечер, я методом тыка так сказать разобрался с ним :) 
    • fleshget
      Здравствуйте!  Есть два вектора, один просто круг, а другой - шкив зубчатый. Вывод в дугах. При обработке круга (6.tap) - УП корректная, G01 ставится перед каждым опусканием фрезы на новый слой. Все отлично. При обработке зубчатого шкива (3мм.tap) - происходит "некорректное" опускание, в начале строки PowerMill забывает поставить G01 !!! И у меня эта строка проходит на максимальной моей подаче вниз. Для обоих УП использовалась стратегия: "По профилю кривой" Подскажите пожалуйста как заставить PowerMill ставить в начале строки G01 при обработке зубчатого шкив при опускания фрезы? Я на всякий случай и проект прикрепил (2017).   PS: при первом опускании на Z0 - поставило G01 3мм шкив.rar
×
×
  • Create New...