---

Ich hab ein ein Produkt in dem ich Parts einlade.
Dies passiert in einer Schleife.
Ich möchte nun, nachdem ich ein Part eingefügt hab, nur dieses selektieren.
Es darf aber nicht namensabhängig sein, da ich mehrere gleichnamige Parts im Produkt hab.

            For X = 1 To (axZahl - 1) Step 2
            aufzählung = aufzählung + 1
            Dim zahl As Long
           
            zahl = Len(aufzählung)
           
            nN = Replace(achsenPart.Item(X).Name, aufzählung, "", 1, zahl)
           
            Set PP = CATIA.ActiveDocument.Product.Products
            Dim Listen(0)
            Listen(0) = pfad2 + "\" + nN + ".CATPart"
            PP.AddComponentsFromFiles Listen, "CATPart"

... und jetzt selektieren!

Wie bekomme ich das dahin?

Gibt es soetwas wie Selection.Search ".Part;last"???

------------------
Anfänger!

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

---

Servus
Du könntest einfach das letzte Element der ProductsCollection selektieren (ungetestet):

Code:

---

Dim RootProduct as product
Set RootProduct = CATIA.ActiveDocument.Product

dim oProduct as Product
Set oProduct = RootProduct.Products.item(RootProduct.Products.Count)
osel.add oProduct

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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