---

Hallo
in einem rekursivem Script funktioniert das Kopieren mit der Funktion "CreateReferenceFromName". In diesem Script,welches ueber eine Selection aufgebaut ist, funktioniert es nicht. Wer hat einen Tip?
Anbei das Script:

Sub CATMain()
'----------------------------------------------------------------------------------
    Dim PathReferenz As String
    '
    Dim Ref As Reference
    '
    Set oRoot = Catia.ActiveDocument
    Set oRootProd = oRoot.Product
    '------------------------------------------------------------------------------------
    Set oSelection = Catia.ActiveDocument.Selection
    oSelection.Search "CATPrtSearch.BodyFeature.Visibility=Shown,all"
    '------------------------------------------------------------------------------------
    ' ZwischenPart einfuegen im DesignMode
    EinfuegenZwischenPart partDocument1
    '------------------------------------------------------------------------------------
    For j = 1 To oSelection.count
      PathReferenz =  oSelection.Item(j).LeafProduct.name & "/!" & oSelection.Item(j).value.name
      Set oParent = oSelection.Item(j).LeafProduct.Parent.Parent
      PathReferenz = oParent.Name & "/" & PathReferenz
      Do Until LCase(oParent.Parent.Parent.Name) = "cnext"
            Set oParent = FUNC_PathToRoot(oParent)
            PathReferenz = oParent.Name & "/" & PathReferenz
      Loop
      Set Ref = oRootProd.CreateReferenceFromName(PathReferenz)
      '
      ' Einfuegen ins Zwischenpart
      oSelection.Add Ref
      oSelection.Copy
      Set PartDocZiel = partDocument1.Part
      oSelection.Add PartDocZiel
      oSelection.PasteSpecial "CATPrtResultWithOutLink"
      PartDocZiel.Update
    Next
End Sub

Function FUNC_PathToRoot(oProdOnWayToRoot)
  Set FUNC_PathToRoot = oProdOnWayToRoot.Parent.Parent
End Function

Sub EinfuegenZwischenPart (PartDocument1)
    Dim ProductDocument1 As Document
    Dim Product1 As Product
    Dim Products1 As Products
    Dim Product2 As Product
    Dim Documents1 As Documents
    Dim Product3 As CATBaseDispatch
    '
    Set ProductDocument1 = CATIA.ActiveDocument
    Set Product1 = ProductDocument1.Product
    Set Products1 = Product1.Products
    Set Product2 = Products1.AddNewComponent("Part", "")
    Set Documents1 = CATIA.Documents
    Set PartDocument1 = documents1.Item("Part1.CATPart")
    Set Product3 = partDocument1.GetItem("Part1")
    '
    Product3.PartNumber = "ZWISCHENPART1234567890"
    Product2.Name = "ZWISCHENPART1234567890"
    Product2.ActivateDefaultShape
End Sub

------------------
mfg
Erich

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

---

Servus Erich
Vermutlich scheitert das Script daran, dass es nur eine Selektion gibt und du diese mehrfach verwendest. Zunächst selektierst du über die Suche alle Bodies, danach fügst du weitere Elemente über die Schleife der Selektion hinzu und kopierst diese dann. Und da gibt es dann Probleme.
Mein Vorschlag wie es gehen könnte (ungetestet):
- Elemente as der Suche in einem Array oder einer Collection zwischenspeichern
- Schleife über die Elemente des Arrays/Collection:
    - Selektion leeren
    - Körper über Referenzpfad selektiern
    - Körper kopieren und einfügen

Gruß
Bernd

PS: Warum verwendest du nicht enfach die Funktion "CATPart aus Product generien" (Generate AllCATPart)?

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

[Diese Nachricht wurde von bgrittmann am 16. Feb. 2014 editiert.]

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

---

Hallo Bernd
Ich denke die Logik der Selection hat mich da aufs Glatteis geführt. Ich werde das analog Deines Vorschlags verwenden.
Danke

------------------
mfg
Erich

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