Hat jemand ein SolidWorks Makro (SW2014), um dies zu tun:
Benennen Sie in einer Zeichnung das erste Blatt in "Plan" (oder benennen Sie es um)
Was bietet Ihnen der Makrorecorder?
Ich habe nicht getestet...
Die folgende Anweisung muss verwendet werden:
swSheet.SetName "Plan"
2 „Gefällt mir“
Hier ist ein Makro zum Testen:
http://www.lynkoa.com/tutos/macro-solidworks-renommer-feuille-1-de-la-msie-en-plan
1 „Gefällt mir“
Es bleibt sicher, dass es die erste sein wird.
Sehen Sie, dass das Makro über eine Schaltfläche gestartet wird?
[Bearbeiten] @.PL. Können Sie bitte Ihren Code auf dem Beitrag posten?
2 „Gefällt mir“
Aus dem Makro von @.PL haben wir Folgendes damit gemacht:
Unternummer lecture_seule_bib()
Dimmen swApp als Objekt
Teil als Objekt dimmen
'Information: Ich habe jede Codezeile direkt von unten kommentiert.
"Wenn Sie Fragen haben, können Sie sich gerne an http://www.lynkoa.com/user/register/uref/MTM0
title = "SOLIDWORKS DATEI LESE-/SCHREIBMODUS"
Legen Sie swApp = Application.SldWorks fest
Deklaration der SolidWorks Anwendung
Set Part = swApp.ActiveDoc
Aussage des Stücks
Pfadname = UCase(Teil.GetPfadname)
Abrufen des Pfads + Dateinamens
'If Left(UCase(PathName), 1) <> "O", dann
Die vorherige Anweisung auskommentiert, um sie zu verwenden, entfernen Sie das ' (Apostroph) am Anfang der Zeile
"In unserem Unternehmen befinden sich alle Bibliotheksdateien auf O: (Netzlaufwerk)
'WENN: Wir prüfen, ob sich die Datei auf O befindet.
'ret = MsgBox("Diese Datei ist nicht auf O:, Prozedur abgebrochen", , Titel)
Die vorherige Anweisung auskommentiert, um sie zu verwenden, entfernen Sie das ' (Apostroph) am Anfang der Zeile
"Meldung, dass die Prozedur abgebrochen wurde, weil sich die Datei nicht in unserer Bibliothek befindet
' Exit Sub
Die vorherige Anweisung auskommentiert, um sie zu verwenden, entfernen Sie das ' (Apostroph) am Anfang der Zeile
"Ende des Programms, wenn der Pfad von O abweicht:
"Ende, wenn
Die vorherige Anweisung auskommentiert, um sie zu verwenden, entfernen Sie das ' (Apostroph) am Anfang der Zeile
Ende des SI (IF)-Blocks
Wenn GetAttr(PathName) und vbReadOnly dann
Wenn die Datei schreibgeschützt ist
ret = MsgBox("Diese Datei ist schreibgeschützt, möchten Sie darauf schreiben?" & vbNewLine_
& vbNewLine & "Denken Sie daran, Ihre Änderungen später zu speichern", vbJaNein, Titel)
'Nachricht, um zu fragen, ob wir beim Lesen und Schreiben darauf zugreifen möchten
Wenn ret = vbNo, dann sub beenden
"Wenn nicht, verlassen wir das Programm
SetAttr Pfadname, vbNormal
"Wenn ja, entfernen wir die schreibgeschützte Funktion in Windows
Part.FileReload
ret = Part.ReloadOrReplace(Falsch, Part.GetPathName, Wahr)
Part.FileReload
"Wir laden das Dokument in SolidWorks neu
Oder
'Andernfalls (= Datei lesen, schreiben)
ret = MsgBox("Diese Datei ist schreibgeschützt, möchten Sie sie schreibgeschützt machen?", vbJaNein, Titel)
'Nachricht, um zu fragen, ob Sie im schreibgeschützten Modus darauf zugreifen möchten
Wenn ret = vbNo, dann sub beenden
"Wenn nicht, verlassen wir das Programm
SetAttr PathName, vbReadOnly
"Wenn ja, setzen wir schreibgeschützt in Windows ein
Part.FileReload
ret = Part.ReloadOrReplace(Falsch, Part.GetPathName, Wahr)
Part.FileReload
"Wir laden das Dokument in SolidWorks neu
Ende, wenn
Ende Sub
Ende des Programms: Wenn es Ihnen gefallen hat, bewerten Sie bitte dieses Tutorial auf Lynkoa!
ficap_macro_renommer_premiere_feuille_mep.swp
1 „Gefällt mir“