Вежливость-главное оружие
232 / 233 / 86
Регистрация: 19.02.2013
Сообщений: 1,446
1

SolidWorks Сопряжение деталей. Последный штрих

21.05.2015, 11:11. Показов 1271. Ответов 1
Метки нет (Все метки)

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

Мне необходимо написать макрос, который сопряжет две детали("Locator", "TestPART"):

SolidWorks Сопряжение деталей. Последный штрих



Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub main()
    Set swApp = Application.SldWorks
    Dim AssemblyMgr As AssemblyDoc: Set AssemblyMgr = swApp.ActiveDoc
    
    Dim components: components = AssemblyMgr.GetComponents(True)
    Dim count As Integer: count = UBound(components)
    
    Dim locator As Component2
    Dim detail As Component2
    
    'поиск деталей для сопряжения по имени
    For i = 0 To count
        If components(i).Name Like "*Locator*" Then Set locator = components(i)
        If components(i).Name Like "*TestPART*" Then Set detail = components(i)
    Next i
    
    'объект повзоляет получить доступ к тому, что выделил пользователь
    Dim selectedManager As Object
    Set selectedManager = swApp.ActiveDoc.SelectionManager
    
    selectedCount = selectedManager.GetSelectedObjectCount() 'количество выделенных граней
    Dim selectedCollection As Collection: Set slCol = New Collection 'сюда запишем ссылки на выделенные грани
    
 
    
    'вот здесь мы сохраняем все, что выделил пользователь
    For i = 1 To selectedCount - 1
    Set selectedObject = selectedManager.GetSelectedObject6(i, -1)
        Set selectedComponent = selectedManager.GetSelectedObjectsComponent(i)
        selectedCollection.Add selectedObject
    Next i
    
    'как теперь сопрячь детали? как узнать какая она: плоская или цилиндрическа?
End Sub

Вот сами детали и макрос.
SwMacro.rar

Кто разбирается в теме, помогите пожалуйства.

Заранее спс!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.05.2015, 11:11
Ответы с готовыми решениями:

Задана таблица товаров и их штрих-кодов. Вывести данные при использовании сканера штрих-кода
Привет. Есть таблица с данными: штрих-код был отсканирован сканером, а все остальные данные...

Сопряжение деталей сложной сборки
Здравствуйте. Подскажите пожалуйста какое сопряжение сделать в случае когда Шкив вращается...

Добавление деталей в сборку на C# API SolidWorks
Начал запись макроса, далее создаю сборку и добавляю готовые детали на сборку, все хорошо,...

Создание механизма в SolidWorks - SolidWorks
Подскажите пожалуйста, как будет выглядеть механизм преобразующий один вид движения в другой. На...

1
Вежливость-главное оружие
232 / 233 / 86
Регистрация: 19.02.2013
Сообщений: 1,446
24.05.2015, 21:47  [ТС] 2
Ау, люди!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.05.2015, 21:47

Помогите найти шрифт штрих-код, который штрих-сканеры читают
Здравствуйте, сорри знаю не по теме так как не нашел решил писать здесь. Мне надо печатать по...

Из партии в 100 деталей, содержащей 5 % брака, берут для проверки 5 деталей
2. Из партии в 100 деталей, содержащей 5 % брака, берут для проверки 5 деталей. Партия...

Подсчет количества бракованных деталей в партии деталей и вывод их номеров
Помогите, пожалуйста, решить! Буду очень признательна! Составить схему алгоритма и программу...

Сколько нужно взять деталей, чтобы наивероятнейшее число годных деталей было равно 50?
Сколько нужно взять деталей, чтобы наивероятнейшее число годных деталей было равно 50, если...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.