valeur de variable recracher dans la ligne de commande!

[jarod34]

Bonjour à tous,

 

Je reviens pour un petit problème que j'ai rencontré, qui peut paraître tout bête mais rienn'y fait je trouve pas d'exemple ou de solution!!!! :cool:

 

J'ai par exemple ce genre de code dans mon programme:

 

(setq eht (getdist "\nHauteur des textes: "))

 

Par conséquent quand j'execute il apparait sur ma ligne de commande "Hauteur de textes:"

 

or je voudrait qu'il apparaisse en même temps que ça la valeur actuelle de la variable "eht" ce qui donnerai:

 

"hauteurd de textes: <0.2>"

 

c'est ce qui est réaliser avec bcp de commande autocad comme "decaler" qui garde la derniere valeur de décalage rentré, c'est exactement ça que je recherche.

 

Donc si quelqu'un à une idée ou déjà été confronté à cette question et possédant un réponse je le remerci par avance, et merci d'avoir prit le temps de me lire!

 

J34

 

 

[Matt666]

Salut !

Tu as plusieurs solution pour ça.

 

Perso, j'utilise getenv et setenv. Ces fonctions écrivent les variables souhaitées dans le registre, et tu peux les rappeler quand tu veux.

 

Par exemple :

(defun c:test (/ eht)
   (if (not (getenv "hcotestxt"))
       (setenv "hcotestxt" "0.2")
   )
   (if (not (setq eht (getdist (strcat "\nHauteur des textes [" (getenv "hcotestxt") "] : "))))
       (setq eht (atof (getenv "hcotestxt")))
   )
   (setenv "hcotestxt" (rtos eht))
   (princ eht)
)

 

Après je n'utilise jamais getdist... plus getstring, car lorsque tu fais [entrée] pour avoir la valeur entre crochets ("hauteurd de textes: <0.2>"), getstring retourne "". C'est plus facile pour créer une condition !

(if (eq [variable] "") (setq [variable] "valeur entre crochets"))

 

[Edité le 2/9/2008 par Matt666]

[Patrick_35]

Salut

 

Ou encore avec une variable globale

(or eht (setq eht 2.0))
(setq eht (getdist (strcat "\nHauteur des textes <" (rtos eht) "> : ")))

 

C'est plus facile pour créer une condition

Ah bon ? Nil est aussi une valeur.

 

@+

 

[Edité le 2/9/2008 par Patrick_35]

[jarod34]

Merci beaucoup à tout les deux, pour vos réponse ultra rapide c'est très apréciable!

 

J'ai put trouver mon bonheur avec la ligne de Patrick_35:

 

(setq eht (getdist (strcat "\nHauteur des textes <" (rtos eht) "> : ")))

 

Ca marche parfaitement!

 

Encore merci et à bientôt!

;)