SolidWorks MakroMania - Transparenz ändern

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 15
Transparenz ändern

Download
ZIP, 10 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 ändert die Transparenz des aktuellen Teils auf 30%.
' * Als Beispiel gedacht, andere Materialeigenschaften vorbereitet
' *
' * 10.05.2002 Stefan Berlitz (stefan.berlitz@solidworks.cad.de)
' * http://solidworks.cad.de
' * http://swtools.cad.de
' *
' **********************************************************************

Dim swApp As Object
Dim Part As Object

Dim MatProp As Variant

Sub main()

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

    ' erst mal die aktuellen Werte holen
    MatProp = Part.MaterialPropertyValues

    ' Transparenz soll geändert werden, dass ist die
    ' achte Eigenschaft also MatProp(7). Dazu WISSEN
    ' wir ja, das wir ein Feld aus 9 Doubles zurückbekommen
    ' haben. VARIANT ist schon ein merkwürdiger Datentyp :-))

    'MatProp(0) = 0# ' r
    'MatProp(1) = 0# ' g
    'MatProp(2) = 0# ' b
    'MatProp(3) = 0# ' ambient
    'MatProp(4) = 0# ' diffuse
    'MatProp(5) = 0# ' specular
    'MatProp(6) = 0# ' shininess
    MatProp(7) = 0.3     ' transparency
    'MatProp(8) = 0# ' emmision

    ' und zurückschreiben. ACHTUNG: Extra Klammern um
    ' das Variant (vorher zurückgeben
    Part.MaterialPropertyValues = (MatProp)

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