transformer dwgname en liste

[pascal19]

Bonjour

 

Comment puis je transformer dwgname en liste afin d'utiliser le deuxième élément de cette liste dans une routine ?

 

[bonuscad]

Bonjour,

utiliser le deuxième élément

?!?!

 

Il n'y a qu'un élément dans la variable (en lecture seule), qui est une chaine de caractère (STRING) pour celle-ci...

 

donc

(list (getvar "DWGNAME")) 

doit suffire...

[pascal19]

mes fichiers s'appellent 01xxxxxx.dwg 02xxxxxx.dwg ... je voudrais poser une condition sur le deuxième caractère du nom (ici 1 ou 2).

[bonuscad]

condition sur le deuxième caractère du nom

 

Pas besoin de constituer une liste, utilise simplement la fonction (substr)

Ex:

(substr(getvar "dwgname") 2 1)

[pascal19]

zut je l'avais presque, j'avais loupé la longueur ( 1 )

par contre mon résultat est une chaine, je peux l'utiliser comme condition:

(if (= résultat "1") ... ?

[pascal19]

j'ai fini ma petite routine, je crois que ça marche!

 

 
(defun c:rpint()
 (setq chint (atof (substr(getvar "dwgname") 2 1)))
 (if (= chint 8.0)
   (setq pint '(658800.0 84650.0))
   (setq pint '(658750.0 84650.0))
   )
 )

 

merci bonuscad pour le coup de main