---

Hallo,
wir würden gerne die Teilfarbe per Makro verändern, doch leider sind bis jetzt alle Versuche (Makros aufgzeichnet: Dokumenteigenschaften ändern bzw. Farbe bearbeiten) gescheitert. Gibt es eine Möglichkeit die Farbe per Makro zu verändern?

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

---

Guck mal in der SWX-API Hilfe

Hier das Bsp für Baugruppenteile einfärben: (Gesucht wurde nach: MaterialPropertyValues)

Change Material Properties Example (VB)
This example shows how to change the color of the selected assembly component.

'----------------------------------------------------

'

' Preconditions:

'      1) Assembly is open

'

'      2) A component is selected

'

' Postconditions:

'      1) Color of selected component is changed to blue

'

'      2) Selection set is cleared

'

'

Option Explicit

Sub main()

    Dim swApp                      As SldWorks.SldWorks

    Dim swModel                    As SldWorks.ModelDoc2

    Dim swCompModel                As SldWorks.ModelDoc2

    Dim swSelMgr                    As SldWorks.SelectionMgr

    Dim swComp                      As SldWorks.Component2

    Dim vMatProp                    As Variant

    Dim bRet                        As Boolean

   

    Set swApp = CreateObject("SldWorks.Application")

    Set swModel = swApp.ActiveDoc

    Set swSelMgr = swModel.SelectionManager

    Set swComp = swSelMgr.GetSelectedObjectsComponent2(1)

   

    vMatProp = swComp.MaterialPropertyValues

    If IsEmpty(vMatProp) Then

        ' Empty if no component-level colors specified,

        ' so get from underlying model

        Set swCompModel = swComp.GetModelDoc

       

        If swCompModel Is Nothing Then

            ' Component is lightweight

            Exit Sub

        End If

       

        vMatProp = swCompModel.MaterialPropertyValues

    End If

       

    Debug.Print "File = " & swModel.GetPathName

    Debug.Print "  Comp = " & swComp.Name2 & " (" & swComp.ReferencedConfiguration & ")"

    Debug.Print "    State          = " & swComp.GetSuppression

    Debug.Print "    Suppressed    = " & swComp.IsSuppressed

    Debug.Print "    Hidden        = " & swComp.IsHidden(False)

   

    Debug.Print "    RGB            = [" & vMatProp(0) * 255# & ", " & vMatProp(1) * 255# & ", " & vMatProp(2) * 255# & "]"

    Debug.Print "    Ambient        = " & vMatProp(3)

    Debug.Print "    Diffuse        = " & vMatProp(4)

    Debug.Print "    Specular      = " & vMatProp(5)

    Debug.Print "    Shininess      = " & vMatProp(6)

    Debug.Print "    Transparency  = " & vMatProp(7)

    Debug.Print "    Emission      = " & vMatProp(8)

   

    ' Force component color to blue

    vMatProp(0) = 0#

    vMatProp(1) = 0#

    vMatProp(2) = 1#

    swComp.MaterialPropertyValues = vMatProp

   

    ' Deselect face so we can see new colour

    swModel.ClearSelection2 True

End Sub

'-----------------------------------------------------

------------------
Gruß, der Teddibaer

Besucht mich doch mal ...
----------------
Es gibt eine Theorie, nach der die Konzentration von Dummheit an bestimmten Orten besonders hoch ist. 

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

---

Hallo de cadhund,

ich hab für die Teileiugenschaften selbst ein (ziemlich altes) Makro auf http://solidworks.cad.de/mm_15.htm , da einfach nur die passenden Matprops einstellen und dann sollte es klappen. Ist als Beispiel ganz tauglich 

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de

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

---

ChooseRal.zip

Hi Cadhund,
ich hab da mal ein Macro geschrieben, um einem Teil eine Ral Farbe zu geben. Die Werte zieht das Makro aus einer Excel Tabelle, die ich auch hier aus dem Forum habe 
HTH
Thomas

------------------
Viele Grüße aus dem Schwarzwald
gismo
Meine bescheidene Website Klamm? Was ist Klamm?

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

---

Hallo Gismo,

nette Spielerei dieses Makro und es könnte auch ganz hilfreich sein, aber die erzeugten Farben liegen z.T. weit jenseits von meinem nagelneuen RAL-Fächer. RAL 7035 Lichtgrau sieht im Modell dann Fliederfarben aus. Reinweiß erscheint Rosa, Himmelblau erscheint dunkelblau...

Wenn ich versuche mit der Monitorkalibrierung gegenzusteuern versaue ich mir alles andere. Hast du vielleicht Lichteinstellungen in deinen Parts, wo man nicht ganz daneben liegt - oder wie kommst du damit klar? Kann man da mit der Tabelle irgendwie gegensteuern?

Gruß
Robert

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

---

Hi Robert,
Ich muss Dir recht geben, dass die Farben teilweise ein "wenig"  daneben ligen.
Das Makro ist bei uns auch nur um die Farben in etwa darzustellen. Warum die so daneben liegen, weiss ich nicht. An der Tabelle kann es eigentlich nicht liegen. Die gleichen RGB Werte, die in dieser Tabelle verwendet werden, hab ich im Internet in einigen anderen Tabellen auch gefunden. An SWX Lichtquellen kann es auch nicht liegen, da z.b. im Paint die gleichen komischen Farben erzeugt werden. Interessant wäre nun, ob das auch auf einen Kalibrierten Monitor so dargestellt wird.
(Hat hier jemand einen kalibrierten Monitor?)

CU
Thomas

------------------
Viele Grüße aus dem Schwarzwald
gismo
Meine bescheidene Website Klamm? Was ist Klamm?

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

---

Hallo Zusammen

Gibt es eine Möglichkeit innerhalb einer Baugruppe, die Flächenfarben und Teilefarben aller Parts und Assemblies mittels eines Makro auf einen Schwung wieder in den Standard  oder eine definierte Farbe zu setzen (grau).

Gruß Oliver 

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

---

http://solidworks.cad.de/mm_01.htm

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