2. Mit dem MakroRecorder hab ichs auch schon versucht. Die interessanten Dinge
  läßt er unter den Tisch fallen.

3. Rekursive-Suche inkl. Part/Product-Prüfung hab ich auch schon versucht...aber
  da komm ich nicht drauf - wie ich das part aktiv setze. Da motzt er auch rum.

Ok würd mich freuen wenn mir jemand einen Tip geben könnte...vielen Dank

Hier noch der Code von dem eigentlichen Makro:

Code:

---

Sub CATMain()

Dim document1 As Document
Dim Status, oSelection, oSelectedElement, oDoc, oInstance, oRef, TheSPAWorkbench, TheMeasurable As Object
Dim InputObjectType(0)
Dim bType As Boolean
Dim dLength As Double

Set document1 = CATIA.ActiveDocument
     
InputObjectType(0) = "HybridShape"

If TypeName(CATIA.ActiveDocument) = "ProductDocument" Then
  bType = 0
ElseIf TypeName(CATIA.ActiveDocument) = "PartDocument" Then
  bType = 1
Else
  MsgBox "The Root is not a CATPart or a CATProduct !    ", 48, "Wrong FileType of opend Document"
  Exit Sub
End If

Set oSelection = CATIA.ActiveDocument.Selection
oSelection.Clear

        Dim AnzahlSelection As Long
               
        Dim partDocument1 As PartDocument
        Set partDocument1 = CATIA.ActiveDocument
       
        Dim selection1 As Selection
        Set selection1 = partDocument1.Selection
       
        selection1.Search "Name=*Line_*,all"
       
        AnzahlSelection = selection1.Count
       
Dim j As Long

For j = 1 To AnzahlSelection                                                         
    Dim reference1 As Reference
    Set reference1 = document1.part.CreateReferenceFromObject(selection1.Item(j).Value)           
    Dim hybridShapeFactory1 As HybridShapeFactory
    Dim hybridShapePointOnCurve1 As HybridShapePointOnCurve
   
    Set hybridShapeFactory1 = document1.part.HybridShapeFactory
    Set hybridShapePointOnCurve1 =  hybridShapeFactory1.AddNewPointOnCurveFromPercent(reference1, 0, False)
   
    Dim hybridBodies1 As HybridBodies
    Set hybridBodies1 = document1.part.HybridBodies
           
    Dim hybridBody1 As HybridBody
    Set hybridBody1 = hybridBodies1.Add()
       
    hybridBody1.AppendHybridShape hybridShapePointOnCurve1
    hybridBody1.Name = "Punkt" & j
...

---

Zur Info... Das habe ich jetzt schnell runter getippt. Es kann daher sein, dass noch etwas fehlt oder ich einen Tippfehler drin habe. Hab es aber überflogen und es sollte so passen.

[Edit] Natürlich habe ich direkt nach dem posten einen Schreibfehler entdeckt   [/Edit]

------------------
MFG
Rick Schulz
           Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

[Diese Nachricht wurde von RSchulz am 19. Aug. 2010 editiert.]

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

kann nur ein Fehler auslösen. Für den Fall das dein Root Dokument (also das Active Dokument) ein Produkt ist, gibt es in diesem keine Eigenschaft "Part". Du musst dich über die Selektion und dessen Eltern (.Parent) zu deinem Part Dokument durchhangeln. Hier mal ein kleines Beispiel.

Code:

---

Sub CATMain()

    Dim intDocObj As Document
    Dim intPartObj As Part
    Dim intSelObj As Selection
    Dim bType As Boolean
    Dim intLineObj As Object
    Dim i As Integer
    Dim intObjRef As Reference
    Dim hybridShapeFactory1 As HybridShapeFactory
    Dim hybridShapePointOnCurve1 As HybridShapePointOnCurve
    Dim hybridBodies1 As HybridBodies
    Dim hybridBody1 As HybridBody

    Set intDocObj = CATIA.ActiveDocument

    If TypeName(intDocObj) = "ProductDocument" Then
      bType = 0
    ElseIf TypeName(intDocObj) = "PartDocument" Then
      bType = 1
    Else
      MsgBox "The Root is not a CATPart or a CATProduct !    ", 48, "Wrong FileType of opend Document"
      Exit Sub
    End If

    Set intSelObj = intDocObj.Selection
    intSelObj.Clear
     
    intSelObj.Search "CATPrtSearch.Line,all"
   
    If intSelObj.Count = 0 Then
        MsgBox "No lines found in Document", vbExclamation, "CANCEL"
        Exit Sub
    End If

    For i = 1 To intSelObj.Count
        Set intLineObj = intSelObj.Item(i).Value
        'HIER WIRD DAS PART-OBJEKT VOM SELEKTIERTEN OBJEKT GEHOLT.
        'DAMIT BIST DU UNABHÄNGIG VON ROOT-DOCUMENT TYP
        Set intPartObj = intLineObj.Parent.Parent.Parent.Parent
        Set intObjRef = intPartObj.CreateReferenceFromObject(intLineObj)
        Set hybridShapeFactory1 = intPartObj.HybridShapeFactory
        Set hybridShapePointOnCurve1 = hybridShapeFactory1.AddNewPointOnCurveFromPercent(intObjRef, 0.5, False)
        Set hybridBodies1 = intPartObj.HybridBodies
        Set hybridBody1 = hybridBodies1.Add()
        hybridBody1.AppendHybridShape hybridShapePointOnCurve1
        hybridBody1.Name = "Punkt" & i
       
        intPartObj.Update
    Next
   
End Sub

---

Code:

---

For Each TmpNode In MainPRD.Products
    Set TmpPartDoc = TmpNode.ReferenceProduct.Parent
    Set TmpPart = TmpPartDoc.part
    Set TmpSelection = CATIA.ActiveDocument.Selection 'die Zeile hab ich noch hinzugefügt...war ihm ohne net so recht...
        TmpSelection.Add TmpPart
    CATIA.StartWorkbench ("Part Design")

---

Deine Lösung hat somit funktioniert...aber sobald ich das
Element aus dem Geo2.2 (siehe Abbildung) selektiere und
das Makro laufen lasse wird mir nur "Line" ausgegeben.

Die Line (Geo2.2) bezieht sich irgendwie auf die Linie (Geo2.1/Geometry) - gibts da vielleicht die Möglichkeit
sich die Referenz ausgeben zu lassen? Im Geo2.2 sind
Schweißnähte (Welding lines) abgelegt.

Ich hoffe die Infos bringen etwas...wäre echt klasse
wenn das irgendwie klappen würde.

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