Récupérer les coordonnées du dernier clique

[DenisHen]

Bonjour à tous.

 

Voilà, je tente une routine qui récupère un texte avec :

(setq Txt_Prof (car (entsel "\nSélectionnez la profondeur :")))

Mais j'aimerais, "en même temps" récupérer les coordonnées de ce clique.

 

Si quelqu'un a une astuce, un conseil, je suis preneur...

[nosset]

Ah ah !!

 

Tu enlève le CAR ()!

(setq result (entsel "\nSélectionnez la profondeur :"))

Et tu traite result pour avoir le texte et les coordonnées

[DenisHen]

Salut nosset, et merci pour ton aide.

 

Mais je n'arrive pas à séparer les coordonnées. J'ai fais ce petit code, mais ça ne donne rien :

(defun c:PlaceAlti (/)
 (setq Txt_Clic (entsel "\nSélectionnez l'altitude :"))
 (setq Txt_Alti (car Txt_Clic))
 (setq Coord (cdr (assoc 10 Txt_Clic)))
 (princ "\nAltitude=")
 (princ Txt_Alti)
 (princ "\nCoordonnées=")
 (princ Coord)
 (princ)
)

[(gile)]

Salut,

 

Que retourne la fonction entsel ?

Quel est le type de Txt_Clic dans l'expression :

(setq Txt_Clic (entsel "\nSélectionnez l'altitude :")) ?

Si on peut faire : (car Txt_Clic), on devrait pouvoir aussi faire : (cdr Txt_Clic) ou (cadr Txt_Clic)...

[DenisHen]

Bonjour à tous, et désolé de cette absence, j'étais en long week-end.

 

Alors voilà, j'ai écris ça, mais je n'obtient pas ce que je voudrais :

(defun c:PlaceAlti (/)
 (setq Txt_Clic (entsel "\nSélectionnez l'altitude :"))
 (setq Txt_Alti (cdr (assoc 1 Txt_Clic)))
 (setq Coord (cdr (assoc 10 Txt_Clic)))
 (princ "\nAltitude=")
 (princ Txt_Alti)
 (princ "\nCoordonnées=")
 (princ Coord)
 (princ)
) ;_ Fin de defun

Le but est de récupérer le texte et les coordonnées d'un TEXT que je sélectionne.

[didier]

Coucou

 

essaie comme ceci :

 

(setq Txt_Clic (car (entsel "\nSélectionnez l'altitude :"))
 	Txt_Alti (cdr (assoc 1 (entget Txt_Clic)))
 	Coord (cdr (assoc 10 (entget Txt_Clic)))
 	)

 

amicalement

[DenisHen]

Salut didier, et merci pour ton aide.

 

Ça fonctionne nickel...

[didier]

Coucou

 

Bien sûr que ça fonctionne, je vérifie avant de poster

 

MAIS est-ce que tu comprends

POURQUOI ça fonctionne ?

et surtout

POURQUOI le tien ne fonctionne pas ?

 

Amicalement

[DenisHen]

Alors, je pense avoir compris, mais je ne sais pas si je vais bien l'exprimer.

 

Mon (setq Txt_Clic faisait référence à la totalité de l'entité sélectionnée.

 

Alors que ton (setq Txt_Clic est le nom de l'entité, dont on peut demander plus tard les différents codes DXF avec les (assoc X (entsel.