Aller au contenu

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


DenisHen

Messages recommandés

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...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

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)

Aide au téléchargement du cadastre dgfip-download-helper
Insertion de photos géolocalisées exif https://www.dropbox.com/s/gkf6o9ac2hxen97/exifscr.zip?dl=0
Script correction BUG SPDC V2, propriétaire département 21 et 22 : https://greasyfork.org/scripts/442400-spdcv2/code/SPDCV2.user.js

Lien vers le commentaire
Partager sur d’autres sites

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

 

Bon week-end à tous...

 

Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Salut à tous.

 

Merci, ça fonctionne nickel...

 

Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité