Positionner précisément une vue

2D plans Layout
1

Bonjour à toutes et à tous,

Quelqu'un à une astuce pour positionner une vue précisement ?

Le but est de placer une vue ISO exactement au même endroit sur 5 folios (pour éviter d'avoir la vue qui bouge avec le défilement des pages en PDF).

Merci et bonne journée !

2

Vous pouvez faire un copier coller de la vue iso sur chaque feuille. La vue est mise en place au même endroit.

 

Edit : OUPS ça ne marche plus visiblement... :/

3 « J'aime »
3

Bonjour,

Une solution serait de dupliquer la feuille après insertion de la vue, puis changer par la suite le modèle.

4

Faire une mise en plan avec une vue prédéfinis en insérant une vue iso.

 

Et enregistrer en tant que modèle.

 

Voici un exemple


vue_predefinie.png
1 « J'aime »
5

Idem Benoi.LF ça marche pour moi !!!!

1 « J'aime »
6

Merci, c'est étonnant qu'il n'y ai pas le positionnement X Y ?

2 « J'aime »
7

Désolé mais je ne peux pas recommencer mes FOLIOS.

 

1 « J'aime »
8

Avec les vues prédéfinis, tout se met à jour automatiquement.

 

Pas besoin de tout refaire....

9

 


Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()
    On Error Resume Next
    Dim swApp As SldWorks.SldWorks
    Set swApp = Application.SldWorks
    If Not swApp Is Nothing Then
        Dim Part As SldWorks.ModelDoc2
        Set Part = swApp.ActiveDoc
        
        Dim swSelMgr As SldWorks.SelectionMgr
        Set swSelMgr = Part.SelectionManager()
        
        If Not Part Is Nothing And Not swSelMgr Is Nothing Then
            boolstatus = Part.ActivateView("Detail View A (4 : 1)")
            boolstatus = Part.Extension.SelectByID2("Detail View A (4 : 1)", "DRAWINGVIEW", 0.3567189637584, 0.2569348080537, 0, False, 0, Nothing, 0)
            Dim swView As SldWorks.View
            Set swView = swSelMgr.GetSelectedObject6(1, -1)
            If Not swView Is Nothing Then
                Dim vArr As Variant
                vArr = swView.Position
                
                Call MsgBox("Current View Coordinates: X = " & vArr(0) * 1000 & "mm, Y = " & vArr(1) * 1000 & "mm")
                
                vArr(0) = 0.37  '' moving X axis
                swView.Position = vArr
                vArr(1) = 0.25 '' moving Y axis
                swView.Position = vArr
                Call Part.EditRebuild3
                Call MsgBox("Current View Coordinates: X = " & vArr(0) * 1000 & "mm, Y = " & vArr(1) * 1000 & "mm")
            End If
            Set swView = Nothing
        End If
        Set swSelMgr = Nothing
        Set Part = Nothing
    End If
    Set swApp = Nothing
    If Err.Number <> 0 Then Err.Clear
End Sub

 

 

1 « J'aime »
10

Bonjour

1- Tu copies ton folio (comprenant ta vue ISO)

2- Tu fais glisser dans l'arbre ta nouvelle vue ISO vers le folio que tu souhaites

3- Tu supprimes ta copie de folio denevue inutile

 

Ta nouvelle vue se placera automatiquement à la même place que sur le folio d'origine.


capture.jpg
2 « J'aime »
11

Il faut faire comme pour la 2D, afficher le quadrillage

 

A+