|
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 19 Ansicht normal auf |
|
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.
' ******************************************************************************
' * Macro calls the NormalTo view. This is useful if you want to assign a
' * keyboard shortcut to this function since there is no menu command for
' * this function. To use this macro select a face and fire the macro
' *
' * Makro ruft die benannte Ansicht "Normal auf". Dieses Makro ist für den
' * Fall gedacht, wenn Sie das Normal auf auf ein Tastaturkürzel legen wollen,
' * da SolidWorks keine Menu für diese Funktion bietet. Um das Makro zu
' * benutzen erst die Fläche selektieren und dann das Makro abfeuern
' *
' * 09.08.2002 Stefan Berlitz (stefan.berlitz@solidworks.cad.de)
' * http://solidworks.cad.de
' * http://swtools.cad.de
' ******************************************************************************
Sub main()
Dim swapp As Object
Dim part As Object
Dim strNormalTo As String
Set swapp = CreateObject("SldWorks.Application")
Set part = swapp.ActiveDoc
' you have to add the spelling for the normal view
' I only know the german and the english one, sorry
Select Case swapp.GetCurrentLanguage
Case "german"
strNormalTo = "*Normal auf"
Case "english"
strNormalTo = "*Normal To"
'Case "spanish"
'Case "french"
'Case "italian"
'Case "japanese"
End Select
' calls the named view "*Normal To" with the old function
' so you can use it prior to SolidWorks 2001Plus
part.ShowNamedView strNormalTo
End Sub
| Kritik und Anregungen bitte an Stefan Berlitz. Letzte Änderung dieser Seite am Donnerstag, 01. Februar 2007 17:40 |