|
SolidWorks : Sw2008 SP4.0: Schreibgeschützte Dateien überschrieben
ad_man am 02.07.2009 um 11:18 Uhr (0)
Hallo Armin,kann es sein, dass das AddIn aus welchen Gründen auch immer die Dateiöffnet, indem der Schreibschutz entfernt wird? Bei Schreibschutz müsste das im SWX-Fenster in der Titelleiste zu erkennen sein.------------------###########################GrußAndreas
|
| In das Form SolidWorks wechseln |
 |
SolidWorks : Toolbox Datei bearbeiten
ad_man am 17.10.2019 um 17:22 Uhr (1)
Du kannst im Explorer den Schreibschutz entfernen, das Teil mit SWXmodifizieren und speichern und abschließend wieder den Schreibschutzreinmachen ------------------==========GrußAndreas==========
|
| In das Form SolidWorks wechseln |
|
SolidWorks : Makro für Schreibschutz ein/aus
ad_man am 22.10.2024 um 13:01 Uhr (1)
Hallo Bernhard,wenn du in VBA dein Formular aufrufst, übergibst du beim Aufruf denParameter vbModeless:Code:Sub Main frm_MyForm.show vbModelessEnd SubDamit bleibt das Ganze sichtbar ------------------==========GrußAndreas==========
|
| In das Form SolidWorks wechseln |
SetReadState.zip |
SolidWorks : Makro für Schreibschutz ein/aus
ad_man am 22.10.2024 um 21:06 Uhr (1)
Guten Abend zusammen,ich habe das Ganze mal mit einem ToogleButton gelöst. Wenn der Schreibschutzaktiv ist, wird die Schaltfläche rot eingefärbt und der Text ist Ja.Andersherum ist bei Schreibzugriff die Schaltfläche grün und der Textist Nein.Das Userformular legt sich vor die Solidworksfenster.------------------==========GrußAndreas==========
|
| In das Form SolidWorks wechseln |
 |
SolidWorks : Makro für Schreibschutz ein/aus
ad_man am 18.10.2024 um 12:54 Uhr (15)
Hallo,versuch es mal damit:Code:Dim swApp As ObjectDim swDoc As IModelDoc2Sub main() Set swApp = Application.SldWorks Set swDoc = swApp.ActiveDoc If swDoc.IsOpenedReadOnly Then swDoc.SetReadOnlyState (False) Else swDoc.SetReadOnlyState (True) End IfEnd SubWenn du dir das dann noch auf eine Makroschaltfläche legst... ------------------==========GrußAndreas==========
|
| In das Form SolidWorks wechseln |
|
SolidWorks : Makro für Schreibschutz ein/aus
ad_man am 18.10.2024 um 14:03 Uhr (1)
Du kannst dir zu Anfang auch die Excel-VBA-Literatur oder auch diefrei verfügbaren Tutorials anschauen. Damit bekommst du schon mal einenEinstieg in die Programmierung. Danach gibt es einige VBA-Videos für Solidworks (meist auf Englisch) aufYoutube. Dort werden die speziellen Solidworks-Objekte usw. besprochen.Und zu guter Letzt ist die API-Hilfe auch mit vielen Beispielen gespickt.------------------==========GrußAndreas==========
|
| In das Form SolidWorks wechseln |
|
SolidWorks : Makro für Schreibschutz ein/aus
ad_man am 22.10.2024 um 09:32 Uhr (1)
Hallo Bernhard,wie Christian schon schrieb, ist das Ganze mit einem eigenen Formularmachbar. Das sieht dann ähnlich aus, wie dein angehängtes Formular.Nur sind die Buttons dann mit Bildern versehen. Das ist aber keinetriviale Aufgabe, dazu benötigst du schon weitergehende Kenntnisse.Selbst ich müsste schauen, wie man Icons oder Bilder unter VBA an einenButton bindet. Unter VB.Net oder C# wüsste ich es... ------------------==========GrußAndreas==========
|
| In das Form SolidWorks wechseln |
|
SolidWorks : Normteile - Erstellung, Einbau
ad_man am 12.05.2004 um 10:26 Uhr (0)
Hallo Michael, zuerst einmal ist mir keine Funktion bekannt, die aus einem Teil ein Normteil macht. Ein Normteil ist genauso ein Teil wie jedes andere. Das erkennst du auch, wenn du einmal mit der Toolbox ar- beitest oder auch mit anderen Normteilsystemen. Das Gleiche gilt für eine Norm-Baugruppe z.B. einen Hydraulikzylinder. Auch hier kannst du unterschiedliche Konfigurationen anlegen und die- se dann in deinen BG s verbauen. Das Einbauen geschieht dann mit dem Einfügen / Komponenten-Befehl. Um das Übersc ...
|
| In das Form SolidWorks wechseln |
|
SolidWorks : Schreibschutz prüfen
ad_man am 23.07.2020 um 15:19 Uhr (1)
Hallo Udo,du kannst es mit der Funktion GetAttr() ermitteln:Code: Option Explicit Sub main() Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc Dim strDatei As String strDatei = swModel.GetPathName Dim info As VbFileAttribute info = GetAttr(strDatei) Debug.Print infoEnd SubDie Bedeutung der Werte für info findest du unterhttps://docs.microsoft.com/en-us/openspecs/microsoft_general_purpose_p ...
|
| In das Form SolidWorks wechseln |
