Récupérer les centres et les rayons de cercles

[Frog]

Bonjour à toutes et à tous,

Je suis débutant en AutoLisp.

J'essaye de récupérer dans un lisp les coordonnées XYZ des centres de cercles ainsi que les rayons de ces cercles.

En ce qui concerne les centres, j'ai du mal.

J'ai bien trouvé des routines déjà écrites, certaines fonctionnent mais seulement lorsque les cercles sont dans un plan horizontal.

Dés que les cercles se trouvent dans un plan quelconque, les coordonnées XYZ sont "fantaisistes". (Je suppose que ces valeurs ont tout de même un logique.)

J'ai même tenté avec ChatGPT et j'ai eu quelques résultats mais identiques aux routines trouvées sur le net.

Comment puis-je m'y prendre ?

D'avance merci.

[(gile)]

Salut,

Si tu utilises les coordonnées du groupe 10 de la liste DXF (telle que renvoyée par entget), celles-ci son définies dans le Système de Coordonnées Objet (SCO). Pour les convertir dans le Système de Coordonnées Général (SCG) avec la fonction trans.

(setq centre (trans (cdr (assoc 10 (entget cercle))) cercle 0))

Tu peux aussi, plus simplement, utiliser la fonction getpropertyvalue qui renvoie directement le centre dans les coordonnées du SCG.

(getpropertyvalue cercle "Center")

 

[Frog]

Un tout grand merci.

Je commence à comprendre cette fonction et je progresse dans le lisp que je tente de réaliser.