Le centre d'un Cercle

[willy95]

Bonjour à tous,

 

J'ai vraiment du mal à ecrire quelques lignes en lisp pour récuperer les coordonnées du centre d'un cercle et son diametre que je viens de tracer par 3 points en utilisant (entlast).

 

Qui peux me guider sur une solution plutot simple.

 

Merci par avance.

[DenisHen]

Salut.

Tu as tout ici, le centre est le code DXF 10 et le rayon est le DXF 40.

[>>NicoM]

Je débute tout juste en lisp mais j'ai tenté de t'écrire un petit quelque chose:

(setq ent (car (entsel)))		; sélection du cercle
(setq ent-liste (entget ent))		; création de la liste
(if (= (cdr (assoc 0 ent-liste)) "CIRCLE")
				; vérification du type d'entité
 (progn
   (setq XY (cdr (assoc 10 ent-liste))); récupération des coordonnées dans la variable XY
   (setq R (cdr (assoc 40 ent-liste)))	; récupération du rayon dans la variable R
 )
 (alert "Ce n'est pas un cercle")
)					; fin du IF
(princ)

 

C'est probablement pas très bien écrit mais ça fonctionne chez moi.

[willy95]

Merci beaucoup pour vos prompt réponses utiles. :)

[Vincent P.]

Bonjour bonjour,

 

Allez donc jeter un coup d’œil ici :

https://www.da-code.fr/yinyang/

 

Lispement

Vincent P.

[willy95]

Mais en fait, je n'arrive pas à sélectionner le cercle juste avant tracé avec "entlast", ce bout de code me redemande par selection le cercle :(

 

(command "cercle" "3p" DiamPoint1 DiamPoint2 DiamPoint3)

(setq ent (car (entsel) ))                    ; sélection du cercle
        
(setq ent-liste (entget ent))                 ; création de la liste
(if (= (cdr (assoc 0 ent-liste)) "CIRCLE")    ; vérification du type d'entité
 (progn
   (setq XY (cdr (assoc 10 ent-liste)))      ; récupération des coordonnées dans la variable XY
   (setq R (cdr (assoc 40 ent-liste)))       ; récupération du rayon dans la variable R
 )
 (alert "Ce n'est pas un cercle")
)                                             ; fin du IF
(princ)

[DenisHen]

Salut, je pense que tu devrais remplacer :

(setq ent (car (entsel) ))

Par

(setq ent (car (entlast) ))

Mais je n'ai pas le début du LISP...

 

Denis...

[willy95]

Salut, je pense que tu devrais remplacer :

(setq ent (car (entsel) ))

Par

(setq ent (car (entlast) ))

Mais je n'ai pas le début du LISP...

 

Denis...

 

 

Malheuresement quand je fais ça (setq ent (car (entlast) ))

 

cela me dit : erreur: type d'argument incorrect: consp <Nom d'entité: 7ff4d69cb220>

 

il existe surement une petite subtilité que je ne connais pas.

[>>NicoM]

Si tu utilise un "entlast" plutôt qu'un "entsel", la vérification du type d'entité ne sert plus a rien. Tu peux supprimer tout ce qui s'y rapporte.

Garde quand même les deux lignes après le "progn".

[>>NicoM]

Remplace le tout par ça :

(setq ent-liste (entget (entlast)))

 

Plus besoin de la variable "ent" du coup.

C'est le "car" qui récupère le premier élément de la liste et qui supprime tous les autres éléments qui fait que tu n'as plus que l'identifiant.

 

Pour faire simple tu as juste besoin de ça :

(setq ent-liste (entget (entlast))) ; récupération de la liste du dernier cercle crée
   (setq XY (cdr (assoc 10 ent-liste))); récupération des coordonnées dans la variable XY
   (setq R (cdr (assoc 40 ent-liste)))	; récupération du rayon dans la variable R

[DenisHen]

Je pense que c'était le command qui déconnait, mais je n'en suis pas sûr...

 

Voici ce qui fonctionne :

(defun c:RecupDataCercle (/ ent Coord Ray)
 (command "_circle" "3p" pause pause pause)
 (setq ent (entget (entlast)))
 (setq Coord (cdr (assoc 10 ent)))	; récupération des coordonnées dans la variable XY
 (setq Ray (cdr (assoc 40 ent)))	; récupération du rayon dans la variable R
 (princ "\nCoordonnées du centre : ")
 (princ Coord)
 (princ "\tRayon : ")
 (princ Ray)
 (princ)
)

Denis...

[willy95]

Remplace le tout par ça :

(setq ent-liste (entget (entlast)))

 

Plus besoin de la variable "ent" du coup.

C'est le "car" qui récupère le premier élément de la liste et qui supprime tous les autres éléments qui fait que tu n'as plus que l'identifiant.

 

Pour faire simple tu as juste besoin de ça :

(setq ent-liste (entget (entlast))) ; récupération de la liste du dernier cercle crée
   (setq XY (cdr (assoc 10 ent-liste))); récupération des coordonnées dans la variable XY
   (setq R (cdr (assoc 40 ent-liste)))	; récupération du rayon dans la variable R

 

MERCI BEAUCOUP A TOUS, cette version fonctionne à merveille.

[willy95]

Et juste encore un petit détail, comment puis-je effacer mon cercle du début à la fin sans le sélectionner ?

[>>NicoM]

Déjà je suis content d'avoir pu aider :D

 

Pour supprimer une entité, il faut utiliser la fonction (entdel).

[willy95]

Encore un GRAND MERCI pour vos aides précieuses, tout fonctionne parfaitement comme je le voulais. Merci

[DenisHen]

De rien, content d'avoir rendu service... ;)