nom d'une vue

Bonjour,

Dan s un DRAWING, je veux à partir d'une sélection (droite, courbe, texte..) trouver le nom de la vue .
Pouvez vous m'aider?


Merci d'avance,

Raphael

Salut Raphaël,

Je ne sais pas comment tu as fait ta sélection, mais essaie le code suivant

Code:


Set SelectedElement1 = mySelectObj.Item(1)
myviewName = SelectedElement1.Value.Parent.Parent.Name

avec "mySelectObj" qui contient le résultat de ta sélection

Bonjour,

je sélectionne simplement un trait, une courbe dans une des vues à l écran.

voila ce que je cherche  faire.

dans mes plans j ai beaucoup de calque et j essais de gagné du temps. Donc pour éviter de faire un clic droit sur le contour d'une vue et ensuite activer la vue.
Je souhaite sélectionner une droite, une courbe, des hachures... et de cliquer sur un icone (lié à une macro) pour activer la vue de ma sélection.

j’espère avoir été assez claire.

j'attend votre aide car même avec le morceau de lumpazepfel je n y arrive pas .

raphael

Salut Raphaël,

Voici un petit code:

Code:

'http://catiav5.forumactif.org/t1634-nom-d-une-vue#7186
'active la vue de l'élément sélectionné
'Marc 02/03/2018 vba

Sub CATMain()
Dim oSel As Selection
Set oSel = CATIA.ActiveDocument.Selection
Set myDrawing = CATIA.ActiveDocument
Set mySheet = myDrawing.Sheets.ActiveSheet
'MsgBox "Number of objects selected: " & oSel.Count
Dim i As Integer
For i = 1 To oSel.Count
Dim oSelEl As SelectedElement
Set oSelEl = oSel.Item(i)
If oSelEl.Type = "Sketch" Then 'si un élément géométrique est sélectionné
    myviewName = oSelEl.Value.Name
Else                            'si une cote ou un texte est sélectionné
    myviewName = oSelEl.Value.Parent.Parent.Name
End If
'MsgBox "The Selected element's type is " & oSelEl.Type
mySheet.Views.Item(myviewName).Activate
Next
oSel.Clear
End Sub



Bonjour,

Merci a toi lumpazepfel pour ton aide, grâce à ton code et en perçant un peu j'ai trouvé mon bonheur, le voici est il fonctionne nickel.

Code:

Sub CATMain()
Sub CATMain()
Dim a As Integer, b As Integer
Dim oSel As Selection
Dim i As Integer
Dim oSelEl As SelectedElement

Set oSel = Catia.ActiveDocument.Selection
Set myDrawing = Catia.ActiveDocument
Set MySheet = myDrawing.Sheets.ActiveSheet

On Error GoTo errorHandler

For i = 1 To oSel.Count
 
        Set oSelEl = oSel.Item(i)
   
    For a = 1 To MySheet.Views.Count ' permet de connaitre de boucler sur le nombre de vue
   
        If MySheet.Views.Item(a).Factory2D.Name = oSelEl.Value.Factory2D.Name Then 'recherche de la valeur commune à la feuille comme à la selection dans ce cas c'est le factory2D.name
            MySheet.Views.Item(a).Activate
       
        End If
    Next
   
Next
oSel.Clear
Exit Sub
errorHandler:
    MsgBox " Veuillez selectionner un element ou une vue"

End Sub

A+ encore merci

Ps il faudrait que l'administrateur le mette en outils pour le drawing c'est bien pratique

Raphael