---

Screenshot-20241018-10_25_33.png

Hallo an alle,

Ich würde gerne über ein Makro auf die Funktion "Schreibschutz aktivieren" / "Schreibschutz aufheben" unter "Datei" zugreifen.
Habe versucht mit dem Macrorecorder das mal aufzuzeichnen. Das bringt aber nicht das gewünschte Ergebnis.

mit dem Macrorecorder aufgezeichnet:

Code:

---

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
End Sub

---

Ich habe auf der API Hilfeseite herausgefunden dass man mit SetReadOnly diesen Parameter setzen kann.
Hab das mal aus der Hilfe kopiert, aber habe leider keine Ahnung wie ich das in mein Macro einbinde.
Kann mir dabei liebenswürdigerweise jemand damit helfen?

Aus der API-Hilfe: https://help.solidworks.com/2022/english/api/sldworksapi/solidworks.interop.sldworks~solidworks.interop.sldworks.imodeldoc2~setreadonlystate.html?_gl=1*13a004p*_up*MQ..*_ga*ODgyMzgzMDU5LjE3MjkyMzkxNjk.*_ga_XQJPQWHZHH*MTcyOTIzOTE2OC4xLjAuMTcyOTIzOTE2OC4wLjAuMA..

Code:

---

Dim instance As IModelDoc2
Dim SetReadOnly As System.Boolean
Dim value As System.Boolean

Sub main()

value = instance.SetReadOnlyState(SetReadOnly)

End Sub

---

Vielen Dank schon mal.
LG gearloose

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

---

Hallo,

versuch es mal damit:

Code:

---

Dim swApp As Object
Dim swDoc As IModelDoc2

Sub main()

    Set swApp = Application.SldWorks
    Set swDoc = swApp.ActiveDoc

    If swDoc.IsOpenedReadOnly Then
        swDoc.SetReadOnlyState (False)
    Else
        swDoc.SetReadOnlyState (True)
    End If

End Sub

---

Wenn du dir das dann noch auf eine Makroschaltfläche legst... 

------------------
==========
Gruß
Andreas
==========

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

---

Hallo Andreas,

Saugeil, funktioniert......
Welche Literatur würdet ihr empfehlen um mehr über VB für Solidworks zu erlernen?

Ich weiß bei einzelnen Zeilen einfach nicht was gemacht wird und für was es notwendig ist..... auch diese Deklarationen (DIM ... irgendwas am Anfang) sind für mich noch spanisches Dorf.

Vielen Dank.

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

---

Du kannst dir zu Anfang auch die Excel-VBA-Literatur oder auch die
frei verfügbaren Tutorials anschauen. Damit bekommst du schon mal einen
Einstieg in die Programmierung.

Danach gibt es einige VBA-Videos für Solidworks (meist auf Englisch) auf
Youtube. Dort werden die speziellen Solidworks-Objekte usw. besprochen.
Und zu guter Letzt ist die API-Hilfe auch mit vielen Beispielen gespickt.

------------------
==========
Gruß
Andreas
==========

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

---

Vielen Dank. 

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

---

Hallo,
hier gibt es gute Videos.

www.youtube.com/channel/UCIHl3el5Ie3PJNSne53fbtA

Grüße, Andi

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

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