Помогите пожалуйста с макросом

[Nastya21 0]

Здравствуйте. помогите пожалуйста с макросом.
Необходимо написать макрос для изменения координат объекта.
Заранее спасибо

[fox1001 787]

Dim swApp As Object

Dim Part As Object

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

Part.ClearSelection2 True

boolstatus = Part.Extension.SelectByID2("Бобышка-Вытянуть1", "SOLIDBODY", 0, 0, 0, False, 1, Nothing, 0)

Dim myFeature As Object

Set myFeature = Part.FeatureManager.InsertMoveCopyBody2(0.01, 0.02, 0.03, 0, 0.035, 0.045, -0.025, 0, 0, 0, False, 1)

End Sub

[Nastya21 0]

Dim swApp As Object
Dim Part As Object


Sub main()


Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Бобышка-Вытянуть1", "SOLIDBODY", 0, 0, 0, False, 1, Nothing, 0)
Dim myFeature As Object
Set myFeature = Part.FeatureManager.InsertMoveCopyBody2(0.01, 0.02, 0.03, 0, 0.035, 0.045, -0.025, 0, 0, 0, False, 1)


End Sub

Спасибо большое, а вот как узнать программно первоначальную точку вставки объекта, Вы не знаете случайно?

[artem_cad 88]

Спасибо большое, а вот как узнать программно первоначальную точку вставки объекта, Вы не знаете случайно?

 

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

 

Уточните, пожалуйста, о каком объекте идет речь? Компонент, тело, ...?

 

~A.

[Nastya21 0]

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

 

Уточните, пожалуйста, о каком объекте идет речь? Компонент, тело, ...?

 

~A.

Здравствуйте. Я вставляю макросом тело, мне нужно его программно переместить

[artem_cad 88]

Т.е. речь идет о детале, не сборке? Если так, то у тела нет начальной точки, только если оно, конечно, уже не было перемещено элементом "Переместить тело". Также есть начальное положение у компонента в сборке.

 

Я имею ввиду если, например, у Вас есть тело подобное следующему, то его координатная система совпадает с системой самой детали.

 

https://www.dropbox.com/s/4kgzxb79a7m74yq/body.png?dl=0

 

Однако, можно найти ориентацию и положения геометрически с помощью центра масс и осей моментов инерции.

 

https://www.dropbox.com/s/tezf15ld17owb8d/moment_of_inertia.png?dl=0

 

Такими методами:

 

MassProperty::CenterOfMass.

MassProperty::PrincipleAxesOfInertia.

 

Как Вы вставляете тело? Если это временное тело, тогда можно составить матрицу из моментов инерции и применить Body2::ApplyTransform, иначе нужно пользоваться элементом MoveCopyBody. 

 

Если Вы уточните задачу, возможно могу дать больше информации

~A.