Witaj drużynie,
Tutaj mam problem, mam stażystę, który zaprojektował ASM z + 200 balustradami, które mają maksymalną jakość obrazu.
Jego balustrady znajdują się na pierwszym, drugim poziomie, a nawet na więcej.
Mój problem polega na tym, że muszę otwierać każdą barierkę, aby obniżyć jakość, zajmie mi to szaloną ilość czasu.
Moje pytanie czy istnieje makro, które otwierałoby każdą część, aby obniżyć jakość i zapisać modyfikację.
Dziękuję.
Niech moc będzie z wami.
1 polubienie
Witam
Zwykle, jeśli otworzysz górny zespół, przechodzisz do Jakość obrazu (w opcjach) i zaznaczasz opcję: "Zastosuj do wszystkich dokumentów części, do których istnieją odniesienia".
Spowoduje to zastosowanie jakości obrazu do wszystkich części otwartego złożenia.
Edycja: z małym obrazkiem
4 polubienia
Witam
Rzeczywiście, dobrze widzę, zawsze szukam od południa do 2 po południu, podczas gdy rozwiązanie jest przed moimi oczami.
Dobra robota
Niech Moc będzie z wami.
ups, kolejne kliknięcie z boku 
To jest naprawione.
Niech Moc będzie z wami.
1 polubienie
Witam, właśnie zrobiłem makro, które przekazuje jakość do minimum:
Opcja jawna
’ ******************************************************************************
" autorstwa F. PENNERASA
' 27 GRUDNIA 2023 R.
’ ******************************************************************************
Wczesne zmienne powiązane
Dim swApp jako SldWorks.SldWorks
Dim swDoc jako SldWorks.ModelDoc2
Przyciemnij część jako SldWorks.ModelDoc2
' Zmienne do dodania (zmienne zmienne)
Dim CurVal jako podwójny
Dim MaxVal jako Double
Dim MinVal jako podwójne
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim swTextFormat jako SldWorks.TextFormat
Dim TextFormatObj jako obiekt
Dim ModelDocExtension As ModelDocExtension
Sub main()
• Połączenie z aktualnie aktywnym dokumentem SolidWorks
Ustaw swApp = Application.SldWorks
Ustaw swDoc = swApp.ActiveDoc
Ustaw część = swApp.ActiveDoc
Ustaw ModelDocExtension = Part.Extension
'Procedura obsługi błędów, jeśli nie załadowano żadnych dokumentów
Jeśli część jest niczym, to MsgBox "Plik Solid Works musi być aktywny!", vbCritical: Wyjdź z sub
' Pobierz bieżące, minimalne i maksymalne wartości z preferencji odchylenia cieniowania jakości obrazu.
' Załaduj te wartości do zmiennych 'CurVal', 'MinVal' i 'MaxVal'.
swDoc.Extension.GetUserPreferenceDoubleValueRange swImageQualityShadedDeviation, CurVal, MinVal, MaxVal
' Ustawia nową wartość odchylenia zacienienia
swDoc.SetUserPreferenceDoubleValue swImageQualityShadedDeviation, MaxVal
' Odznacz pole wyboru "Optymalizuj długość krawędzi".
Part.SetUserPreferenceToggle swImageQualityUseHighQualityEdgeSize, False
Odznacz pole "Zapisz facetyzację".
Part.SetUserPreferenceToggle swImageQualitySaveTesselationWithPartDoc, False
' Odznacz pole "Popraw jakość krzywej".
Part.SetUserPreferenceToggle swImageQualityWireframeHighCurveQuality, False
' Ustaw nową wartość dla opcji "Rozdzielczość szkieletowa i wysoka jakość HLR/HLV".
Part.SetUserPreferenceIntegerValue swImageQualityWireframeValue, 1
Koniec subwoofera
1 polubienie