[Résolu] Petit problème de chaîne...

[DenisHen]

Bonjour à tous.

 

Voilà, aujourd'hui, je tente de lire un fichier avec des coordonnées (entre autres) pour faire un zoom sur ces coordonnées, afin d'y sélectionner un bloc pour modifier son attribut (nommé ".", ce n'est pas mon bloc).

 

J'ai donc écris ça :

  (if (setq filename (getfiled "Sélectionner le fichier des corrections" "" "csv;*" 0) ;_ Fin de getfiled
     ) ;_ Fin de setq
   (progn (setq Fich (open filename "r"))
          (while (setq line (read-line Fich))
            (setq ListData (str2lst line ";"))
            (setq X   (atof (car ListData))
                  Y   (atof (cadr ListData))
                  Znouv   (atof (caddr ListData))
                  Zanc (cadddr ListData)
                  X1  (- X 2)
                  X2  (+ X 2)
                  Y1  (- Y 2)
                  Y2  (+ Y 2)
                  Pt1 '(X1 Y1)
                  Pt2 '(X2 Y2)
            ) ;_ Fin de setq
            (command "zoom" "_w" Pt1 Pt2)
            (setq Obj (car (entsel (strcat "\nSélectionner l'étiquette (" Zanc ")"))))
            (vl-catch-all-apply 'setpropertyvalue (list Obj "." (rtos Znouv 2 2)))
          ) ;_ Fin de while
   ) ;_ Fin de progn
 ) ;_ Fin de if

Sachant que la structure du fichier lu est :

1815973.751;9193280.949;135.63;135.6

1815971.444;9193282.346;135.65;135.58

1815980.21;9193276.813;135.67;135.61

1815986.122;9193272.812;135.67;135.63

....

Sauf que ça ne fait pas du tout de zoom, j'ai ôté deux mètres et en a ajouté deux autres aux coordonnées de base pour faire le zoom... La boucle ne me demande uniquement de sélectionner le bloc, sans faire le "zoom" dessus, le changement d'attribut fonctionne très bien...

 

Si quelqu'un a une idée, une solution, un conseil... Je suis preneur...

 

Bonne journée à tous...

 

Denis...

[vincentp010]

Bonjour,

 

C'est parce que tu utilises l'apostrophe pour définir une liste et les valeurs ne sont pas évaluées

Pt1 '(X1 Y1) --> Pt1 = (X1 Y1) ;X1 et Y1 ne sont pas évaluées et son mis tel quel
Pt2 '(X2 Y2) --> Pt2 = (X2 Y2)

 

Si tu veux les valeurs de X1 et Y1 évaluées, il faut utiler (list)

Pt1 (list X1 Y1)
Pt2 (list X2 Y2)

[Olivier Eckmann]

De plus, plutôt qu'un zoom fenêtre, un zoom centre serait plus rapide (pas d'autre variable à créer).

(command  "_zoom"  "_c"  (trans  (list X Y)  0  1)  4)

 

 

Olivier

[DenisHen]

Merci à vous deux, je testerais tous ça demain...

 

Bon week-end à tous...

 

Denis...

[DenisHen]

Salut à tous.

 

Merci, ça fonctionne nickel...

 

Denis...