dcl - mais quels sont les nombres inclus?

[nicolas74]

Bonjour.
une question, j'ai fait un dcl dans lequel je remplis 3 chiffres qui sont x et y diamètre d'un cercle.
Si vous voulez résumer un de ces nombres écrits par l'utilisateur une certaine valeur, comment dois-je faire?
Je ne comprends pas la somme.
(setq yforoorig (+ y origine yforo)) y origine est un nombre, yforo est ce que l'utilisateur écrit dans l'onglet dcl ... fait écho erreur -> erreur: type incorrect - "50" où 50 est la chaleur écrite par l'utilisateur
ne me prend pas la transformation d'une chaîne en nombre, j'ai essayé
(setq yforoorig (+ y origine (à yforo))) erreur -> erreur : type argument non valide : chaîne de caractères : 10,0
il semble que le texte écrit dans les fenêtres n'est ni numéro ni texte... mais il prend comme coordonnée si je l'utilise pour dessiner un cercle
en fait ça marche
(setq posforo (strcat xforo ", yforo))
(commande "_cercle" posforo "d" diam)
Mais si vous voulez augmenter de 10 mm la coordonnée y trou comment puis-je??? ?

 

[Cristallo]

si xforo et yforo sont concaténables via strcat, évidemment ce sont des textes.
Si yforo n'était pas un texte, strcat retournerait une erreur.

mais (setq yforoorig (+ y origine (atof yforo))) retourne l'erreur car yforo est déjà un nombre.

Alors fais un tour quelque part qui ne te fait pas comprendre.

lire en valeur yforo par get_tile, et le résultat que vous avez est une chaîne.

y origine est certainement un nombre (même si je les avais retirés différemment, comme:
(setq x origine (nième 0 origine)
(origine définie (nième origine))
(origine setq z (nième origine)
sans voiture, sans cad et sans cdr, qui créent souvent la confusion
Et si peut-être, j'ai donné naissance à une nouvelle variable yforonum en leur attribuant a priori un atof conversion?

Évidemment je n'ai pas examiné en profondeur le lisp, malheureusement je n'ai pas le temps.. .

 

[Gio_S]

Pour moi, ça marche comme ça :
avant (start_dialog), dans le lisp qui lance le dcl, j'ai:
(action_tile "nota" "(setq usertext $value)")

dans le dcl:: edit_box { alignement = centré;
étiquette = "annotation";
valeur = "non";
clé = "note";

... J'écris dans l'édition 1234Je termine avec ok le dcl et de la ligne de commande que je fais, et j'ai les bonnes réponses:
commande & #160;: (texte utilisateur)
1234 "1234" commande & #160;: (principal (dans letexte utilisateur)
1234.00 1234.00

Donc j'ai passé 1234 comme une corde...