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

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

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




  • Сообщения

    • maxx2000
      @fenics555, я никогда не задавался таким вопросом, а можно ли отключить авторегенрацию компонентов или заморозить? Если прям опции нет, может через Тулкит или Апи?
    • fenics555
      штифты разрезные- понятно, что примонтаже изменяют размер по отверстию.  Резиновое кольцо уплотнительное- оно меняет не только диаметр наружный и внутренний, но и толщину. именно долго открываются сборки, содержащие эти изделия.  можно конечно и без нее обходиться, но мы уже привыкли. Только грузятся сборки очень долго, но это врятли из-за гибкости.
    • Viktor2004
    • UkulyAlex
      Добрый день. Работаю в t-flex 16. Имеется приспособление в котором более 150 позиций деталей, спецификация сделана по структуре изделия. Возникла необходимость изменения конструкции, некоторые детали из середины списка пришлось удалить. После обновления отчёта позиции сдвигаются, как сделать чтобы оставались на месте, т.е. был пропуск позиций в середине раздела "Детали"? 
    • статист
      Спасибо за цитату, полезная для меня   Я знал до этого способ использовать атрибуты LATT для задания направления, но они применялись только к построенным линиям. Если например рассматривать созданный элемент E, 1, 2, где для задания применяются только два узла, то тут уже никак не поменяешь положение третьего узла, так как его нет. Нужно тогда создавать отдельно направляющий узел  и задавать его через EMODIF,EID, 3, NID.   Но получается без создания узла, задать направление нельзя. В настране по крайней мере так можно. А в ансисе нужно плодить лишние узлы. Грустно)
    • FROST_R6
      Есть монорельса размером 12м. Хочу проверить перемещение при нагрузке на середину в 2 тонны. Саму монорельсу фиксировать не нужно, поэтому я поставил ее на 2 призмы и зафиксировал их. Расчет не получается провести - сначала программа пишет, что "деформация в данном исследовании слишком значительная и нереалистичная, хотите остановить программу и перезапустить исследование с меньшими нагрузками или с более жесткой моделью?". Я выбираю "нет". После долгого процесса расчета появляется сообщение о том, что "Состояние равновесия не было достигнута" и "Анализ больших смещений был остановлен до сохранения результата", появляется надпись о сбое расчета. 
    • maxx2000
      подгружаются при повторном открытии сборки или при первой вставке? Ну и гибкость сначала вызвала вопрос, но я не заметил существенной задержки при выборе способа вставки с ней или без неё.
    • Ветерок
      Я не понял зачем в этих деталях задана гибкость. При том, что новые значения размеров определяются не измерением, а вводом вручную.
    • BOJIOD9I
      Добрый день! Подскажите куда внести изменения на стойке fanuc 0i, чтобы когда вводишь коррекцию в графу износа она не отображалась на координатах. Пример: Резец точит размер 100 мм, по факту получается 101мм. В графе износ вносишь -1.0 мм. В итоге по координатам будет показано что резец точит 99мм, а по факту станет 100мм как нужно было.
    • ДОБРЯК
      Это есть в документации. Может быть эта информация будет полезна не только вам. https://www.mm.bme.hu/~gyebro/files/ans_help_v182/ans_elem/Hlp_E_BEAM188.html В этом разделе подробно написано Очень подробное описание этого элемента. Это элемент Тимошенко. Это надо учитывать используя этот элемент в расчетах. Остается только один вопрос зачем менять номер узла, если сразу можно задать нужный номер и менять его координаты?  
×
×
  • Создать...