---

Hallo Zusammen,

ich hab da mal ein Problem!

Ich verbaue über ein Makro (VBA) zwei Bodys, die ich vorher selektieren lasse. Wenn ich über den Namen des  Bodies gehe
(Set aktuell = apart.Bodies.Item(selektionBody))
, dann habe ich ein Problem, wenn ich mehrere Bodies mit dem gleichen Namen habe. Also dachte ich, man geht besser über die Item-Zahl.  Die Bekomme ich aber nicht aus der selection heraus. 
Wie geht das?

Danke im voraus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
gibt es auf die obere Frage keine Antwort, oder fehlt etwas in der Beschreibung?
Den als letztes eingefügten Körper kann man über
..item(Body.Count)..... ansprechen.
Aber ich weiss immer noch nicht, wie ich aus einer Selektion ( Nur ein Body) die Itemzahl, also ....Item(Itemzahl)..... herausbekomme.

Ich komme da einfach nicht weiter.

Meine momentahne Lösung sieht so aus:

Sub CATMain()
Dim Doku
Set Doku = CATIA.Documents
Dim Dokument
Set Dokument = CATIA.ActiveDocument

           
'Selektion einbau
Dim InputObjectType(0)
Dim Selection
Dim Usersel

Set Document = CATIA.ActiveDocument: Set Selection = Document.Selection

InputObjectType(0) = "Body"

Usersel = Selection.SelectElement2(InputObjectType, "Einfügeeben selektieren", False)

    If TypeName(CATIA.ActiveDocument) = "PartDocument" Then
                       
        Partname = Selection.Parent.Name
 
    Else
   
        Set seldoc1 = Selection.Item(1).Value
                     
            Do While (TypeName(seldoc1) <> "PartDocument")
              Set seldoc1 = seldoc1.Parent
            Loop

        Partname = seldoc1.Name
       
    End If
   
sel1 = Selection.Item(1).Value.Name

....
....

    Set apart = partDocument1.Part
    Set Wzk3d = apart.ShapeFactory

  --->>>> Set aktuell = apart.Bodies.Item(sel1) <<<---- Problem !
  --->>>> Set bool = apart.Bodies.Item(sel2)    <<<---- Problem !

Beim diesem Code, darf es keine gleich benannten Körper im Part geben!

Kennt jemand eine andere Lösung?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi INLU,

wieso vergibst du den Körpern kein Index? Also Körper1, Körper2, usw.

Bei gleich benannten Körpern blickt CATIA, bzw das Makro nicht, welche Körper du miteinander verbauen willst.

Gruß

Denis

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo INLU,

Wenn der Benutzer den Body selektiert, brauchst du weder den Namen, noch den Index.

Nach der User-Selection:

Code:

---

Dim body1 as body
set body1 = Selection.Item(1).Value

---

Dann hast du deinen Body!

(Das ist quasi deine Zeile mit "Set seldoc1 = Selection.Item(1).Value" vor der Schleife)

Gruß
CAMiCADse

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo CAMiCADse,

das hat funktioniert!! Vielen Dank.

Ich hatte es vorher so auch probiert, hatte die Variable aber ohne Zuordnung gelassen!
('Dim selbody' und nicht 'Dim selbody as Body')

Super ! Danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP