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

Макросы для SolidWorks


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

Здравствуйте.

Проектирую мебель, требуется оптимизировать процессы, ищу человека для написания макросов к солидворкс.

Возможна предоплата(при наличии рейтингового аккуанта).

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


Что такое турта?

Солид довольно простая и определенная программа. Позволяет писать не только макросы, но и строить параметрические модели и сборки.

Приехал из отпуска. Могу поотвечать на ваопросы

если интересно. Когда-то пробовали рисовать в солиде корпусную мебель (шкафы, столы). Получалось неплохо, но потом заказчики отказались от наших услуг, поняли, что и сами справятся. Что у них получилось, не знаю...

Не знаю, что конкретно Вам необходимо сделать с макросом. По-моему, достаточно параметрической модели. Но, возможно... Почему - нет? Может быть...

Ссылка на сообщение
Поделиться на других сайтах
  • 3 года спустя...
18.08.2019 в 19:24, Алексей-Т сказал:

Что такое турта?

Солид довольно простая и определенная программа. Позволяет писать не только макросы, но и строить параметрические модели и сборки.

Приехал из отпуска. Могу поотвечать на ваопросы

если интересно. Когда-то пробовали рисовать в солиде корпусную мебель (шкафы, столы). Получалось неплохо, но потом заказчики отказались от наших услуг, поняли, что и сами справятся. Что у них получилось, не знаю...

Не знаю, что конкретно Вам необходимо сделать с макросом. По-моему, достаточно параметрической модели. Но, возможно... Почему - нет? Может быть...

Здравствуйте. Хотелось бы узнать получилось у вас что-то или нет? 

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

Если вы не делаете резнину в стиле рококо, то выбор Solidworks как инструмента проектирования довольно таки спорный.

Ссылка на сообщение
Поделиться на других сайтах
  • 3 месяца спустя...
27.07.2019 в 21:34, AndreyFrantsevich сказал:

Здравствуйте.

Проектирую мебель, требуется оптимизировать процессы, ищу человека для написания макросов к солидворкс.

Возможна предоплата(при наличии рейтингового аккуанта).

Здравствуйте нашли исполнителя? 

Я как раз занимаюсь разработкой с мебельными проектами

Ссылка на сообщение
Поделиться на других сайтах
  • 5 месяцев спустя...
28.07.2023 в 08:34, Sturmann сказал:

Здравствуйте нашли исполнителя? 

Я как раз занимаюсь разработкой с мебельными проектами

Добрый день. Ищу того, кто мне поможет в решении некоторых задач в солиде. Написал в личку.

 

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

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

У меня довольно много накопилось макросов, которые работаю только с открытой детально, но не в сборке. И каждый раз подетально открывать их, чтобы применить макрос, слишком много времени занимает и что-то пропустить можно.

 

Хотел бы вставить "код от детали» в некий универсальный код, чтобы он применялся ко всем  ВЫБРАННЫМ деталям в сборке.


Например, изменить текстуру выбранных граней, записать значения в Property Custom  каждой детали, изменить размер и т. д.

Все эти макросы есть, но работают они только тогда, когда я открываю деталь отдельно.

 

Помогите пожалуйста с кодом в таким виде:

Новый код (начало)
.......
Здесь мой код на деталь
........
новый код (конец)

 

Есть какие-то наработки, но безуспешные. Вот одна из них -  изменить конкретный(по имени)  размер выбранных деталей, но все заканчивается ошибкой. 

Option Explicit
Dim swApp As SldWorks.SldWorks
 Dim swModel As SldWorks.ModelDoc2
 Dim swSelMgr As SldWorks.SelectionMgr
 Dim swComp As SldWorks.Component2
 Dim Count As Integer
 Dim i As Integer
 Dim myDim As SldWorks.Dimension
