---

Hallo zusammen,

nachdem ich mein Problem vielleicht zu umständlich ausgedrückt und in einem ungeeigneten Forum gepostet habe, folgt hier der zweite Versuch:

Ich beabsichtige ein Assembly, ein einfaches Viergelenk, mittels des Parameters "Öffnungswinkel" bewegen zu können. Mein Ziel ist es, dass der Öffnungswinkel von z.B. 0 - 100deg in 5deg Schritten automatisiert durchlaufen wird. Im gleichen Zuge sollen von dieser Modifikation betroffene geometrische Werte (Längen und Winkel von Drahtgeometrie) nach Excel ausgeschrieben werden. Als Ergebnis möchte ich also eine tabellarische Auflistung von "Länge A", "Winkel B" und "Länge Z" in Abhängigkeit des Öffnungswinkels erhalten. Somit lassen sich für mich eintsprechende Diagramme erzeugen. All dies wird wahrscheinlich nur mithilfe eines Makros realisierbar sein.

Ich bin kein Programmier-Spezi und lese mich gerade in die Makro-Programmierung speziell in CATIA V5 hinein (Ziethen, Dieter R.; CATIA V5 - Effiziente Konstruktion mit Makros). Bis jetzt trugen meine Bemühungen jedoch keine Früchte. Wenn mir jemand mit elementaren Tipps und/oder verwendbaren Befehlen behilflich sein könnte wäre das super.

Gruß Kjell

Alter Thread: http://ww3.cad.de/foren/ubb/Forum141/HTML/000456.shtml

[Diese Nachricht wurde von cb_commander am 28. Sep. 2006 editiert.]

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

---

ich habe da etwas ähnliches, das aber Annotations-Werte von einem Produkt in Exel setzt. Du kannst den Code zum großen Teil übernehmen und auf deine Parameter umbauen.... Bei dem Makro muss eine leere Tabelle in Exel schon vor dem Start geöffnet sein.

Dim oSel As Object
Dim oParts() As Object
Dim sAnnotationTexte() As String

Sub CATMain()
   
    Set oSel = CATIA.ActiveDocument.Selection
    Dim oRead_Elements() As Object

    ReDim sAnnotationTexte(0)
    ReDim oParts(0)
    ReDim oRead_Elements(0)
    oSel.Clear
    On Error Resume Next
    oSel.Search "CATAsmSearch.Product,all"
    For i = 1 To oSel.Count
        ReDim Preserve oRead_Elements(UBound(oRead_Elements) + 1)
        Set oRead_Elements(UBound(oRead_Elements)) = oSel.FindObject("CATIAProduct")
        If TypeName(oRead_Elements(i).ReferenceProduct.Parent) = "PartDocument" Then
            ReDim Preserve oParts(UBound(oParts) + 1)
            Set oParts(UBound(oParts)) = oRead_Elements(i).ReferenceProduct.Parent.Part
        End If
    Next

   
    For i = 1 To UBound(oParts)
        For ii = 1 To oParts(i).AnnotationSets.Count
       
            For iii = 1 To oParts(i).AnnotationSets.Item(ii).Annotations.Count
                ReDim Preserve sAnnotationTexte(UBound(sAnnotationTexte) + 1)
                sAnnotationTexte(UBound(sAnnotationTexte)) = oParts(i).AnnotationSets.Item(ii).Annotations.Item(iii).Text.Text
            Next
        Next
    Next
        On Error Resume Next
    Set oExcel = GetObject(, "Excel.Application")
 
    For i = 1 To UBound(sAnnotationTexte)
       
        oExcel.Workbooks.Item(1).Sheets.Item(1).Range("A" + CStr(i)).Value = sAnnotationTexte(i)
    Next        MsgBox "Durchlauf beendet"
End Sub

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

---

Vielen Dank,

damit hast Du mir wirklich sehr weiter geholfen. Habe, wie du es schon vorgeschlagen hast, den Quellcode auf meine Parameter umgestrickt. Klappt noch nicht hundertpro, aber das wird noch 

Gruß Kjell

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