---

Hallo zusammen

ich würde gerne das Makro (Nr. 4 - http://solidworks.cad.de/mm_boerse.htm) um "Skizzen" erweitern. Die Punkte mit "NEU" habe ich hinzugefügt.
Das Problem scheint zu sein, dass es den Befehl "Part.ViewDispSketches " nicht gibt. Kann man das auch irgendwie anders hinbekommen?

Dim swApp As Object
Dim Part As Object
Dim Events As Boolean

Private Sub UserForm_Initialize()
    Const swDisplayAxes = 4
    Const swDisplayPlanes = 5
    Const swDisplayOrigins = 6
    Const swDisplayTemporaryAxes = 7
    'Const swDisplayCoordSystems = 13
    Const swDisplayReferencePoints = 19
    Const swDisplaySketches = 8 'NEU

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

    Events = False
    CheckBox1.Value = Part.GetUserPreferenceToggle(swDisplayPlanes)
    CheckBox2.Value = Part.GetUserPreferenceToggle(swDisplayAxes)
    CheckBox3.Value = Part.GetUserPreferenceToggle(swDisplayTemporaryAxes)
    CheckBox4.Value = Part.GetUserPreferenceToggle(swDisplayOrigins)
    CheckBox5.Value = Part.GetUserPreferenceToggle(swDisplayCoordSystems)
    CheckBox6.Value = Part.GetUserPreferenceToggle(swDisplayReferencePoints)
    CheckBox7.Value = Part.GetUserPreferenceToggle(swDisplaySketches) 'NEU
    Events = True

    Me.Left = CInt(GetSetting("SolidLine", "SWAnsicht", "Left", 200))
    Me.Top = CInt(GetSetting("SolidLine", "SWAnsicht", "Top", 100))
    Me.Repaint
End Sub

Private Sub UserForm_Layout()
    SaveSetting "SolidLine", "SWAnsicht", "Left", CStr(Me.Left)
    SaveSetting "SolidLine", "SWAnsicht", "Top", CStr(Me.Top)
End Sub

Private Sub UserForm_Terminate()
    End
End Sub

Private Sub CheckBox1_Change()
    If Events Then
        Part.ViewDispRefplanes
    End If
End Sub

Private Sub CheckBox2_Change()
    If Events Then
        Part.ViewDispRefaxes
    End If
End Sub

Private Sub CheckBox3_Change()
    If Events Then
        Part.ViewDispTempRefaxes
    End If
End Sub

Private Sub CheckBox4_Change()
    If Events Then
        Part.ViewDispOrigins
    End If
End Sub

Private Sub CheckBox5_Change()
    If Events Then
        Part.ViewDispCoordinateSystems
    End If
End Sub

Private Sub CheckBox6_Change()
    If Events Then
        Part.ViewDispRefPoints
    End If
End Sub
Private Sub CheckBox7_Change()
    If Events Then
        Part.ViewDispSketches 'NEU
    End If
End Sub

------------------
Gruß, der Teddibaer
---------
Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral.
John Osborne (1929-94)

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

---

warum nimmst Du nicht SetUserPreferenceToggle ?

BTW: Ich hätte auch für die anderen Typen den SetUserPreferenceToggle genommen ... So wie Du beim Öffen der UserForm abfragst
Checkbox.Value=Part.UserPreferenceToggle(...) kannst Du ebenso beim Verlassen der Userform Part.SetUserPreferenceToggle(...,Checkbox.Value) schreiben

oder für das ganz schnelle Makro
boolstatus = Part.SetUserPreferenceToggle(sw..., Not (Part.GetUserPreferenceToggle(sw...))) - schaltet bei jedem Aufruf hin-und-her  

------------------
mfg uc

[Diese Nachricht wurde von u.clemens am 21. Sep. 2004 editiert.]

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

---

Also ich hab das Makro nur übernommen, um mal zu sehen, ob es abzupassen ist.
Das Problem liegt nicht in der Eleganz, sondern daran, dass es anscheinend den o.g. Befehl für die Skizzen nicht gibt!?!?

Auslesen kann ich:
CheckBox7.Value = Part.GetUserPreferenceToggle(swDisplaySketches)

Aber schreiben geht nicht:
Private Sub CheckBox7_Change()
    If Events Then
        Part.ViewDispSketches 'NEU  <--- gibt's nicht?!?!
    End If
End Sub

------------------
Gruß, der Teddibaer
---------
Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral.
John Osborne (1929-94)

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

---

Zitat:

---

Original erstellt von Teddibaer:
Das Problem liegt ... daran, dass es anscheinend den o.g. Befehl für die Skizzen nicht gibt!?!?

Auslesen kann ich:
CheckBox7.Value = Part.GetUserPreferenceToggle(swDisplaySketches)

Aber schreiben geht nicht:
Private Sub CheckBox7_Change()
    If Events Then
        Part.ViewDispSketches 'NEU  <--- gibt's nicht?!?!
    End If
End Sub

---

na eben dann nimm doch

Private Sub CheckBox7_Change()
    If Events Then
        Part.SetUserPreferenceToggle(swDisplaySketches,CheckBox7.Value)
    End If
End Sub

Im Übrigen solltest Du Dich nicht wundern, wenn es immer noch nicht funktioniert - die Konstante für swDisplaySketches ist 196 und nicht 8 - Nachzulesen in der swconst.bas !!!

------------------
mfg uc

[Diese Nachricht wurde von u.clemens am 21. Sep. 2004 editiert.]

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

---

Potzblitz, es fällt mir wie Schuppen von den Haaren ...

Danke und 10P!

------------------
Gruß, der Teddibaer
---------
Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral.
John Osborne (1929-94)

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

---

Hier das komplette Listing:
' Achtung:
' Mit dem Menübefehl Extras\Verweise... die "SolidWorks Constant type library" einbinden !!

... sonst geht's auch nicht (@ublum: P.S. das mit der const.bas war mir neu, damit's überhaupt funktionierte habe ich irgendwas eingetragen.)

