Witam
Nie rozumiem, co próbujesz zrobić z dodaną linią.
Ponadto, jak już powiedziałem w pierwszej odpowiedzi, jeśli nie ma rekordu z ustawieniami aktualizacji dzieci, nie będzie zmiany nazw rekordów plików i podzespołów, stąd brak widoczności w Eksploratorze Windows.
Witam
Próbuję dopasować nazwę pliku systemu Windows do nazwy składnika.
I dla mnie robię kopię zapasową, patrz poniżej
Opcja jawna
Dim swApp jako SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swRootComp jako SldWorks.Component2
Przyciemnione dzieci jako wariant
Dim swChild jako SldWorks.Component2
Dim SwSelData jako SldWorks.SelectData
Dim ChildCount As Long
Dim oldName As String
Dim newName As Ciąg
Słońce i tak długo
Słońce j tak długo
Dim ParentName As Ciąg
Błędy przyciemnieniaZmień nazwę na tak długo
Stan przyciemnienia Jako wartość logiczna
Ostrzeżenia o przyciemnieniu tak długo
Oszczędzaj tak długo
Dim swModelDocExt As ModelDocExtension
Dim swCustProp As CustomPropertyManager
Dim bool As wartość logiczna
Dim val As String
Dim valout As String
Sub main()
Ustaw swApp = Application.SldWorks
Ustaw swModel = swApp.ActiveDoc
ParentName = Lewo(swModel.GetTitle, 7)
Set swRootComp = swModel.ConfigurationManager.ActiveConfiguration.GetRootComponent3(True)
j = 1
Komponent trawersu swRootComp, 1
swModel.ForceRebuild3 Prawda
status = swModel.Save3(swSaveAsOptions_SaveReferenced, errorsSave, ostrzeżenia)
Koniec subwoofera
Sub TraverseComponent(swComp As SldWorks.Component2, nLevel As Long)
Dim vChildComp jako wariant
Dim swChildComp As Component2 (Komponent2)
Słońce i tak długo
Dim swModelChild jako SldWorks.ModelDoc2
Dim swCustProp As CustomPropertyManager
Dim val As String (Ciąg dim val)
Dim valout As String
vChildComp = swComp.GetChildren
Dla i = 0 TB UBound(vChildComp)
Ustaw swChildComp = vChildComp(i)
PrzechodzićKomponent swChildComp, nLevel + 1
swChildComp.Select4 False, SwSelData, False
Set swModelChild = swChildComp.GetModelDoc2
Set swCustProp = swModelChild.Extension.CustomPropertyManager("Default") ' ustawia nazwę konfiguracji wraz z parametrem
Jeśli nie, swCustProp jest niczym, to
status = swCustProp.Get4("SWOODCP_PanelStockLength", False, val, valout)
Jeśli wartość <> "" to
newName = ParentName & "-" & "000" & j
errorsRename = swModel.Extension.RenameDocument(nowaNazwa)
swChildComp.Name2 = nowaNazwa_
Debug.Print swModelChild.GetTitle & " : " & j & " - " & errorsRename
j = d + 1
Zakończ jeżeli:
Zakończ jeżeli:
Dalej i
Koniec subwoofera
Wiersz swChildComp.Name2 = nowaNazwa, nie dodaje nic więcej ponad to, co już robi funkcja zmiany nazwy.
Na zrzucie ekranu nie widzę, co jest nie tak. Nazwa pliku jest dobra.
Pozostaje tylko sprawdzić, czy pliki nie są otwarte w trybie tylko do odczytu, widzę tylko to.
Tak, ponieważ zmieniłem jego nazwę ręcznie, ale kiedy uruchamiam makro z zestawem gdzieś, nie podaje ono tej samej nazwy, co gdyby licznik nie działał.
A kiedy ręcznie zmieniam nazwę części, klikając prawym przyciskiem myszy zmień nazwę części, zmienia to nazwę okna, ale nie nazwę komponentu.
Czy to normalne?
Nie rozumiem problemu lub jest jakaś subtelność w Swoodzie, której nie opanowuję.
Cóż, jestem trochę maniakiem i uważam za mylące, że nazwa wyświetlana w featuremanager nie jest taka sama jak nazwa pliku Windows. Nie?
Czy istnieje wiersz poleceń, który pozwala mi zmienić nazwę komponentu, aby można było dopasować ją bezpośrednio do nazwy pliku ?
W tym przypadku chodzi bardziej o ustawienie modeli. W moim przypadku filename = nazwa wyświetlana w menedżerze operacji.
Jest on ukryty w sekcji "Pokaż nazwy komponentów". Nazwa składnika jest taka sama jak nazwa rekordu.
W przeciwnym razie należy zajrzeć do opcji ogólnych na poziomie odnośnika zewnętrznego, jeśli zaznaczona jest opcja "Aktualizuj nazwy komponentów po zastąpieniu dokumentów".
Świetnie, ta opcja odniesień zewnętrznych nie była :) sprawdzana!
Od dzisiejszego ranka testuję go na kilku zestawach i nadal mam przepraszam pytanie^^
Czy istnieją przypadki, w których funkcja zmiany nazwy nie działa?
Ponieważ tutaj mam dwie części, których nazwy nie są zmieniane, a mimo to przekazuję program krok po kroku przechodzi na nich i uruchamia linię: errorsRename = swModel.Extension.RenameDocument(newName)
Ale nie zmieniaj jego nazwy. Masz pomysł?
Miłego weekendu
Witam
po intensywnym użytkowaniu makra. Zauważam, że w zależności od konfiguracji moich części często pojawia się błąd, ponieważ mamy oba języki (domyślny i domyślny). Jak możemy ominąć ten błąd i wziąć pod uwagę oba przypadki?
Z góry dzięki,
Miłego dnia
Witam
Nie widziałem pierwszego pytania.
W przypadku problemu ze zmianą nazwy należy przyjrzeć się wartości zwracanej przez zmienną ErrorsRename i zobaczyć w pomocy, czemu odpowiada ten błąd:
Więcej informacji: http://help.solidworks.com/2020/english/api/swconst/SolidWorks.Interop.swconst~SolidWorks.Interop.swconst.swRenameDocumentError_e.html
W pozostałej części musisz dodać dodatkowe sprawdzenie, jak w poniższym kodzie:
Sub TraverseComponent(swComp As SldWorks.Component2, nLevel As Long)
Dim vChildComp As Variant
Dim swChildComp As Component2
Dim i As Long
Dim swModelChild As SldWorks.ModelDoc2
Dim swCustProp As CustomPropertyManager
Dim val As String
Dim valout As String
vChildComp = swComp.GetChildren
For i = 0 To UBound(vChildComp)
Set swChildComp = vChildComp(i)
TraverseComponent swChildComp, nLevel + 1
swChildComp.Select4 False, SwSelData, False
Set swModelChild = swChildComp.GetModelDoc2
Set swCustProp = swModelChild.Extension.CustomPropertyManager("Défaut") 'mettre le nom de la configuration comprenant la propriété
If swCustProp Is Nothing Then
Set swCustProp = swModelChild.Extension.CustomPropertyManager("Default")
End If
If Not swCustProp Is Nothing Then
status = swCustProp.Get4("SWOODCP_PanelStockLength", False, val, valout)
If valout <> "" Then
newName = NomParent & "-" & "000" & j
errorsRename = swModel.Extension.RenameDocument(newName)
swChildComp.Name2 = newName
Debug.Print swModelChild.GetTitle & " : " & j & " - " & errorsRename
j = j + 1
End If
End If
Next i
End Sub
Tak, myślałem o tym, ale już na "swCust set.... ", ponieważ nie może znaleźć konfiguracji, zawiesza się i nie wiem, jak to zrobić.
W przypadku pierwszego pytania chodzi o to, że część już istniała w oknach eksploratora, ale nie była w złożeniu.
Witam
Myślę, że wynika to z czegoś innego. Osobiście nie mam żadnych problemów z działaniem nawet jeśli konfiguracja nie istnieje.
swCustProp pozostaje pusty i dlatego nie ma zmiany nazwy ani niczego innego w danym pliku.
Czy kod został osadzony w makrze w takiej postaci, w jakiej się znajduje, czy też został zmodyfikowany w celu zintegrowania z kodem?
Witaj Cyrylu,
Publikuję cały mój kod. Umieściłem dwie pętle, ponieważ jeśli już zmieniłem nazwy moich elementów, to nie zadziałało, więc najpierw zmieniam ich nazwy za pomocą licznika (1,2,3,4...), a następnie zmieniam ich nazwy za pomocą linijki.
Opcja jawna
Dim swApp jako SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swRootComp jako SldWorks.Component2
Przyciemnione dzieci jako wariant
Dim swChild jako SldWorks.Component2
Dim SwSelData jako SldWorks.SelectData
Dim ChildCount As Long
Dim oldName As String
Dim newName As Ciąg
Słońce j tak długo
Słońce h tak długo
Dim ParentName As Ciąg
Błędy przyciemnieniaZmień nazwę na tak długo
Stan przyciemnienia Jako wartość logiczna
Ostrzeżenia o przyciemnieniu tak długo
Oszczędzaj tak długo
Dim swModelDocExt As ModelDocExtension
Dim swCustProp As CustomPropertyManager
Dim bool As wartość logiczna
Dim val As String
Dim valout As String
Sub main()
Ustaw swApp = Application.SldWorks
Ustaw swModel = swApp.ActiveDoc
ParentName = Lewo(swModel.GetTitle, 7)
Set swRootComp = swModel.ConfigurationManager.ActiveConfiguration.GetRootComponent3(True)
j = 1
h = 1
Komponent trawersu swRootComp, 1
swModel.ForceRebuild3 Prawda
status = swModel.Save3(swSaveAsOptions_SaveReferenced, errorsSave, ostrzeżenia)
Koniec subwoofera
Sub TraverseComponent(swComp As SldWorks.Component2, nLevel As Long)
Dim vChildComp jako wariant
Dim swChildComp As Component2 (Komponent2)
Dim swModelChild jako SldWorks.ModelDoc2
Dim swCustProp As CustomPropertyManager
Dim val As String (Ciąg dim val)
Dim valout As String
Słońce i tak długo
Dim status2 As Boolean
Dim val1 As String (Ciąg znaków
Dim valout1 As String
vChildComp = swComp.GetChildren
Dla i = 0 TB UBound(vChildComp)
Ustaw swChildComp = vChildComp(i)
PrzechodzićKomponent swChildComp, nLevel + 1
swChildComp.Select4 False, SwSelData, False
Set swModelChild = swChildComp.GetModelDoc2
Set swCustProp = swModelChild.Extension.CustomPropertyManager("Default") ' wpisz nazwę konfiguracji wraz z parametrem
Jeśli nie, swCustProp jest niczym, to
status = swCustProp.Get4("SWOODCP_PanelStockLength", False, val, valout)
status2 = swCustProp.Get4("SPRZĘT", Fałsz, val1, valout1)
Jeśli wartość <> "" Lub wartość1 <> "" Wtedy
newName = h
errorsRename = swModel.Extension.RenameDocument(nowaNazwa)
Debug.Print swModelChild.GetTitle & " : " & h & " - " & errorsRename
h = h + 1
Zakończ jeżeli:
Zakończ jeżeli:
Dalej i
Dla i = 0 TB UBound(vChildComp)
Ustaw swChildComp = vChildComp(i)
PrzechodzićKomponent swChildComp, nLevel + 1
swChildComp.Select4 False, SwSelData, False
Set swModelChild = swChildComp.GetModelDoc2
Set swCustProp = swModelChild.Extension.CustomPropertyManager("Default") ' ustawia nazwę konfiguracji wraz z parametrem
Jeśli nie, swCustProp jest niczym, to
status = swCustProp.Get4("SWOODCP_PanelStockLength", False, val, valout)
status2 = swCustProp.Get4("SPRZĘT", Fałsz, val1, valout1)
Jeśli wartość <> "" Lub wartość1 <> "" Wtedy
newName = ParentName & "-000" & j
Jeśli Len(nowaNazwa) > 12, to
newName = Left(nowaNazwa, 8) i Right(nowaNazwa, 4)
Zakończ jeżeli:
errorsRename = swModel.Extension.RenameDocument(nowaNazwa)
Debug.Print swModelChild.GetTitle & " : " & j & " - " & errorsRename
j = d + 1
Zakończ jeżeli:
Zakończ jeżeli:
Dalej i
Koniec subwoofera
Jeszcze tego nie sprawdzałem, ale przy pierwszym podejściu myślę, że problem wynika z drugiej pętli.
Zmienna swChild jest prawdopodobnie opróżniana po przekazaniu pierwszego uruchomienia.
Witaj Cyrylu,
swChild nie jest resetowany do niczego, nie rozumiem jak miałby być pusty.
Witam
Osobiście nie mam problemu z tym makrem. W tej chwili nie widzę, co jest blokowane (mam pliki, które nie mają żadnej nazwanej konfiguracji, takiej jak te docelowe i działa to bez żadnego problemu).
Co to jest zgłaszany komunikat o błędzie?
Witam
Znalazłem rozwiązanie z GetActiveConfiguration, więc biorę pod uwagę wszystkie konfiguracje, bez problemów z tłumaczeniem.
Witaj Cyrylu,
Zrobiłem jeszcze kilka testów i mam przykład, który załączam w pliku ZIP.
Mam wrażenie, że nie przechodzi przez wszystkie pliki montażu i naprawdę nie rozumiem dlaczego... W końcu moje wakacje nie były :D!
Z góry dziękuję za pomoc,
Miłego dnia
Vincent