Solidworks API

[Павлуха 522]

21.08.2024 в 09:53, Sturmann сказал:

Здравствуйте коллеги. 

Возникла потребность повернуть деталь перпендикулярно выделенной грани (ctrl +8). 

Есть такая возможность сделать этот программно? 

 

У Вас при выделении грани прямо под мышкой эта команда.

Фигнёй страдаете...

 

[Snake 60 749]

15 часов назад, Snake 60 сказал:

Что нужно добавить в код, что бы решить проблему?

Похоже, что эту проблему может решить только разработчик :( https://www.cadforum.net/viewtopic.php?p=37344

[Sla_68 4]

Всем привет. Пытаюсь научиться наладить взаимодействие с графическими телами. Но информации как то мало. Можете подсказать как добраться до объектов графики?

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swFeat = swModel.FirstFeature ' 1 папка всего проекта
Do While Not swFeat Is Nothing
 Debug.Print swFeat.GetTypeName
      Debug.Print swFeat.name
        If swFeat.GetTypeName = "MeshBodyFeatureFolder" Then
			 		 Set MeshFolder = swFeat.GetSpecificFeature2 '' вот это НЕ работает
                    vBodies = MeshFolder.GetBodies 'и вот это тоже 
					set Meshbody=vBodies(0) <== вот сюда хочу залезть и поизучать фацеты  а в частности их количество 

		end if
        Set swFeat = swFeat.GetNextFeature
Loop

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

Прикрепляю файл STL для вашего удобства

Сборка.STL

[Sturmann 34]

12.10.2024 в 13:31, Павлуха сказал:

 

У Вас при выделении грани прямо под мышкой эта команда.

Фигнёй страдаете...

 

Коллега, читайте внимательно -мне нужно программно. Чтобы программа обработала всё детали сборки. Вручную любой может  . Тема неактуальна коллеги подсказали метод из библиотеки. 

13.10.2024 в 18:48, Sla_68 сказал:

Всем привет. Пытаюсь научиться наладить взаимодействие с графическими телами. Но информации как то мало. Можете подсказать как добраться до объектов графики?

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swFeat = swModel.FirstFeature ' 1 папка всего проекта
Do While Not swFeat Is Nothing
 Debug.Print swFeat.GetTypeName
      Debug.Print swFeat.name
        If swFeat.GetTypeName = "MeshBodyFeatureFolder" Then
			 		 Set MeshFolder = swFeat.GetSpecificFeature2 '' вот это НЕ работает
                    vBodies = MeshFolder.GetBodies 'и вот это тоже 
					set Meshbody=vBodies(0) <== вот сюда хочу залезть и поизучать фацеты  а в частности их количество 

		end if
        Set swFeat = swFeat.GetNextFeature
Loop

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

Прикрепляю файл STL для вашего удобства

Сборка.STL 11 \u041a\u0431 · 0 скачиваний

Вероятно нужно взять объект  meshbody и расчленить его методом работы с телами. 

[alek77 222]

13.10.2024 в 18:48, Sla_68 сказал:

как добраться до объектов

Может так попробовать?

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

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swPartDoc As SldWorks.ModelDoc2
Dim swFeature As SldWorks.Feature
Dim swSubFeature As SldWorks.Feature
Dim featureName As String
Dim subFeatureName As String
Dim message As String
Sub main()
Set swApp = Application.SldWorks
Set swPartDoc = swApp.ActiveDoc
Set swFeature = swPartDoc.FirstFeature
While Not swFeature Is Nothing
    featureName = swFeature.Name
    Debug.Print swFeature.Name
    Debug.Print swFeature.GetTypeName
    Set swSubFeature = swFeature.GetFirstSubFeature
    While Not swSubFeature Is Nothing
        subFeatureName = swSubFeature.Name
        Debug.Print swSubFeature.Name
        Debug.Print swSubFeature.GetTypeName
        
        swSubFeature.GetBody
                
        Set swSubFeature = swSubFeature.GetNextSubFeature
    Wend
    Set swFeature = swFeature.GetNextFeature()
Wend

End Sub

 

[dommast 3]

Добрый день!
Второй десяток лет на разных версиях Солида пользуюсь макросом "Обозначение_Наименование" из имени файла. (Спасибо автору).
Но иногда нужно выполнять этот же макрос, но с некоторой поправкой, что-бы в полученом "Обозначении" автоматом убрать буквы или цифры до ПЕРВОЙ ТОЧКИ, а в "Наименовании" все осталось по-прежнему.
Как пример:
Предположим есть     ААА.С04.11.ТИ.00.-01_Проба.
или                          К8.С04.11.ТИ.00.-01_Проба.
Должно получится     С04.11.ТИ.00.-01_Проба.
Обращаюсь с просьбой откорректировать макрос.
Макрос прилагаю.
Спасибо.
SW23 sp5/Win10

Обозначение_Наименование.swp

[Kelny 1 321]

1 час назад, dommast сказал:

Как пример:
Предположим есть     ААА.С04.11.ТИ.00.-01_Проба.
или                          К8.С04.11.ТИ.00.-01_Проба.
Должно получится     С04.11.ТИ.00.-01_Проба.
Обращаюсь с просьбой откорректировать макрос.

Как вариант заменить:

Цитата

sValue = Mid(swModel.GetPathName, InStrRev(swModel.GetPathName, "\") + 1)
sValue = Left(sValue, InStrRev(sValue, ".") - 1)

На:

Цитата

sValue = swModel.GetPathName 'Путь файла сразу в переменную
sValue = Mid(sValue, InStrRev(sValue, "\") + 1)  'Поиск справа и оставляет правее символа в кавычках
sValue = Left(sValue, InStrRev(sValue, ".") - 1) 'Поиск справа и оставляет левее символа в кавычках
sValue = Mid(sValue, InStr(sValue, ".") + 1)  'Поиск слева и оставляет правее символа в кавычках

 

Изменено 7 часов назад пользователем Kelny

[dommast 3]

3 часа назад, Kelny сказал:

Как вариант заменить:

На:

 

Kelny, спасибо огромное! Все просто великолепно. Не раз убеждался в вашем профессиональном и человеческом отношении к участникам. Спасибо, успехов.