' ******************************************************************************
'  UserSizedBOMBalloonText.swp
'
'  Stellt für alle Stücklistensymbole eine
'  spezielle Schriftgröße ein
'
'  macro recorded on 01/11/02 by u.clemens
' ******************************************************************************

Sub main()

Const swDocDrawing = 3
'hier gewünschte TextHöhe für BOM-Ballons eingeben
Const textheight = 0.01  'Meter

Dim SwApp As Object
Dim DrawingDoc As Object
    
' an SolidWorks und das aktuelle Dokument anklinken
Set SwApp = CreateObject("SldWorks.Application")
SwApp.Visible = True
SwApp.UserControl = True
    
Set DrawingDoc = SwApp.ActiveDoc
If DrawingDoc Is Nothing Then MsgBox ("Kein SolidWorks-Dokument geöffnet")

' ausserdem funktioniert das so nur mit Zeichnungen, also sollte das aktive
' Dokument auch eine Zeichnung sein
If DrawingDoc.GetType() <> swDocDrawing Then
  MsgBox ("nur in Zeichnungen")
  Exit Sub
End If
 
    'erste Ansicht aufrufen (die erste Ansicht ist immer das Blatt selbst)
    Set view = DrawingDoc.GetFirstView
    'solange es noch Ansichten gibt ...
    While Not view Is Nothing
      'ersten Bezugshinweis aufrufen
      Set note = view.GetFirstNote
      'solange es noch Bezugshinweise gibt ...
      While Not note Is Nothing
        'wenn Bezugshinweises ein Stücklistensymbol ist, dann...
        If note.IsBomBalloon() Then
          'Textgröße einstellen
          note.SetHeight (textheight)
          'Balloon-Größe anpassen
          retval = note.SetBalloon(note.GetBalloonStyle, 4)
          retval = note.SetBalloon(note.GetBalloonStyle, 0)
        End If
        'nächster Bezugshinweis
        Set note = note.GetNext
      Wend
      'nächste Ansicht
      Set view = view.GetNextView
    Wend

End Sub