SolidWorks MakroMania - Klammern setzen

SolidWorks MakroMania ist eine Beispielsammlung einiger Makros, die Ihnen eine Vorstellung davon geben soll, was man auch schon mit Makros in SolidWorks alles anstellen kann. Der Code des Makros sollte so gut dokumentiert sein, dass Sie damit ohne weitere Anleitung verstehen, was gemacht wird.

< voriges
MakroMania
Übersicht


nächstes >

Nummer 25
Klammern setzen

Download
ZIP, 6 KB

Ich übernehme keine Haftung für die korrekte Funktion der Routinen oder irgendwelcher Schäden bei der Anwendung dieser Beispiele. Das gesamte Risiko trägt der Benutzer selbst. - Sorry, muss sein.

' **********************************************************************
' * Makro setzt alle selektierten Bemaßungen in Klammern. Auch gut zu
' * benutzen als Tastaturshortcut, um die lästige Klickerei in den
' * Eigenschaftsdialog zu vermeiden
' *
' * 01.08.2003 Stefan Berlitz (stefan.berlitz@solidworks.cad.de)
' * http://solidworks.cad.de
' * http://swtools.cad.de
' **********************************************************************

' zunächst mal ein paar Deklarartionen die gebraucht werden
Dim swApp As Object
Dim ModelDoc As Object
Dim SelMgr As Object
Dim SelCount As Long
Dim DispDim As Object

Dim i As Long

' aus der swconst.bas
Const swSelDIMENSIONS = 14    '  "DIMENSION"

Sub main()

    Set swApp = CreateObject("SldWorks.Application")
    Set ModelDoc = swApp.ActiveDoc

    ' die selektierten Objekte abklappern
    Set SelMgr = ModelDoc.SelectionManager
    ' wenn überhaupt was selektiert ist
    SelCount = SelMgr.GetSelectedObjectCount
    For i = 1 To SelCount
        ' wenn nix selektiert war wird die Schleife gar nicht durchlaufen
        ' ansonsten ein Objekt nach dem anderen holen und
        ' schauen, ob es eine Bemaßung ist
        If (SelMgr.GetSelectedObjectType(i) = swSelDIMENSIONS) Then
            ' die genutzte Funktion gibt es erst ab der SW2003 SP1, für
            ' ältere Versionen gibt es leider nicht diesen einfachen Weg
            ' an die DisplayDimensions zu kommen
            Set DispDim = SelMgr.GetSelectedObject4(i)
            ' und die Klammern einschalten
            DispDim.ShowParenthesis = True
        End If
    Next i

End Sub

Zurück zum Seitenanfang

hr.gif (4491 Byte)

counter Kritik und Anregungen bitte an Stefan Berlitz. Letzte Änderung dieser Seite am Donnerstag, 01. Februar 2007 17:40