Drawing - Sélectionner une ligne

Bonjour à tous les fans de ScriptVBA,

J'aimerais sélectionner (ou détecter) une ligne dans un drawing grâce à la macro VBA et trouver les coordonnées de ses points d'extrémités. J'en ai besoin pour la suite du programme. Pourriez-vous m'aider à trouver ce code ?

N'hésitez pas à me contacter si le sujet n'est pas clair.
Je vous remercie d'avance si vous m'aidez à le trouver.

Bernie12

Bonjour,

Je pense que tu devrai nous donner un peu plus d'explication car si tu as un drawing, tu as donc une multitude de ligne donc sélectionner une ligne avec quel critère, quel condition....?

cdt,

raphael

Merci pour ta réponse, Rafa !

Par exemple, il faut prendre un drawing vierge et vous mettre dans le fond de calque dans lequel vous tracez une droite (toute simple et toute bête). Sur cet exemple, j'aimerais grâce à une macro sélectionner cette droite et obtenir les coordonnées des points d'extrémité de cette droite.

Votre aide est toujours la bienvenue.

Bernie12

Salut Bernie,

Ci dessous un petit code qui demande à l'utilisateur de sélectionner une droite tracée dans un CATDrawing et qui affiche les coordonnées des deux extrémités.

Code:

' macro pour afficher les coordonéées des extrémité d'une ligne
' http://catiav5.forumactif.org/t1466-drawing-selectionner-une-ligne#6554
Sub CATMain()

' *** Vérifie si le document actif est un CATDrawing ***

On Error Resume Next
Set MonDessin = Catia.ActiveDocument
If (Err.Number <> 0) Then
    MsgBox ("Un CATDrawing doit être actif")
   
    Exit Sub
End If
If (InStr(MonDessin.Name, ".CATDrawing")) = 0 Then
    MsgBox ("La fenêtre active doit être un CATDrawing")
        Exit Sub
End If
Err.Clear
On Error GoTo 0

' ***  Sélection de la ligne                        ***

Dim maLigne As Line2D
Dim maVue As DrawingView
Set Selection1 = MonDessin.Selection
Dim InPutObjectType(0)
InPutObjectType(0) = "Line2D"
' ***  Demande à l'utilisateur de sélectionner une ligne ***
Status = Selection1.SelectElement2(InPutObjectType, "Selectionner une ligne ", False)
    If (Status = "Cancel") Then Exit Sub
Dim SelectedElement1
Set SelectedElement1 = Selection1.Item(1)
Set maLigne = SelectedElement1.Value

' ***  Recherche des points                          ***

Set monPointDebut = maLigne.StartPoint
Dim StartCoordinates(1)
monPointDebut.GetCoordinates StartCoordinates
MsgBox "Point Départ X=" & StartCoordinates(0) & " / Y=" & StartCoordinates(1)

Set monPointFin = maLigne.EndPoint
Dim EndCoordinates(1)
monPointFin.GetCoordinates EndCoordinates
MsgBox "Point fin X=" & EndCoordinates(0) & " / Y=" & EndCoordinates(1)

End Sub