Widok w języku angielskim

2D plans Layout
1

Witam

Kiedy tworzę plan 2D zespołu, zauważam, że widoki są w języku angielskim (widok z góry powyżej) 

Na solidnym 2018 roku nie mogę znaleźć opcji, aby widoki były w ISO

Dziękuję

2

Witam

Poglądy USA masz na myśli?

Kliknij prawym przyciskiem myszy arkusz planu > Właściwości > Typ rzutowania (sprawdź Europę lub USA)


vues.png
6 polubień
3

Ponownie

ok to działa, ale jak ustawić żeby to było domyślnie

1 polubienie
4

Ponownie

Na banerze SolidWorks > Zapisz/Przywróć Ustawienia > Narzędzia


bandeau.png
2 polubienia
5

Lepiej jest mieć plik w widoku amerykańskim niż plik uruchamiany w języku angielskim.

 

NOoooon nie w głowę.............. Za późno to już daleko

7 polubień
6

Aby była dostępna domyślnie, należy zmodyfikować szablon dokumentu (DRWDOT) i mapy bazowe (SLDDRT)

W przypadku istniejących ujęć klikalne makro może być przydatne, ale zwróci widoki

Osobiście używam tego do przeładowywania map bazowych:

Sub main()

Dim swApp           As SldWorks.SldWorks
Dim swModel         As SldWorks.ModelDoc2
Dim swDraw          As SldWorks.DrawingDoc
Dim swSheet         As SldWorks.Sheet
Dim vSheetProps     As Variant
Dim nErrors         As Long
Dim nWarnings       As Long
Dim sFileName       As String
Dim Path            As String
Dim vSheetName      As Variant
Dim i               As Long
Dim Part            As Variant


'***************************************
' Location des fonds de plans
Const sTemplatePath As String = "****A REMPLACER PAR LE DOSSIER CONTENANT LES FOND DE PLANS"

' Noms des templates
'Première page
Const sTemplateName As String = "***A REMPLACER PAR NOM DE FOND DE PLAN PREMIERE PAGE .SLDDRT"
Autres pages
Const sTemplateName2 As String = "***A REMPLACER PAR NOM DE FOND DE PLAN AUTRES PAGES .SLDDRT"
'***************************************
'vérification si plan ouvertt
On Error Resume Next
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
' Check to see if a drawing is loaded.
If swModel Is Nothing Then
        MsgBox "Il faut ouvrir un plan avant de lancer la macro !"
        Exit Sub
End If
If swModel.GetType <> swDocDRAWING Then
        MsgBox "Il faut ouvrir un plan avant de lancer la macro !"
        Exit Sub
End If
'***************************************
'*************************************** Hop, on se charge de la page 1
Set swDraw = swModel
    vSheetName = swDraw.GetSheetNames
        swDraw.ActivateSheet (vSheetName(i))
        Set swSheet = swDraw.GetCurrentSheet
        vSheetProps = swSheet.GetProperties
        
    'Supression de la table "feuille x/x"
    Set Part = swApp.ActiveDoc
    boolstatus = Part.Extension.SelectByID2("", "ANNOTATIONTABLES", 0.361350915138288, 7.25042891639636E-02, 0, False, 0, Nothing, 0)
    Part.EditDelete
    
    'Chargement du nouveau fond de plan
    swModel.SetupSheet5 swSheet.GetName, swDwgPapersUserDefined, swDwgTemplateCustom, vSheetProps(2), vSheetProps(3), True, sTemplatePath & sTemplateName, 0.4318, 0.2794, "Default", True
    swDraw.ViewZoomtofit2
    
    'Selection du calque "selon la norme"
    Set Part = swApp.ActiveDoc
    Set LayerMgr = Part.GetLayerManager
    LayerMgr.SetCurrentLayer ("-Selon la norme-")


'*************************************** Puis toutes les autres pages
For i = 1 To UBound(vSheetName)

        swDraw.ActivateSheet (vSheetName(i))
        Set swSheet = swDraw.GetCurrentSheet
        vSheetProps = swSheet.GetProperties
        
        'Supression de la table "feuille x/x"
        Set Part = swApp.ActiveDoc
        boolstatus = Part.Extension.SelectByID2("", "ANNOTATIONTABLES", 0.361350915138288, 7.25042891639636E-02, 0, False, 0, Nothing, 0)
        Part.EditDelete
        
        'Chargement du nouveau fond de plan
        swModel.SetupSheet5 swSheet.GetName, swDwgPapersUserDefined, swDwgTemplateCustom, vSheetProps(2), vSheetProps(3), True, sTemplatePath & sTemplateName2, 0.4318, 0.2794, "Default", True
        swDraw.ViewZoomtofit2
        
        'Selection du calque "selon la norme"
        Set Part = swApp.ActiveDoc
        Set LayerMgr = Part.GetLayerManager
        LayerMgr.SetCurrentLayer ("-Selon la norme-")

'*************************************** Sauvegarde et fin
Next i
    swDraw.ActivateSheet vSheetName(0)
    swDraw.ForceRebuild3 False
    swDraw.Save3 1, nErrors, nWarnings
        
Set swDraw = Nothing
   

End Sub


 

1 polubienie
7

Rzeczywiście, prawidłową odpowiedzią jest kumulacja między  @Vincent G i @ DELACOTE.

Musisz otworzyć "szablon" rysunku, naciskając "Otwórz" i umieścić rozszerzenie "Szablony" oraz otworzyć plik "Layout.drwdot", aby otworzyć domyślny szablon.

Następnie musisz zmienić "Właściwość arkusza" na "Europa" Typ projekcji i nacisnąć OK.

Zapisz szablon i zamknij.

Przy następnym ujęciu Typ projekcji będzie domyślnie ustawiony na europejski.

Proszę bardzo

3 polubienia
8

W ten sposób ustawiasz poprawnie model, ponieważ wiele parametrów musi zostać zmodyfikowanych (Opcje/Właściwości dokumentu): Widoki (w tym przekroje), wymiary, adnotacje, ...

3 polubienia
9

Możesz utworzyć własną zakładkę podczas otwierania nowych dokumentów, tworząc własne szablony (Część, Zespół i Rysunek) w folderze osobistym (Umieść swoje imię i nazwisko w folderze; jest to nazwa karty).

Następnie wskaż ten folder (Opcja / Lokalizacje plików / Szablony dokumentów i naciśnij "Dodaj" i przejdź do folderu z szablonami.

3 polubienia
10

Witam

Ok, utworzyłem rysunek 1, który zapisałem, a następnie ustawiłem go na domyślny.

Dziękuję za pomoc