---

Hallo zusammen,

ich möchte folgendes machen in vb.NET:

-in einem Product habe ich x Parts
-in einem Part mit dem Namen (keine Ahnung)befindet sich ein GeoSet mit dem Namen ("TOLL")
- dieses Geoset möcte ich innerhalb des Parts in dem es sich befindet, kopieren und nochmal einfügen

Dim myCatiaApp As INFITF.Application
Dim myProduct As ProductStructureTypeLib.Product
Dim myProductDoc As ProductStructureTypeLib.ProductDocument
Dim myGeoSet As MECMOD.HybridBodies
Dim myModell As MECMOD.Part

Hier mein Ansatz:

        myModell = myProductDoc.Name("Adaptermodell *,all")    myGeoSet = myProductDoc.Parent.HybridBodies.Item("TOLL*,all")
        myModell.Selection.Clear()
        myModell.Selection.Add(myGeoSet)
      myModell.Selection.Copy()

        myModell.Selection.Clear()
        myModell.Selection.Add(myGeoSet)
        myModell.Selection.PaseSpecial("TOLL")

funzt natürlich nicht, was sonst.

Wie spricht man ein GeoSet eines Parts in einem Product richtig an?
Danke euch!

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

---

Servus
Vermutlich ist diese Frage besser im Catia Programmierforum aufgehoben.
Die Schreibweise .Name("Adaptermodell *,all") bzw .Item("TOLL*,all") hab ich bei VB bzw VBA noch nie gesehen, ist das was .net spezifisches? (erinnert mich an oSelection.Search)

Gruß
Bernd

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

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

---

Servus,

ja das mit der Schreibweise (" ...., all") muss in vb.net immer dann sein, wenn vorher Search drin steht. Ob es bei Name( ...) und item ( ... ) auch sein muss, weiß ich eben nicht.
Inzwishcen habe ich es so umgemodelt:

        Dim Sel = myProductDoc.Selection
        Sel.Clear()
        Dim Docs As MECMOD.PartDocument
        Docs = Sel.Item("keine Ahnung")
        myModell = Sel.Part
        myGeoSet = myAdaptermodell.HybridBodies
        myGeoSet1 = myGeoSet.Item("TOLL")
        Sel.Add(myGeoSet1)
        myGeoSet2 = myGeoSet1.Item("TOLL")
        myAdaptermodell.UpdateObject(myGeoSet2)

Jetzt bekomme ich eine Fehlermeldung in der Zeile:

        Docs = Sel.Item("keine Ahnung")

mit der Begründung: Item is not Memeber of Product.
Ich habe aber beim Coding die Möglichkeit Product.Item zu wählen.

Gruß
        Sel.Add(myGeoSet1)
        myGeoSet2 = myGeoSet1.Item("TOLL")
        myAdaptermodell.UpdateObject(myGeoSet2)

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

---

Servus
Damit die Diskussion nicht auseinander läuft:

hier geht es weiter.

Gruß
Bernd

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

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