Une question pour les programmeur LISP

[Neo83]

Bonjour à tous,

J'ai pris des bouts de LISP à droite à gauche pour en faire un truc sympa.

Le but est de pointer une seule fois une entité. Le prog détermine s'il s'agit d'un texte, mtexte ou d'un attribut. Mon soucis est le suivant, je ne sais pas comment récupérer le point où je clique et la nature de l'objet en même temps. Mon prog me fait cliquer deux fois au même endroit.

Avez vous une solution pour ne cliquer qu'une seule fois?

Merci à vous.

 

Je ne suis pas programmeur, soyez indulgent.

 

(defun c:dd ()

(progn

(setvar "cmdecho" 0)

(setq ep

(entget

(car (entsel "choisir un texte\n"))

)

)

(setq cc (cdr (assoc 0 ep)))

(setq ed (getpoint))

(if (= cc "TEXT")

(progn

(command "ddedit" ed)))

(if (= cc "MTEXT")

(progn

(command "ddedit" ed)))

(if (= cc "INSERT")

(progn

(command "MODIFATTRINSITU" ed)))

(setvar "cmdecho" 1)

)

)

[Matt666]

Salut !

Si tu enlèves le (car...) avant (entsel ...) tu verras que la fonction retourne le nom de l'entité sélectionnée ET le point cliqué.

Essaie un (entsel) seul sur une entité, tu verras...

;)

[bseb67]

Salut Neo83,

 

en regardant l'aide sur entsel, tu découvres que cette fonction renvoie:

A list whose first element is the entity name of the chosen object and whose second element is the coordinates (in terms of the current UCS) of the point used to pick the object.

 

Càd: l'entité sélectionnée dans le "car" et les coordonnées dans le scu en-cours dans le "cadr"

 

Et voilà :D ,

sauf que pour le Z, il te renvoie la valeur de la variable autocad ELEVATION

 

[Edité le 7/10/2009 par bseb67]

[Neo83]

Salut,

Comme je vous l'ai dit, je ne suis pas programmeur mais simple dessinateur.

Donc si vous pouviez être plus clair...

Lorsque j'enlève le car devant entsel cela me donne,

 

Commande: dd

choisir un texte

; erreur: type d'argument incorrect: lentityp (

(2377.23 252.715 0.0))

 

Cela fonctionne encore moins qu'avant. Donc Please, please, help me...

 

Merci à vous.

 

[bonuscad]

Comme ceci !

 

Regarde les petites différences avec ton code et essayes de comprendre...

(defun c:dd ( / ent dxf_ent typ_ent)
(setvar "cmdecho" 0)
(while (null (setq ent (nentsel "\nChoisir un texte: "))))
(setq dxf_ent (entget (car ent)) typ_ent (cdr (assoc 0 dxf_ent)))
(cond
	((or (eq typ_ent "TEXT") (eq typ_ent "MTEXT"))
		(command "_.ddedit" (cadr ent))
	)
	((eq typ_ent "ATTRIB")
		(command "_.ATTIPEDIT" (cadr ent))
	)
	(T
		(princ "\nImpossible d'éditer l'objet sélectionné.")
	)
)
(setvar "cmdecho" 1)
(prin1)
)

[Neo83]

Merci, Merci bonuscad.

Mais sans traduction pour moi cela reste du gresque ancien, et sans pierre de Rosette.

Il n'était pas possible de modifier "mon collage" pour arriver à mes fins?

De toutes manières merci.