Engelse weergave

2D plans Layout
1

Hallo

Als ik het 2e plan van een vergadering maak, valt het me op dat de aanzichten Engels zijn (bovenaanzicht bovenaanzicht) 

Op solide 2018 kan ik de optie niet vinden voor de weergaven om in iso te zijn

Bedankt

2

Hallo

Amerikaanse opvattingen bedoel je?

Klik met de rechtermuisknop op het planblad > Eigenschappen > Projectietype (controleer Europa of VS)


vues.png
6 likes
3

re

ok het werkt, maar hoe in te stellen om het standaard te hebben

1 like
4

Re

In de SolidWorks-banner > Instellingen opslaan/herstellen > Tools


bandeau.png
2 likes
5

Het is beter om een bestand in de Amerikaanse weergave te hebben dan een bestand dat in het Engels wordt uitgevoerd.

 

NOoooon niet met het hoofd bonzen.............. Te laat is al ver weg

7 likes
6

Om het standaard te hebben, moet u het documentsjabloon (DRWDOT) en de basiskaarten (SLDDRT) wijzigen 

Voor bestaande opnamen kan een klikbare macro handig zijn, maar deze geeft de weergaven terug

Persoonlijk gebruik ik dit om de basemaps te herladen:

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 like
7

Inderdaad, het juiste antwoord is de cumulatie tussen  @Vincent G en @ DELACOTE.

U moet de tekening "sjabloon" openen door op "Openen" te drukken en de extensie "Sjablonen" te plaatsen en het bestand "Layout.drwdot" te openen om de standaardsjabloon te openen.

Vervolgens moet u de "Sheet Property" wijzigen in "Europe" Projection Type en op Ok drukken.

Sla de sjabloon op en sluit af.

Bij de volgende opname is het projectietype standaard Europees.

Daar ga je

3 likes
8

Zo stel je het model correct in want er moeten heel wat parameters gewijzigd worden (Document Opties/Eigenschappen): Aanzichten (inclusief secties), afmetingen, annotaties, ...

3 likes
9

U kunt bij het openen van nieuwe documenten uw eigen tabblad aanmaken door uw eigen sjablonen (Onderdeel, Assemblage en Tekening) aan te maken in een persoonlijke map (Zet uw naam op de map; dit is de naam van het tabblad).

Wijs vervolgens deze map aan (Optie / Bestandslocaties / Documentsjablonen en druk op "Toevoegen" en ga naar de map met uw sjablonen.

3 likes
10

Hallo

Ok ik heb een tekening 1 gemaakt die ik heb opgeslagen en vervolgens heb ik deze op standaard gezet.

Bedankt voor je hulp