---

Guten Morgen zusammen,
Ich habe folgendes Programm - welches mir die Positionsnummern aus einer Zeichnung ausliest. Ich würde dieses gerne erweitern auf Führungslinientexte und auf einfach TExte - für eine Hilfe / Erweiterung bedanke ich mich schon im voraus

Public Sub Liste()
    ' Get the active drawing document.
    Dim drawDoc As DrawingDocument
    Set drawDoc = ThisApplication.ActiveDocument

    Dim filename As String
    filename = "C:\Collaboration\Exchange\Liste_Zeichnungsnummern.txt"

    ' Ensure directory exists
    If Dir("C:\Collaboration\Exchange", vbDirectory) = "" Then
        MkDir "C:\Collaboration\Exchange"
    End If

    Open filename For Output As #1

    Dim drawSheet As Sheet
    For Each drawSheet In drawDoc.Sheets

        ' Iterate through each value set associated with this balloon.
        Dim drawBalloon As Balloon
        For Each drawBalloon In drawSheet.Balloons
            Dim valueSet As BalloonValueSet
            For Each valueSet In drawBalloon.BalloonValueSets
                Print #1, " Positionsnummer: " & valueSet.Value
            Next
        Next
          Next

    Close #1

    MsgBox "Liste wurde unter -- C:\Exchange -- gespeichert!!"
End Sub

------------------
MFG

BlueJay

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

---

Servus,

Führungslinientexte sind LeaderNotes
Einfache Texte meint vmtl. GeneralNotes

Es gibt auch eine Auflistung die alle diese Elemente vereint: DrawingNotes
Darin sind aber ggf. auch weitere Elemente enthalten, wie die Hinweistexte zu Biegungen und Gewinden.

Wenn Du nur jeweils an die Texte willst, wird es vorteilhaft sein, das alles als DrawingNote zu deklarieren (Leader- u. GeneralNotes sind jeweils Kinder davon).
z.B.

Code:

---

Sub test()
    Dim drawDoc As DrawingDocument
    Set drawDoc = ThisApplication.ActiveDocument
   
    Dim drawSheet As Sheet
    For Each drawSheet In drawDoc.Sheets
       
        Dim oNote As DrawingNote
        Debug.Print "---- GeneralNotes:"
        For Each oNote In drawSheet.DrawingNotes.GeneralNotes
            'allg. Texte
            Debug.Print oNote.Text
        Next
        Debug.Print "---- LeaderNotes:"
        For Each oNote In drawSheet.DrawingNotes.LeaderNotes
            'Führungslinientexte
            Debug.Print oNote.Text
        Next
    Next 'sheet

End Sub

---

------------------
Gruß KraBBy

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