Перейти к публикации

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


Рекомендованные сообщения

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"

Изменено пользователем Kelny
Ссылка на сообщение
Поделиться на других сайтах


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

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

 

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

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

 

:smile:

Ссылка на сообщение
Поделиться на других сайтах
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()

Ссылка на сообщение
Поделиться на других сайтах
09.07.2014 в 06:31, fox1001 сказал:

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

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

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

Ссылка на сообщение
Поделиться на других сайтах

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


image.png

 

Спасибо.

Ссылка на сообщение
Поделиться на других сайтах
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

 

Ссылка на сообщение
Поделиться на других сайтах
19.10.2021 в 20:46, livedten сказал:

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

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

Ссылка на сообщение
Поделиться на других сайтах

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

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

https://wampi.ru/image/RBt3b9a

https://wampi.ru/image/RBt3Rw4

Ссылка на сообщение
Поделиться на других сайтах
  • 4 недели спустя...

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

 

Например: 

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

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

 

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

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

 

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

Ссылка на сообщение
Поделиться на других сайтах
15.06.2021 в 23:20, Snake 60 сказал:

 


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

 

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

Ссылка на сообщение
Поделиться на других сайтах
22 минуты назад, elohim сказал:

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

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

Ссылка на сообщение
Поделиться на других сайтах
1 час назад, elohim сказал:

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

Держи...

OneClickPDF.swp

Ссылка на сообщение
Поделиться на других сайтах
01.12.2021 в 18:48, Snake 60 сказал:

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

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

Ссылка на сообщение
Поделиться на других сайтах
14 минут назад, Sturmann сказал:

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

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

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

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

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

Изменено пользователем Snake 60
Ссылка на сообщение
Поделиться на других сайтах

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

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

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

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

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

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

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

 

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

Изменено пользователем Sturmann
Ссылка на сообщение
Поделиться на других сайтах
20 минут назад, Snake 60 сказал:

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

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

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

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

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

Ссылка на сообщение
Поделиться на других сайтах
4 часа назад, Sturmann сказал:

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

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

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

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

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

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

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

 

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

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

Ссылка на сообщение
Поделиться на других сайтах
9 часов назад, none сказал:

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

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

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

Ссылка на сообщение
Поделиться на других сайтах
16 часов назад, Sturmann сказал:

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

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

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

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

 

Ссылка на сообщение
Поделиться на других сайтах
28 минут назад, malvi.dp сказал:

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

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

Ссылка на сообщение
Поделиться на других сайтах

Присоединяйтесь к обсуждению

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

Гость
Ответить в тему...

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

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу.




×
×
  • Создать...