Czy ktoś ma makro SolidWorks (SW2014) do tego celu:
Na rysunku nazwij (lub zmień nazwę) pierwszego arkusza "Plan"
Co daje rejestrator makr?
Nie testowałem...
Należy użyć następującego oświadczenia:
swSheet.SetName "Plan"
2 polubienia
Oto makro do przetestowania:
http://www.lynkoa.com/tutos/macro-solidworks-renommer-feuille-1-de-la-msie-en-plan
1 polubienie
Pozostaje być pewnym, że będzie to pierwszy.
Czy widzisz uruchamianie makra za pomocą przycisku?
[Edytuj | edytuj kod] @.PL. Proszę, czy możesz zamieścić swój kod na poście?
2 polubienia
Z makro @.PL oto co z nim zrobiliśmy:
Sub lecture_seule_bib()
Dim swApp As Object
Przyciemnij część jako obiekt
"Informacja: Komentowałem każdą linijkę kodu bezpośrednio spod niej.
"Jeśli masz jakieś pytania, nie krępuj się przyjść do http://www.lynkoa.com/user/register/uref/MTM0
TITLE = "TRYB ODCZYTU/ZAPISU PLIKU SOLIDWORKS"
Ustaw swApp = Application.SldWorks
Deklaracja aplikacji SolidWorks
Ustaw część = swApp.ActiveDoc
Treść spektaklu
PathName = UCase(Part.GetPathName)
Uzyskiwanie ścieżki + nazwy pliku
'If Left(UCase(PathName), 1) <> "O" to
Poprzednia instrukcja zakomentowała, aby z niej skorzystać, usuń ' (apostrof) na początku wiersza
"W naszej firmie wszystkie pliki biblioteczne znajdują się na dysku sieciowym O:
'JEŻELI: sprawdzamy, czy plik znajduje się na O
'ret = MsgBox("Ten plik nie znajduje się na O:, procedura przerwana", , tytuł)
Poprzednia instrukcja zakomentowała, aby z niej skorzystać, usuń ' (apostrof) na początku wiersza
'Komunikat informujący, że procedura została przerwana, ponieważ plik nie znajduje się w naszej bibliotece
' Wyjdź z sub
Poprzednia instrukcja zakomentowała, aby z niej skorzystać, usuń ' (apostrof) na początku wiersza
'Koniec programu, jeśli ścieżka jest inna niż O:
"Koniec, jeśli
Poprzednia instrukcja zakomentowała, aby z niej skorzystać, usuń ' (apostrof) na początku wiersza
Koniec bloku SI (IF)
Jeśli GetAttr(PathName) i vbReadOnly to
Jeśli plik jest tylko do odczytu
ret = MsgBox("Ten plik jest tylko do odczytu, czy chcesz do niego pisać?" & vbNewLine_
& vbNewLine & "Pamiętaj, aby zapisać zmiany później", vbYesNo, tytuł)
'Wiadomość z pytaniem, czy chcemy uzyskać do niego dostęp w trybie odczytu i zapisu
Jeśli ret = vbNo, to wyjdź z sub
– Jeśli nie, wychodzimy z programu
SetAttr Nazwa_ścieżki, vbNormal
"Jeśli tak, usuwamy tylko do odczytu w systemie Windows
Part.FileReload (Załaduj ponownie)
ret = Part.ReloadOrReplace(False, Part.GetPathName, True)
Part.FileReload (Załaduj ponownie)
'Wczytujemy ponownie dokument do SolidWorks
Inaczej
'W przeciwnym razie (= odczyt pliku, zapis)
ret = MsgBox("Ten plik jest do odczytu/zapisu, czy chcesz, aby był tylko do odczytu?", vbYesNo, title)
'Wiadomość z pytaniem, czy chcesz uzyskać do niego dostęp w trybie tylko do odczytu
Jeśli ret = vbNo, to wyjdź z sub
– Jeśli nie, wychodzimy z programu
SetAttr nazwa_ścieżki, vbReadOnly
"Jeśli tak, to umieściliśmy w systemie Windows tryb tylko do odczytu
Part.FileReload (Załaduj ponownie)
ret = Part.ReloadOrReplace(False, Part.GetPathName, True)
Part.FileReload (Załaduj ponownie)
'Wczytujemy ponownie dokument do SolidWorks
Zakończ jeżeli:
Koniec subwoofera
Koniec programu: jeśli Ci się podobało, oceń ten samouczek na Lynkoa!
ficap_macro_renommer_premiere_feuille_mep.swp
1 polubienie