[Résolu] Doublage du dernier (princ

[DenisHen]

Bonjour à tous,

 

Voilà, j'ai fais quelques petits bout de LiSP et je me pose toujours une question, Pourquoi AutoCAD répète-t-il toujours le dernier princ ? exemple, dans cette macro :

(defun c:DHConfEtiqPTRL (/)
 (if (or (= (vlax-ldata-get "DenisH" "EtiqPTRL_XY") nil)
         (= (vlax-ldata-get "DenisH" "EtiqPTRL_XY") "")
     ) ;_ Fin de or
   (vlax-ldata-put "DenisH" "EtiqPTRL_XY" "O")
 ) ;_ Fin de if
 (setq EtiqXY (vlax-ldata-get "DenisH" "EtiqPTRL_XY")) ;
 (if (or (= (vlax-ldata-get "DenisH" "EtiqPTRL_Z") nil)
         (= (vlax-ldata-get "DenisH" "EtiqPTRL_Z") "")
     ) ;_ Fin de or
   (vlax-ldata-put "DenisH" "EtiqPTRL_Z" "O")
 ) ;_ Fin de if
 (setq EtiqZ (vlax-ldata-get "DenisH" "EtiqPTRL_Z")) ;
 (initget 1 "Oui Non")
 (setq EtiqXY (getkword "\nÉcrire l'X et l'Y [Oui/Non] ? ")) 
 (initget 1 "Oui Non")
 (setq EtiqZ (getkword "\nÉcrire le Z [Oui/Non] ? ")) 
 (vlax-ldata-put "DenisH" "EtiqPTRL_XY" (strcase EtiqXY))
 (vlax-ldata-put "DenisH" "EtiqPTRL_Z" (strcase EtiqZ)) 
 (princ (strcat "\n\nConfiguration actuelle : 	Étiquette XY = "
            	(vlax-ldata-get "DenisH" "EtiqPTRL_XY")
            	"        Étiquette Z = "
            	(vlax-ldata-get "DenisH" "EtiqPTRL_Z")
    	) ;_ Fin de strcat
 ) ;_ Fin de princ
) ;_ Fin:defun

 

AotuCAD me répète la dernière ligne :

Commande: DHConfEtiqPTRL

 

Écrire l'X et l'Y [Oui/Non] ? n

 

Écrire le Z [Oui/Non] ? o

 

 

Configuration actuelle : Étiquette XY = NON Étiquette Z = OUI"\n\nConfiguration actuelle : Étiquette XY = NON Étiquette Z = OUI"

 

Commande:

 

Je ne saisi pas trop...

 

Denis...

[VDH-Bruno]

Bonjour,

 

La deuxième invite est la valeur de retour de ta fonction lisp, le préfixe c: permet d'appeler ta fonction lisp sur la ligne de commande comme une commande AutoCAD, mais cela reste une expression Lisp qui retourne toujours la dernière expression évalué.

 

Pour évité cette "impression" d'écho sur ta ligne de commande en sortie de programme insère un (princ) qui te renverra un blanc.

 

A+

[DenisHen]

Bonjour,

 

Mille mercis Bruno,

 

Denis...