---

Hallo,

Ich habe da ein Problem  beim ändern von verschiedenen Systemoptionen:

------ Anfang--------
' Achtung:
' Mit dem Menübefehl Extras\Verweise... die "SolidWorks Constant type library" einbinden !!

Option Explicit

Dim SwApp  As SldWorks.SldWorks
Dim swModel As Object

Const swDocNONE = 0              ' Used to be TYPE_NONE
Const swDocPART = 1              ' Used to be TYPE_PART
Const swDocASSEMBLY = 2          ' Used to be TYPE_ASSEMBLY
Const swDocDrawing = 3            ' Used to be TYPE_DRAWING

Const weiss As Long = 12615680
Const blau As Long = 15263976

Private Sub Photo_dunkel_Click()
'-------------------------------------------
'dunklen Hintergrund setzen
'-------------------------------------------
   
  Dim retVal As Boolean
 
  Set SwApp = Application.SldWorks
  Set swModel = SwApp.ActiveDoc
 
  ' Ist ein Dokument geöffnet ?
  If swModel Is Nothing Then
    MsgBox "Kein Dokument geöffnet !"
    Exit Sub
  End If
 
  ' Ist das aktive Dokument ein 3D-Modell ?
  If swModel.GetType <> swDocPART Then
    MsgBox "Das aktive Dokument ist keine Zeichnung !"
    Exit Sub
  End If
 
' Farbwerte setzen

  retVal = swModel.SetUserPreferenceIntegerValue(swSystemColorsTopGradientColor, weiss)
  retVal = swModel.SetUserPreferenceIntegerValue(swSystemColorsBottomGradientColor, blau)

'Standardwerte
'swSystemColorsTopGradientColor    12615680
'swSystemColorsBottomGradientColor  15263976

...
...
------ Ende ---------

Bei Übergabe von "SetUserPreferenceIntegerValue(swSystemColorsBottomGradientColor, blau)" muss lt. Handbuch eine Integervariable stehen. Die heißt bei mir so wie der Farbwert; hier: "blau".

Bei Linienstärken hatte ich das mal, dass der einen Umweg gehen musste über eine Art Bibliothek. Kommt sowas hier auch zum tragen?
Irgendwelche Ideen?

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

Besucht mich doch mal ...
----------------
Es gibt nichts Gutes, ausser man tut es 

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

---

Hallo Teddibaer

also nach meinem (2006´er) Onlinehandbuch soll dort eine LONG-Variable stehen
-------------------------------------------------------
Syntax (OLE Automation)

retval = SldWorks.SetUserPreferenceIntegerValue ( userPreferenceValue, value)

Input:
(long) userPreferenceValue
User preference as defined in swUserPreferenceIntegerValue_e

Input:
(long) value
Value that you want to give to the user preference specified in userPreferenceValue

Return:
(VARIANT_BOOL) retval
TRUE if the setting was changed successfully, FALSE if not
-------------------------------------------------------

------------------
Grüße
Heinz

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

---

Ich bin heut' zu blöd dafür! 

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

Besucht mich doch mal ...
----------------
Es gibt nichts Gutes, ausser man tut es 

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