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

Сделай свою работу в 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 пользователей

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




  • Сообщения

    • ANT0N1DZE
      Это не поможет ответить на этот вопрос конкретными числами. Судя по всему, там металлические частички внутри материала. Подобные эластомеры существуют и применяются. 
    • gudstartup
      как перевести шпиндель снова первоначальный режим управления скоростью когда ему пофиг число импульсов на оборот? резьбу пока резать не будут а в подпрограмму смены можно что нить добавить или в реализацию m19  чтобы чпу из режима контроля позиционного кодера вышло?
    • gudstartup
    • mactepnew
      Вот я тоже так думал, пока не столкнулся с обратным) Как еще столкнусь, пришлю скриншот. Хаос еще в том, что порядок в дереве построения весьма условный. операция, которая стоит перед групой, имеет бОльший timestamp(пардон, не знаю как это в переводе), чем эта группа, и выполняется позже. При этом все операции в группе имеют timestamp на пару сотен меньше и выполняются раньше, чем две группы, стоящие перед ней. Логика?  Если в эскизе все элементы определены, то можно поставить еще один размер (хочешь переопределить эскиз - да пожалста!), изменить его - и NX самостоятельно выберет, какой размер или ограничение отпустить и весь эскиз летит к чертям. Это ли не хаос?   Назовете хоть один CAD, которым можно пользоваться так? Любой из встреченных мной имеет много неочевидных нюансов, которые конечно не проявляются при выполнении университетского или базового курса. В Creo я на протяжении 5 лет находил всё новые фишки, которые не прописаны в документации. Огромная благодарность Ruslan за пояснения тонкостей. Даже Компас и Solidworks, которые считаются самыми дружественными, оказалось непросто обуздать, когда проходил собеседования и делал тестовые. А ведь университетский курс знал на отлично!   Возвращаясь к NX - вот сегодняшний пример. Утром деталь была оранжевая, единая. Изменил пару уклонов и толщин, стала желтая с элементами оранжевого и частично твердотельной, частично листовой. Я даже не знаю, как сформулировать вопрос в поддержку. 
    • Mikhail_Podgornyj
      Добрый день, кто может поделиться SKF Bearing V1.6 (ANSYS App)? Заранее благодарен!
    • kkk
      Короче, как сделать автоматом не нашел. Раскрасил нужные грани нужными цветами. Затем на вкладке с цветом модели можно выбирать нужный цвет, тогда в модели выбираются грани, покрашенные этим цветом. Можно еще сохранить выбор этих граней, но смысла не вижу, т.к. все легко выбирается по цвету. Затем либо в инструменте Измерить смотрим площадь и как-то ее используем, либо можно макросом (что выкладывал Kir95 ) внести площадь в свойства (на вкладку Конфигурации). Можно еще внести выбранные грани в датчики, но как использовать их в свойствах не нашел.    Макрос прикрепляю.     Площадь выбранных граней в свойства.swp
    • IgnatvKudrin
      Для нашего производства требуются постоянно инструментальные пружины для штампов. Сейчас заказы обрабатываются довольно долго - до 2-х месяцев. А у нас сроки на штампы 1-2 месяца с испытанием, доработкой и т.п. Хотелось бы найти поставщика, у которого уже есть склад с данными пружинами или кто может доставить за 1 месяц.   Пружины стандартные по ISO, но на всякий случай приложил каталог. Вот список пружин, которые нужны очень срочно:   LR 32 x 44 - 1 шт. LR 25 x 51 - 2 шт. LB 63 x 89 - 7 шт. LB 32 x 102 - 10 шт. LB 32 x 89 - 20 шт. LB 32 x 76 - 12 шт. LB 32 x 51 - 6 шт. LB 25 x 127 - 9 шт.   Готов выслушать все предложения. Возможно даже есть те, кто сможет изготовить подобные пружины с такими же параметрами. 20231101.pdf
    • bubblyk
      Знатоки форума, подскажите, как смоделировать простую (на первый взгляд) задачу термомеханики в упругой постановке.   Есть брусок правильный формы ака кирпич, в котором генерируется НЕРАВНОМЕРНОЕ удельное тепловыделение (HGEN). Задняя и передняя поверхности конвективно охлаждаются с известными (но различными) коэффициентами теплоотдачи и температурами жидкости/газа. Свойства кирпича (теплофизика + механика) принимаются зависящими от температуры. Постановка - стационарная Собственно вопрос : как грамотно смоделировать температурное поле в кирпиче с учетом температурного расширения?   Исходный код приложил.     Надеюсь на коллективный разум и опыт! EPTH2D.mac p.s.   Если есть опыт решения этой задачи в Ansys WB, тоже можно сюда приложить командные вставки.
    • OutXL
      Это было давно использовал NC-Link  и данную инструкцию. The Maho.docx
    • Mikhail_Podgornyj
      Добрый день, кто может поделиться SKF Bearing V1.6 (ANSYS App)? Заранее благодарен!
×
×
  • Создать...