---

Hallo,

ich hab im YouTube einen Clip über ein Makro gesehen, dass alle Capture in einem Teil zeigt und es ermöglicht, schnell durch diese zu navigieren. Dabei handelt es sich um eine "Freeware". Hier die Beschreibung des Erstellers im Englischem "A freeware application written in catvba (CATIA VBA) language. Displays all the captures in a part and allows you to quickly navigate through them, Sorry-- no audio on this one, but you don't really need it."
Das Video findet ihr unter http://www.youtube.com/watch?v=oTo93hwu-Jc
Hat von euch Jemand das Makro schon irgendwo gesehen bzw. so was ähnliches? Und wisst ihr wie ich an

Schön Gruß!

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

---

CapturesNav.jpg

Hallo

ich hab mit den captures noch nicht gearbeitet daher dumme frage am anfang.. reicht es aus auf das jeweilig capture im strukturbaum zu klicken um es zu aktiveren? Falls ja hast du dir das makro aus dem video schnell selber gebaut. Vorausgesetzt du hast mal mit dem Makroeditor gearbeitet. Davon geh ich einfach mal aus, ansonsten sag bescheid.

du erstellst ein neues VBA Projekt über makros .. bibliotheken. in dem projekt erstellst du ein modul und eine userform. anschließend fügst du in der Userform eine Listbox ein -> siehe bild im anhang. Den Namen der Listbox lässt du auf ListBox1.

in das modul kopierst du folgenden code

Code:

---

Public partDocument1 As PartDocument
Public sel1 As Selection
Public part1 As Part
Public annotationSets1 As AnnotationSets
Public annotationSet1 As AnnotationSet

Sub CATMain()
    Set partDocument1 = CATIA.ActiveDocument
    Set sel1 = partDocument1.Selection
    sel1.Clear
    Set part1 = partDocument1.Part
    Set annotationSets1 = part1.AnnotationSets
    Set annotationSet1 = annotationSets1.Item("Anmerkungsset.1")
   
    If annotationSet1.Captures.Count > 0 Then
        With F_CN
            .ListBox1.Clear
            For i = 1 To annotationSet1.Captures.Count
                .ListBox1.AddItem (annotationSet1.Captures.Item(i).Name)
            Next
            .Show
        End With
    End If
End Sub

---

in das codefenster der Userform kommt folgendes:

Code:

---

Private Sub ListBox1_Change()
    If ListBox1.ListIndex <> -1 Then
        sel1.Clear
        sel1.Add annotationSet1.Captures.Item(ListBox1.ListIndex + 1)
    End If
End Sub

---

wie man Makros als Icons ablegen kann findet man hier: http://catia.cad.de/index.php/faq/programmierung/140-makros-als-icons-ablegen

Gruß

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

---

Hi,

danke erstmal für deine Hilfe und ja es reicht mir. Werd das ganze so schnell wie möglich ausprobieren.

Schönen Gruß noch!

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