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 |
Nummer 25 Klammern setzen |
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
Kritik und Anregungen bitte an Stefan Berlitz. Letzte Änderung dieser Seite am Donnerstag, 01. Februar 2007 17:40 |