HINWEIS: Das ist nicht aus meinem Mist gewachsen, ich hab's nur abgeändert!

Dim swApp As Object
Dim Part As Object
Dim Events As Boolean

Private Sub UserForm_Initialize()
    Const swDisplayAxes = 4
    Const swDisplayPlanes = 5
    Const swDisplayOrigins = 6
    Const swDisplayTemporaryAxes = 7
    Const swDisplayCoordSystems = 13
    Const swDisplayReferencePoints = 19
    Const swDisplaySketches = 196

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

    Events = False
    CheckBox1.Value = Part.GetUserPreferenceToggle(swDisplayPlanes)
    CheckBox2.Value = Part.GetUserPreferenceToggle(swDisplayAxes)
    CheckBox3.Value = Part.GetUserPreferenceToggle(swDisplayTemporaryAxes)
    CheckBox4.Value = Part.GetUserPreferenceToggle(swDisplayOrigins)
    CheckBox5.Value = Part.GetUserPreferenceToggle(swDisplayCoordSystems)
    CheckBox6.Value = Part.GetUserPreferenceToggle(swDisplayReferencePoints)
    CheckBox7.Value = Part.GetUserPreferenceToggle(swDisplaySketches)

    Events = True

    Me.Left = CInt(GetSetting("SolidLine", "SWAnsicht", "Left", 200))
    Me.Top = CInt(GetSetting("SolidLine", "SWAnsicht", "Top", 100))
    Me.Repaint
End Sub

Private Sub UserForm_Layout()
    SaveSetting "SolidLine", "SWAnsicht", "Left", CStr(Me.Left)
    SaveSetting "SolidLine", "SWAnsicht", "Top", CStr(Me.Top)
End Sub

Private Sub UserForm_Terminate()
    End
End Sub

Private Sub CheckBox1_Change()
    If Events Then
        Part.ViewDispRefplanes
    End If
End Sub

Private Sub CheckBox2_Change()
    If Events Then
        Part.ViewDispRefaxes
    End If
End Sub

Private Sub CheckBox3_Change()
    If Events Then
        Part.ViewDispTempRefaxes
    End If
End Sub

Private Sub CheckBox4_Change()
    If Events Then
        Part.ViewDispOrigins
    End If
End Sub

Private Sub CheckBox5_Change()
    If Events Then
        Part.ViewDispCoordinateSystems
    End If
End Sub

Private Sub CheckBox6_Change()
    If Events Then
        Part.ViewDispRefPoints
    End If
End Sub
Private Sub CheckBox7_Change()
    If Events Then
        retval = Part.SetUserPreferenceToggle(swDisplaySketches, CheckBox7.Value)
    End If
End Sub

------------------
Gruß, der Teddibaer
---------
Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral.
John Osborne (1929-94)

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