Vue à l'anglaise

2D plans Layout
1

Bonjour,

Lorsque je fais le plan 2d d'un assemblage je m'aperçoit que les vues sont à l'anglaise (vue de dessus au dessus) 

Sur solid 2018 je ne trouve pas l'option pour que les vues se trouvent en iso

Merci

2

Bonjour,

Vues US vous voulez dire?

Clic droit sur la feuille du plan > Propriétés > Type de projection (cocher Europe ou USA)


vues.png
6 « J'aime »
3

re,

ok cela fonctionne, mais comment régler pour l'avoir par défaut

1 « J'aime »
4

Re

Dans le bandeau SolidWorks > Outils > Enregistrer/Restaurer les paramètres


bandeau.png
2 « J'aime »
5

Il vaut mieux avoir un fichier en vue US qu'un fichier qui file à l'anglaise.

 

NOoooon pas taper la tête ..............trop tard chui déjà loin

7 « J'aime »
6

Pour l'avoir par défault il faut modifier le modèle de document ( DRWDOT) et les fonds de plans (SLDDRT)

Pour les plans existant, une macro a cliquer peut être pratique mais ça retournera les vues

Perso j'utilise ça pour recharger les fonds de plan :

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 « J'aime »
7

En effet, la bonne réponse est le cumul entre  @Vincent G et @ DELACOTE.

Il faut ouvrir le "modèle" de mise en plan en faisant "Ouvrir" et mettre l'extension "Templates" et ouvrir le fichier "Mise en Plan.drwdot" pour ouvrir le modèle par défaut.

Ensuite, il faut modifier la "Propriété de la feuille" en réglant en Type de Projection "Europe" et faire Ok.

Enregistrer le modèle et fermer.

A la prochaine mise en plan, le Type de Projection sera Européenne par défaut.

Voilà

3 « J'aime »
8

C'est comme cela que l'on règle le modèle correctement car énormément de paramètres sont à modifier (Options / Propriétés du document): Les vues (dont les coupes), les cotations, les annotations, ...

3 « J'aime »
9

On peut créer son propre onglet lors de l'ouverture de nouveaux documents en créant ses propres modèles (Pièce Assemblage et Mise en plan) dans un dossier perso (Mettre son nom au dossier; c'est le nom de l'onglet).

Puis pointer sur ce dossier (Option / Emplacements des fichiers / Modèles de document et faire "Ajouter" et aller pointer sur le dossier comportant vos modèles.

3 « J'aime »
10

Bonjour,

ok j'ai créer une mise en plan 1 que j'ai enregistré puis je l'ai mise par défaut.

Merci pour votre aide