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

Сделай свою работу в 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 эмодзи.

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

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

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

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

    • dns67
    • OkElias



  • Сообщения

    • Guhl
      Есть вот такие штуки. Если не лень, то можете на оптопарах hcpl спаять самому На плк простая программа с высокоскоростным счетчиком  Как вариант, по прерываню от нуль метки переписывать значенин счетчика в регистр     А фанук сам не умеет разве в диагностике показывать количество импульсов, которые насчитал?
    • gudstartup
      это как например у датчика уровни ttl какой плк работает с ttl уровнями а если уж проверять то нужен тестер сигналов например lir 590 но надо жгут изготавливать и разъем который на аi приводах стоит для энкодера проще всего проверить заменой датчика только вот со сроками покупки беда  хотя может шестерня виновата??
    • scrimline
      Сомневаюсь что попало что-то, скорее всего оператор который работал до меня этой рукой не пользовался да и за эмульсией не следил. Думаю скорее закоксовалось, поскольку после команды рука стояла на месте секунды 2-3 и начала опускаться с рывком. По поводу ладдера, постараюсь скинуть, но на нашем предприятии проблемы и с флешками и с общей сетью, да и ПК на рабочем месте нет. 
    • Bot
      Команда CSD пообщалась с представителями компании «КС-ПРО» и выяснила, как происходило внедрение G-Station, сколько времени занял процесс перехода на новую платформу, узнала об организации совместной работы и о функционале платформы. Основное направление компании «КС-ПРО» — оказание комплекса услуг технического заказчика, в том числе и для крупных офисных девелоперов. Внедрение G-Station в «КС-ПРО» проходило в ноябре 2022 года. G-Station — это всего лишь один из модулей комплексной платформы G-Tech Suite. Специалисты компании отмечают, что G-Station действительно стала хорошей альтернативой BIM 360. Специалисты «КС-ПРО» получили доступ к полноценной единой информационной среде с облачным хранилищем файлов и моделей, а также такими возможностями, как: Управление проектами, пользователями и подрядчиками; Создание чек-листов; Создание шаблонов чек-листов с процессами согласования; Передача документации на строительную площадку; Просмотр 3D- и 2D моделей [...] View the full article
    • Bot
      АСКОН, российский разработчик инженерного программного обеспечения и ИТ-интегратор, подвел итоги 2023 года. Выручка компании выросла на 47% и достигла 5,6 млрд рублей, штат сотрудников увеличился до 1250 человек. Клиентская база пополнилась тысячью предприятий, и сегодня с решениями АСКОН работают почти 16 000 заказчиков из всех отраслей промышленности и строительства. На динамику бизнеса положительно повлияли рост промышленного производства, сопровождающийся инвестициями в цифровизацию, крупные инфраструктурные проекты и курс страны на технологический суверенитет. Лидерские позиции компании в разработке и интеграции подтверждены профессиональными рейтингами. АСКОН, единственный из разработчиков инженерного ПО, вошел в ТОП-100 российских ИТ-компаний в рейтинге CNews; второй год подряд — в десятку крупнейших ИТ-поставщиков в сфере промышленности и строительства по данным TAdviser; впервые назван в тройке ведущих proptech-компаний как [...] View the full article
    • senat93
      @tribogatirya FORD 800 mm есть пост с кинематикой. По стойкам Siemens 808d , 828 там надо смотреть что за станок,какие оси и т.д. Если что,пиши lynxsenat@gmail.com, по цене договоримся. 
    • esergey
      это всего лишь видео - я не шарю в этом ...  
    • lem_on
      ну с дуру известно что сломать можно.
    • Viktor2004
      руку привязки так сломать легко
    • lem_on
      По моему вполне логично если станок вывалится в ошибку если рука не доехала до места. У меня так же если кулачки или деталь на пути, просто пихаеш ее до места и станок опять активен. Но нынешние пановья даже не могут написать модель станка.
×
×
  • Создать...