Récupér des coordonnées de point en draw ou sketch

Bonjour à tous et toutes.

Je suis nouveau dans le domaine du vba sous catia et je cherche à récupérer des coordonnées de points pour ensuite en faire une liste.
Je suis bloqué dès le début !

Quelqu'un peut'il m'aiguiller ?

Merci.

Salut,

J'ai déjà tenté de faire une macro permettant de récupérer des points dans les 3D

Je pense qu'en 2D ça doit être plus simple.
Quel serait la référence des coordonnées de tes points?

Si c'est dans le plan où ils sont dessiner il suffit d'en récupérer les paramètres, vu que dans l'arborescence c'est explicite.

J'ai une suite de points qu'il faut que je clique dans un certain ordre.
Ensuite il me faut exporter ces points ( tableau ou excel ).

oui mais ces points sont créé comment ?

Ces points sont déjà créés.
Comment : par des intersection de droites, ou sur quelques courbes.
Au final ces points définissent une forme externe de section composée à la base de droites et de rayons. Ces dernier sont discrétisés en segments. ==> Il ne reste que des points limitant des segments

Est ce que ut as le module Digitalized Shape Editor ?
Il y a déjà des fonctions d'export de point.

Jette un oeil avant de te lancer dans une macro ça pourrait faire ce que tu veux

Non, je n'ai pas ce module.
J'ai déjà trouvé comment exporter un tableau mais pas comment le créer dans le sens voulu.

Voici l'etat d'avancement de mon code pour le moment :

Sub Recup_Gabarit()

'' choix de la résolution a 4 digits

'' choix des points

'' choix du point de reference

'' export tableau

Set odrawing = CATIA.ActiveDocument
Set osel = odrawing.Selection
Dim inpsel(0)
inpsel(0) = "DrawingTable"
osel.Clear
st = osel.SelectElement2(inpsel, "Selectionnez un tableau", False)
Set DrwTbl = osel.Item(1).Value
Set myexcel = CreateObject("Excel.application")
Set myexcel = GetObject(, "Excel.Application")

If Err.Number <> 0 Then ExcelWasNotRunning = True
Err.Clear
Set myexcel = GetObject("C:\Temp\P3.xls")
myexcel.Application.Visible = True
myexcel.Parent.Windows(1).Visible = True
myexcel.Sheets.Add
For i = 1 To DrwTbl.NumberOfRows
For j = 1 To DrwTbl.NumberOfColumns
myexcel.ActiveSheet.Cells(i, j) = DrwTbl.GetCellString(i, j)
Next
Next

End Sub

"comment le créer dans le sens voulu."

c'est à dire? détail un peut plus, parce-que c'est tout de même assez vague.

Je vois que dans ta macro tu séléction un tableau dans un drawing et que tu créé un tableau Excel et que tu transferts les données du tableau drawing vers le tableau excel

Explication du besoin : j'ai une suite ordonnée de points 2D ( non pas en X croissant ou Y croissant mais selon ce que veux le dessinateur ). Je veux exporter ces points vers un fichier ( excel, fichier text, csv ).

Oui mais dans catia, t'est points sont représenté comment ?
dans un drawing ? dans un sketch ? les poitns sont tous dessinés dans un même plan ?
Les points coordonnées des points sont directement lié au repère de pièce?
t'as pas une copie d'écran de ce que tu as comme point de départ ?

Points dans un drawing.

Je ne peux pas te donner une copie d'écran, je suis bloqué par mon firewall ( je ne suis pas chez moi mais au taf ).

Point de départ : le premier sélectionné par exemple.

Tu le sélectionne dans quel atelier ?
Tu parles de "draw ou sketch" c'est pas pareil

Je parle de drawing et pas de sketch.

Ok, car dans ton titre tu parlais de sketch également.

Aprsè quand tu dis dans le sens voulu ? c'est de lister les points dans un ordre bien précis?
Si oui, qu'est ce qui manuellement te permet d'identifier l'ordre de tes points ?
C'est cette démarche qu'il faudra automatiser.

En fait, je veux la chose suivante :

- Savoir choisir un point quelconque dans un draw ( à la souris ) et récupérer ses coordonnées avec une résolution à 4 digits après la virgule en vba.

- Pour ce qui est de l'automation c'est du vba standard, je ne suis pas trop inquiet.

En résumé, ce sont surtout les fonctions vba particulières à catia que j'ai du mal comprendre.

Au final le déroulé opératoire serait le suivant :

- Ouverture d'un drawing.
- Choix point de ref.
- Choix des points de mon profil.
- calcul des ces points dans le repère orthonormé centré sur le point de ref.
- Exporter le tout dans un fichier txt, cvs, ....

Ok, j'y vois plus clair maintenant.

As tu des fonctions plus précise sur lesquelles tu veux plus d'infos ?
A quelle moment de ton automatisation bloques tu ?

Je bloque dès le début, c'est à dire : comment demander à l'opérateur de cliquer sur un point et de pouvoir récupérer les coordonnées.

Après je dois savoir faire.

Info : existe t 'il un lien web sur le quel trouver un didacticiel et non un fichier .chm ? Je n'ai rien trouvé de tel.

msgbox 'ton message'

Il n'y a que le Chm, même les gars de la hotline utilisent ce fichier ... (j'ai été déçu la dernière fois que j'ai fais appelle à eu ... :/ )

Pour ma part l'exemple depuis lequel j'étais parti pour ma fonction était l'exemple de la fonction
SelectElement2

recherche la dans l'aide (tape SelectElement2 dans ton code et fait F1 tu devrais tomber dessus)

Super, je vais partir là-dessus et je te tiens au courant

si j'ai le temps je jette un oeil plus précisément sur le sujet

Je m'y remets demain matin.

En résumé : pas facile de s'y retrouver dans la jungle des .chm

y 'en a pas 36, y en a même qu'un
V5Automation.chm dans le rep
...\Dassault Systemes\Rxx\win_byy\code\bin
xx = version de catia 18, 19, 20, 21 ...
yy = 64 ou 32

Merci de l'info.

Ça avance.

Je sais sélectionner un point mais pas encore trouver ses coordonnées.



Sub CATMain()

Dim Selection1 As Object
Set Selection1 = CATIA.ActiveDocument.Selection

Dim InPutObjectType(0)
''InPutObjectType(0) = "AnyObject"
InPutObjectType(0) = "Point2D"
Status = Selection1.SelectElement2(InPutObjectType, "Select a point", False)

Dim selectedElement1
Set selectedElement1 = Selection1.Item(1)

MsgBox selectedElement1.Name
MsgBox selectedElement1.Type



End Sub