---

Hideho!

Ich habe mal wieder ein Problemchen ...
Wir möchten per Makro den Tagstyle einer Bohrtabelle ändern. Die "Hilfe" bietet mir dazu folgendes an:
Style = HoleTable.TagStyle (VB Get property)
HoleTable.TagStyle = Style (VB Set property)

Also habe ich mir mal dieses Makro gebastelt:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Option Explicit
Sub main()
    Dim swApp                  As SldWorks.SldWorks
    Dim swModel                As SldWorks.ModelDoc2
    Dim swDraw                  As SldWorks.DrawingDoc
    Dim swView                  As SldWorks.View
    Dim swtable                As SldWorks.TableAnnotation
    Dim DrawingDoc              As Object
    Dim Style                  As Long
   
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swDraw = swModel

    ' Gehe zur ersten Ansicht
    Set swView = swDraw.GetFirstView
    Do While Not swView Is Nothing
        ' Gehe zur ersten Tabelle
        Set swtable = swView.GetFirstTableAnnotation
        Do While Not swtable Is Nothing
                 
            Style = swtable.TagStyle
            Debug.Print Style
           
            ' Nächste Tabelle
            Set swtable = swtable.GetNext
        Loop
        ' Nächste Ansicht
        Set swView = swView.GetNextView
    Loop       
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Das Makro findet die richtige Bohrtabelle, nur leider komme ich mit "Style = swtable.TagStyle" nicht weiter.
Watt nu? Denkfehler? Wenn ja, welcher???

viele Grüße aus dem wilden Süden

*uwe*

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

---

Hallo Uwe,

du bist im falschen Objekt.
Die Eigenschaft TagStyle ist in dem Objekt SldWorks.TableAnnotation nicht vorhanden.
Du musst dir für diese Information das SldWorks.HoleTable Objekt besorgen.

Leider kann ich dir aber nicht sagen wie man das bekommt, aber wenn du die TableAnnotation in der Hand hast, kannst du nicht weit endfernt sein.
Schau einfach mal in der API Hilfe nach!

------------------
Mfg Daniel

Es gibt nur drei Möglichkeiten: Sieg, Unentschieden oder Niederlage
----------------------------------------------
Effektive Produktivitätswerkzeuge in der Konstruktion und Zeichnungserstellung.
Automatisiert komplette Baugruppen, Teile und Zeichnungen nach Kundenvorgaben.

SolidWorks API Programmierung; Tools und Addin's für SolidWorks |  kontakt@schuler-da.de

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

---

Ja, Danke, stimmt.
       
Es hat ein bisschen gedauert, aber JETZT habe ich es!

Fröhlichen Feierabend zusammen!
     

*uwe*

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