Sub main()
 

 Set swApp = Application.SldWorks
 Set swModel = swApp.ActiveDoc
 Set swSelMgr = swModel.SelectionManager

 Count = swSelMgr.GetSelectedObjectCount2(0)
 If Count = 0 Then MsgBox "No Components selected": Exit Sub

 
 For i = 1 To Count
   Set swComp = swSelMgr.GetSelectedObjectsComponent4(i, 0)

           'Code of part
            Set myDim = swModel.Parameter("D1@Extrude1") 'name dimension
           myDim.SystemValue = 25 / 1000
 

 Next

End Sub

Ссылка на сообщение
Поделиться на других сайтах
  • 2 недели спустя...
11.08.2019 в 04:58, Алексей-Т сказал:

@AndreyFrantsevich Есть конкретная задача? Хотел бы попробовать решить. dolmetscher@inbox.ru

 

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

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

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

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

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

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

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

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

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

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

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




  • Сообщения

    • Snake 60
      @eljer0n  Откройте макрос SaveDRW.swp редактором VBA Найдите вот эти строки: Поменяйте выделенную цифру на нужную вам 3 или 4 - это количество символов которое останется от имени конфигурации. PS При сохранении в PDF тоже ругается на неправильное название чертежа, т.к. тоже обрезает название конфигурации до двух знаков, там тоже надо править при желании...
    • eljer0n
      @malvi.dp в общем порядок следующий (на каждое исполнение свой чертеж и позиция в спецификации):   Для исполнения с 2мя знаками. 1. Есть деталь с именем формата ХХ-01.01-01 (последнее -01 это исполнение) 2. В Мпроп детали назначается исполнение из конфигурации (как у вас на картинке). Отображается корректно 3. Создается чертеж по модели, исполнение в основной надписи чертежа детали отображается корректно. 4. Сохраняется через SaveDRW с корректным именем. 5. В спецификации сборки все отображается корректно.     Для исполнения с 3мя знаками. 1. Есть деталь с именем формата ХХ-01.01-011 (последнее -011 это исполнение) 2. В Мпроп детали назначается исполнение из конфигурации. Отображается корректно 3. Создается чертеж по модели, исполнение в основной надписи чертежа детали отображается корректно. 4. Сохраняется через SaveDRW с некорректным именем, а именно - с обрезанным до двух знаков исполнением (-01). 5. В спецификации сборки шифр отображается (внезапно! может какой глюк был: у солида или у меня ) корректно, как и у вас на рисунке.     Выходит, загвоздка все-таки только в сохранялке чертежа.
    • gudstartup
      да информация о решенной проблеме очень важна так что будем ждать хороших новостей!
    • mrVladimir
      @gudstartup Спасибо Вам за помощь. Теперь дело в приобретении платы. Как что-то получится (сперва приобрести, потом поставить) обязательно отпишусь.
    • gudstartup
      а как вы taxid фирмы нашли?
    • gudstartup
      все что я написал в цитате выше по теме полная фигня в связи с вновь приобретённой информацией. можно менять любые компоненты в пределах серии чпу если только не меняете по или записываете oprminf но  всегда могут быть нюансы  @mrVladimir все должно получиться извините за то что выдал непроверенную информацию за мнение типа знающего эксперта оказывается я 
    • malvi.dp
      Какое у детали имя файла и как формируете Обозначение и Наименование? Вы каждое исполнение сохраняете в новый чертеж? Или это групповой чертеж? Если групповой-то имя конфигурации в нем быть не должно. Стоит ли галочка "Исполнение" "Из конфигурации"? На сколько мне не изменяет память макрос сохраняет файл чертежа с тем же именем что и файл модели в папке модели. В спецификации все правильно отображается, даже если знаков исполнений больше трех  
    • gudstartup
      и главная деталь чтобы на системе была remote option system а именно файл oprminf.000 c сертификатами и были ли проблемы с ними после замены компонентов.
    • boomeeeer
      с него родимого
    • Grundick
×
×
  • Создать...