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

[Kelny 1 237]

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"

Изменено 12 октября 2021 пользователем Kelny

[brigval 690]

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

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

 

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

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

 

[Sturmann 30]

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()

[livedten 34]

09.07.2014 в 06:31, fox1001 сказал:

Шаблоны-заготовки для разработки чертежей зубчатых колес.

Зубчатые передачи.zip

Может у кого в загашнике завалялось?

[eest 1]

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

 

Спасибо.

[Kelny 1 237]

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

 

[R2D2_ 71]

19.10.2021 в 20:46, livedten сказал:

Может у кого в загашнике завалялось?

Я не в курсе, что там было, но вот Вам мой вариант.Типовая шестерня.7z

[Kevilandmark 0]

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

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

https://wampi.ru/image/RBt3b9a

https://wampi.ru/image/RBt3Rw4

[GREY19 9]

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

 

Например: 

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

 

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

 

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

[elohim 0]

15.06.2021 в 23:20, Snake 60 сказал:

 

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

 

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

[elohim 0]

22 минуты назад, elohim сказал:

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

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

[Snake 60 684]

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

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

Держи...

OneClickPDF.swp

[Sturmann 30]

01.12.2021 в 18:48, Snake 60 сказал:

Держи...

OneClickPDF.swp 109 \u041a\u0431 · 7 скачиваний

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

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

[Snake 60 684]

14 минут назад, Sturmann сказал:

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

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

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

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

Изменено 2 декабря 2021 пользователем Snake 60

[Sturmann 30]

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

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

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

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

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

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

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

 

Изменено 2 декабря 2021 пользователем Sturmann

[Sturmann 30]

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

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

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

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

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

[none 51]

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

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

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

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

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

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

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

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

 

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

[Sturmann 30]

9 часов назад, none сказал:

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

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

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

[malvi.dp 266]

16 часов назад, Sturmann сказал:

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

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

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

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

 

[Ветерок 2 108]

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

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

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