Как работает oExtrude.SetAffectedBodies?

[Павел Тер-Микаэлян]

Здравствуйте! Подскажите пожалуйста, пытаюсь добавить тело в вырез, но не пойму, что я должен поставить в качестве аргумента в oExtrude.SetAffectedBodies... В подсказке написано Bodies as ObjectCollection.... Я подставляю тело... Вообще не понимаю...

Код - Visual Basic [Выбрать]

1. Public Sub DecalFeature()
2.  
3.     Dim oPartDoc As PartDocument
4.     Set oPartDoc = ThisApplication.ActiveDocument
5.                
6.     Dim oCompDef As PartComponentDefinition
7.     Set oCompDef = oPartDoc.ComponentDefinition
8.        
9.     Dim oSketch As PlanarSketch
10.     Set oSketch = oCompDef.Sketches.Item("1234")
11.    
12.     Dim oProfile As Profile
13.     Set oProfile = oSketch.Profiles.AddForSolid
14.  
15.     Dim oExtrudeDef As ExtrudeDefinition
16.     Set oExtrudeDef = oCompDef.Features.ExtrudeFeatures.CreateExtrudeDefinition(oProfile, kCutOperation)
17.     Call oExtrudeDef.SetThroughAllExtent(kNegativeExtentDirection)
18.    
19.     Dim oExtrude As ExtrudeFeature
20.     Set oExtrude = oCompDef.Features.ExtrudeFeatures.Add(oExtrudeDef)
21.  
22.    Call oExtrude.SetAffectedBodies(oCompDef.SurfaceBodies.Item(22))
23. end sub
24.  

[R.I.Chernov]

Не уверен, что я точно понял, что вы хотите. Если вы имеете ввиду добавление тела в уже построенный вырез, тогда вам нужен метод Extrudefeature.AddParticipant(). Чуть раньше он обсуждался здесь:
http://adn-cis.org/forum/index.php?topic=1901.0

[Павел Тер-Микаэлян]

R.I.Chernov, Спасибо за ответ! Но метод AddParticipant применяется в контексте сборок, а тут речь идет о добавлении тела в вырез в контексте детали...

[Алексей Романов]

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

Сами же пишите ниже: ObjectCollection!. Создайте коллекцию объектов, вставте в него тело и используйте, как аргумент...

[Павел Тер-Микаэлян]

Алексей Романов, Вот я и пытаюсь, делаю по-разному, вот так например:
Dim ss As ObjectCollection 
Set ss.Item(1) = ss.Add(oCompDef.SurfaceBodies.Item(22))
Call oExtrude.SetAffectedBodies(ss.Item(1))
но не работает (  .... не пойму как задать эту коллекцию

[R.I.Chernov]

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

Код - Text [Выбрать]

1. Sub dobavlenie_tela_v_virez()
2. Dim oCompDef As PartComponentDefinition
3. Set oCompDef = ThisApplication.ActiveDocument.ComponentDefinition
4.  
5. Dim coll As ObjectCollection
6. Set coll = ThisApplication.TransientObjects.CreateObjectCollection
7.  
8. coll.Add oCompDef.SurfaceBodies.Item(1)
9. coll.Add oCompDef.SurfaceBodies.Item(2)
10.  
11. oCompDef.Features.ExtrudeFeatures("Virez").SetAffectedBodies coll
12. End Sub

П.С. Как я понял, в коллекцию нужно включать все тела, которые в итоге должны быть затронуты выдавливанием, а не только то, которое хотите добавить. Иначе он сделает вырез лишь в том теле которое добавили, а прочие вырезы удалит. Т.е. какие тела вы включите в коллекцию в строках "coll.Add" , такие он и прорежет в итоге.

[Алексей Романов]

В итоге заработало, код получился такой вот

Добавить нечего, все так и есть... 

[Павел Тер-Микаэлян]

Да, Спасибо:) мне кажется я бы никогда не дошел до разгадки, потому что на coll.Add (oBody) и на oExtrude.SetAffectedBodies(coll) постоянно выдавало бы ошибку несоответствия)) и я бы бился головой об стену))) сам бы скобки точно не додумался открыть))) удивительно, он же сам в подсказке пишет что надо в скобках писать))) просто разрыв шаблона))))

[Алексей Романов]

удивительно, он же сам в подсказке пишет что надо в скобках писать))) просто разрыв шаблона))))

У меня в варианте без скобок выдает ошибку (во второй строке), со скобками все ок (первая строка):

Код - Visual Basic [Выбрать]

1. Call coll.Add(oCompDef.SurfaceBodies.Item(1))
2. coll.Add oCompDef.SurfaceBodies.Item(2)

[R.I.Chernov]

У меня в варианте без скобок выдает ошибку

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

Код - Text [Выбрать]

1. coll.Add oCompDef.SurfaceBodies.Item(1)
2. coll.Add oCompDef.SurfaceBodies.Item(2)
3.  
4. Call coll.Add(oCompDef.SurfaceBodies.Item(1))
5. Call coll.Add(oCompDef.SurfaceBodies.Item(2))

Не знаю, Алексей, на каком языке вы программируете,  у меня в VBA работают все 4 вышеуказанные строки.

[Павел Тер-Микаэлян]

вот оно что, будем знать 

[Алексей Романов]

на каком языке вы программируете,  у меня в VBA работают все 4 вышеуказанные строки.

VBA 7.1 (AI2015). По моим наблюдениям процедура с явным вызовом через Call срабатывает всегда, без Call не на всех машинах, через раз...

[R.I.Chernov]

VBA 7.1 (AI2015)

У вас не работает строка "coll.Add oCompDef.SurfaceBodies.Item(2)"?
Быть может причина еще в том, что у меня AI2013? Слышал от знакомых, что программный код немного менялся.

П.С. Если можете, помогите пожалуйста разобраться:
Залез в "Хелп- О программе" мне пишет, что программа Visual Basic 6.3. И тут я "завис".
Я всегда считал, что в AI встроен VBA, как в экселе. Вы , Алесей, также пишите, что у вас в AI2015 стоит VBA... Почему у меня Visual Basic? Или я чего не понимаю, и это одно и то же? В очередной раз осознал, насколько я еще "ущербный" программист, что даже не понимаю толком, в чем пишу

[Александр Ривилис]

Я всегда считал, что в AI встроен VBA, как в экселе. Вы , Алесей, также пишите, что у вас в AI2015 стоит VBA... Почему у меня Visual Basic?

VBA - это Visual Basic for Application

[Павел Тер-Микаэлян]

Возвращаясь к насущному, после выполнения метода oExtrude.SetAffectedBodies(ObjectColl), почему-то сбрасывается вся коллекция объектов: в ObjectColl появляются пустые Item, из-за чего не получается использовать одну и туже коллекцию несколько раз... Приходится каждый раз при создании вырезов очищать коллекцию и загонять в нее снова тела ... Может я что-то не то делаю?

Код - Visual Basic [Выбрать]

1.       For Each oBody In oCompDef.SurfaceBodies
2.                 If oBody.Name = "11" Or oBody.Name = "31" Or _
3.                    oBody.Name = "12" Or oBody.Name = "32" Then
4.                    Call ObjectColl.Add(oBody)
5.                  End If
6.       Next
7.      
8.     Call oExtrude.SetAffectedBodies(ObjectColl)  - СБРАСЫВАЕТСЯ КОЛЛЕКЦИЯ ТЕЛ
9.