DenisHen Posté(e) le 27 septembre 2019 Partager Posté(e) le 27 septembre 2019 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 ifSachant que la structure du fichier lu est :1815973.751;9193280.949;135.63;135.61815971.444;9193282.346;135.65;135.581815980.21;9193276.813;135.67;135.611815986.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 More sharing options...
vincentp010 Posté(e) le 27 septembre 2019 Partager Posté(e) le 27 septembre 2019 Bonjour, C'est parce que tu utilises l'apostrophe pour définir une liste et les valeurs ne sont pas évaluéesPt1 '(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 More sharing options...
Olivier Eckmann Posté(e) le 27 septembre 2019 Partager Posté(e) le 27 septembre 2019 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 Lien vers le commentaire Partager sur d’autres sites More sharing options...
DenisHen Posté(e) le 27 septembre 2019 Auteur Partager Posté(e) le 27 septembre 2019 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 More sharing options...
DenisHen Posté(e) le 30 septembre 2019 Auteur Partager Posté(e) le 30 septembre 2019 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 More sharing options...
Messages recommandés
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 compteSe connecter
Vous avez déjà un compte ? Connectez-vous ici.
Connectez-vous maintenant