---

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

---

Hallo und vielen Dank.

Eine Frage hätte ich noch.
Ist es möglich, dynamische Icons einzubinden? Als bezugnehmend auf das obige Makro soll wenn der Schreibschutz gesetzt ist, das Makro mit einem offenem grünen Schloss versehen sein und wenn der Schreibschutz deaktiviert ist,  soll das Makro ein geschlossenes rotes Schloss aufweisen.
Ist das möglich und wie geht das?

schönen Sonntag

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

---

Zitat:

---

Original erstellt von Andi Beck:
Hallo,
hier gibt es gute Videos.

www.youtube.com/channel/UCIHl3el5Ie3PJNSne53fbtA

---

Kann dir die von Andi genannten Videos wärmstens empfehlen.
Kleiner Tipp noch der Betreiber des Youtube Kanals macht aktuelle jeden Montag um 19:30 Uhr einen Live Stream zum Thema Makro Programmierung.

Gruß OLL

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

---

Nicht zu vergessen die Makromania und die Hilfe hier:

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

Icons verändern wüsste ich nicht so direkt - in eigenem Formular geht es natürlich, aber in einer Icon-Leiste bzw. im Befehlsmanager hab ich es noch nicht gesehen ...

Gruß, Christian

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

---

Du kannst den Schreibschutz auch via FileSystemObject setzen.

https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/setattr-statement

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

---

Hallo miteinander,

Vielen Dank an alle für diesen wirklich tollen input.
Den Youtube-Channel hatte ich bereits gefunden.

@ Christian: Du schreibst dass dynamische (wechselnte) Icons "nur" in eigenem Formular geht. Frage, was ist ein eigenes Formular? Entschuldige bitte wenn das eine dilettantische Frage ist, aber ich habe keine Ahnung was du meinst.

@ R3vo: was habe ich für einen Vorteil wenn ich es via FileSystemObject setze? Oder ist das lediglich eine weitere Möglichkeit innerhalb von VBA.

schönen Abend
Bernhard

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

---

Hallo,

du kannst deinem Makro ja eine eigene Oberfläche verpassen, in der dann Schaltflächen für Funktionen sind. Die Schaltflächen kann man z.B. mit Bildern hinterlegen und ihren Zustand vom Makro her anpassen (aktiviert/deaktiviert) ... Die Oberfläche meinte ich mit Formular.

und zum Filesystemobject:
du kannst den Schreibschutz innerhalb von SolidWorks setzen/aufheben - wie von dir gezeigt. Das gilt dann auch nur für diese SolidWorks Sitzung. Manchmal sind Dateien auf Systemebene schreibgeschützt (oder sollen da geschützt werden). Da kommt man dann mit dem FileSystemObject dran. Davon bekommt SolidWorks aber erst was mit, wenn es versucht die Datei zu speichern ... 

Gruß, Christian

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

---

Screenshot-20241022-07_17_42.png

Hallo Christian,

Ich bin noch immer so weit weg dass ich nur vermuten kann was du meinst...
Meinst du eine Userform für ein Makro (eigenes Fenster mit z.B. Auswahlmöglichkeiten, Buttons etc...)? - siehe Beispielbild.
Leichter wäre es, wenn du mir einen screenshot mit einem Beispiel zeigen könntest. Vielleicht verstehe ich es dann bzw. kann mich dann gezielt auf die Suche danach machen um es zu verstehen.

LG Bernhard

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

---

Hallo Bernhard,

wie Christian schon schrieb, ist das Ganze mit einem eigenen Formular
machbar. Das sieht dann ähnlich aus, wie dein angehängtes Formular.
Nur sind die Buttons dann mit Bildern versehen. Das ist aber keine
triviale Aufgabe, dazu benötigst du schon weitergehende Kenntnisse.
Selbst ich müsste schauen, wie man Icons oder Bilder unter VBA an einen
Button bindet. Unter VB.Net oder C# wüsste ich es... 

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

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

---

Hallo Bernhard,

Genau das "Userform" meinte ich mit Formular.

bei den Befehlsflächen kannst du bei Eigenschaften auch ein "picture" zuweisen oder "enabled" auf false setzen.
aus dem Kopf weiß ich auch nicht, was beim picture zu beachten ist, vielleicht tut es auch einfach ein anderer Text ... 

Gruß, Christian

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

---

2024-10-2210-48-42.mp4

Hallo,

Vielen Dank für die Informationen.
Als Userform wäre ein Ansatz. Dabei müßte aber das Makro mit dem Formular ständig laufen (sichtbar sein sonst müßte ich es bei Bedarf jedesmal starten und das generiert wiederum unnötige klicks...) und wird höchstwahrscheinlich zeitweise beim Arbeiten in SWX verdeckt werden (oder man hat einen 2ten Bildschirm).
Mein Gedanke war, das so "Platzsparend" wie möglich zu machen, da es ja nur ein ein-aus Schalter ist. Sowas gibt es in SWX - siehe Anhang. Genau so was in der Art hatte ich mir vorgestellt.

lg
Bernhard

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

---

Hallo Bernhard,

wenn du in VBA dein Formular aufrufst, übergibst du beim Aufruf den
Parameter vbModeless:

Code:

---

Sub Main
  frm_MyForm.show vbModeless
End Sub

---

Damit bleibt das Ganze sichtbar 

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

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

---

Zitat:

---

Original erstellt von gearloose7:
... ständig laufen (sichtbar sein sonst müßte ich es bei Bedarf jedesmal starten und das generiert wiederum unnötige klicks...) und wird höchstwahrscheinlich zeitweise beim Arbeiten in SWX verdeckt werden ...

---

Hallo Bernhard,

ja das liegt im Zweifelsfall immer im Weg und muss dann auch noch weggeschoben und wieder gesucht werden  

Den Schreibschutzzustand der aktuellen Datei in SolidWorks kann man am oberen Rand sehen - da gibt es ein Sternchen, wenn ich nicht irre.
Hast du bei den Optionen die "Mehrbenutzerumgebung" aktiviert?
Dann kann man Schreibschutz auch mit rechter Maustaste für Komponenten  ändern ...

Sonst Makro starten - Userform einblenden mit Info und kurz bis 10 zählen ... Userform wieder schließen ...  

Gruß, Christian

Ach  -
und über "neu Laden" kannst du den Schreibschutz einer ganzen Baugruppe relativ übersichtlich einzeln einstellen - auch ohne neu zu laden ...
(rechts oben "Referenzen anzeigen", links Haken entfernen, recht Haken einstellen ... )

[Diese Nachricht wurde von Christian_W am 22. Okt. 2024 editiert.]

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

---

Hallo Christian,

Vielen Dank für den Hinweis bei "Neu Laden". Das kannte ich so auch nicht mit den Referenzen anzeigen.....

Das mit dem Sternchen heißt doch nur, dass das Teil/Baugruppe verändert und noch nicht gespeichert wurde, oder irre ich mich jetzt. Schreibgeschützt wird doch in eckigen Klammern nach dem Dateinamen angezeigt.
.... bis 10 zählen mag ich nicht 

Grüße
Bernhard

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

---

SetReadState.zip 2024-10-22SetRead1.jpg 2024-10-22SetRead2.jpg

Guten Abend zusammen,

ich habe das Ganze mal mit einem ToogleButton gelöst. Wenn der Schreibschutz
aktiv ist, wird die Schaltfläche rot eingefärbt und der Text ist Ja.
Andersherum ist bei Schreibzugriff die Schaltfläche grün und der Text
ist Nein.
Das Userformular legt sich vor die Solidworksfenster.

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

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