Discussion :

[fpaniconi]

Salut,

J’ai une question sur AutoCAD…

Je cherche à convertir une chaine de caractère en nombre…

J’ai des calques numérotés de 0 à XXX.

Avec la variable clayer j’obtiens le nom du calque mais en chaine de caractère et non en nombre. Le but du jeu pour moi est de changer de calque sans entrer le nom du calque suivant et donc de faire +1 sur le calque courant. J’ai écris un lisp qui marche bien en entrant le nom du calque, mais je n’arrive pas à faire la chose citée plus haut.
Merci de vos réponses.



Mon lisp :

(defun c:cf ()

(progn

(setq folio (getstring "\n Folio à activer : "))

(command "-calque" "li" "*" "ac" "*" "dev" "*" "ch" folio "ge" "*" "li" "elec-cfo,fdp,0" "" )

(command "zoom" "et")))

[Strab]

Les conversions de type en CLisp se font avec la fonction coerce :
http://www.supelec.fr/docs/cltl/clm/...00000000000000

Je doute qu'elle puisse convertir une chaine de caractères en entier, mais une fois que tu as une séquence d'entiers c'est facile d'en faire un entier.

[Garulfo]

Je cherche à convertir une chaine de caractère en nombre…[...]

En fait si je comprends bien, tu ne veux pas la convertir en nombre... mais tu veux lui associer un numéro pour pouvoir l'identifier.

Par exemple tu aimerais que la liste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

'("-calque" "li" "*" "ac" "*" "dev" "*" "ch" folio "ge" "*" "li" "elec-cfo,fdp,0" "")

soit transformé en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 '(1 2 3 4 5 6 7 8 9 10 11 12 13)

et que tu puisses ainsi trouver que 1 correspond à "-calque", 2 à "li" etc. ??

Non ?

Ou bien veux tu d'une fonction de conversion qui transforme une chaîne de caractères en un nombre qui le caractèrise ?? Ce dernier passage (la caractérisation) est difficile ... il faut utiliser des nombres premiers. Mais ce n'est pas une bonne idée...

Donc dis moi... c'est quoi que tu veux ^_^ ?
Si c'est le premier truc, c'est très facile.

[_gile]

Salut,

Une réponse fort tardive.
AutoLISP fournit les fonctions atoi et itoa pour convertir, repectivement, une chaine en entier et un entier en chaine.

(atoi "1") retourne 1
(itoa 1) retourne "1"

Donc pour activer le calque suivant le calque courant, s'il existe, le "0" sinon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
(setq suivant (itoa (1+ (atoi (getvar "CLAYER")))))
(or (tblsearch "LAYER" suivant) (setq suivant "0"))
(setvar "CLAYER" suivant)