DenisHen

Bonjour. Nous avions aussi des T730, on a changé pour des T1600 avant cet été. C'est pas mal, mais quelques petits soucis (mais absolument rien de "grave" pour l'impression de PDF. L'imprimante peut travailler avec la moitier d'un fichier, elle trace donc la moitier du plan... Mais je troule le pilote très "restrictif", pas beaucoup d'options pour les sorties. Mais elle est très rapide en N&B. Pour le bruit, ça peut passer, elle est à 5 ou 6 mètres de moi, et il ne me dérange pas plus que ça. Et en N&B, un A0 sort tellement vite, que je n'entends que la découpe. Par contre, je déconseil toujours, pour ceux qui impriment régulièrement, de choisir de long rouleaux, Personnellement, je n'utilisais que des 90m minimum (il en existe des plus long). Actuellement, on utilise des 50m, on les change toutes les deux semaines... Dommage... Mais le chargement est efficace, c'est rare que le papier dévit et que nous devons le recharger. C'est particulièrement pénible, car j'imprime parfois au bureau depuis chez moi (le soir) pour mes collègues de terrain (le lendemain matin) puissent avoir les plans à jour... Donc, ils rechargent le rouleau, et patientent en attendant (ce qui leur donne l'occasion de boire un dernier café avant le terrain 😉 ). Voici mon petit retour... Bien à toi la communauté. Denis...

Salut Didj05. Juste quelques précisions, qui datent un peu, mais peuvent être encore utiles : Vous-a-t'il expliqué que la précision que tu reçois de la part des concessionnaires n'est qu'indicative ? (en gros, ils ne connaissent pas leur réseau à 100%, ce que je trouve "logique", pas normale, mais "logique" : imagine la fortune pour redétecter la totalité de leur infrastructure ?), MAIS, si ils ont des données plus précises, ils sont dans l'obligation de te les transmettre. Ton formateur avait raison, ils sont tenu de te transmettre leurs données numériques, mais seulement si ils les ont (grosse différence). Une numérisation d'un plan pourrit datant de 50 ans et tout déformé, c'est une donnée numérique 😉 )... Par contre, pour un "recalage" dit "Helmert', fait très attention, ce type d'adaptation fonctionne toujours ! ! ! Préfère une adaptation (car c'est le vrai nom, il me semble) avec un EMQ (Erreur Moyenne Quadratique avec des limites, ce doit être paramétrable avec Helmert aussi). Grace à ça, tu sauras (selon la précision demandée) si ton adaptation est peu, moyennement ou très déformée... Pour ta remarque, ENEDIS a presque "répertorié tout ses réseaux", mais avec nos impôt (ou en partie), pour d'autres, ce n'est pas les mêmes fonds... Je te conseillerais, si tu as souvent besoin de connaitre les réseaux souterrain de faire appel à un prestataire. Ton formateur a dû te dire que, si tu creuses, tu es l'unique responsable, (même si tu as les DT/DICT en possession sur le terrain) sauf (je cherche le bon terme)... Si "on" (un prestataire) te dit qu'il ne faut pas creuser (je suis certain que ce n'est pas ça; mais à mon époque)... Maintenant, si tu creuse : TU es responsable, raison pour laquelle il y a de plus en plus de société qui propose des services de détections souterraines, tout réseaux. Mais je te parle d'un temps que les moins de vingt ans... Je pense que tout cela a du beaucoup changé et/ou évolué depuis mon époque. Il y a aussi des services en ligne, qui ne te demandent que la zone de travaux, et se chargent du reste... Attends de lire les avis contraires au mien, je ne fais que prodiguer ma faible expérience. Bon courage à toi. Denis...

Coucou @Luna et merci pour ton aide. Voici mes "résultats" couplés à ceux de la console : _$ (setq lst1 '()) nil _$ (repeat (setq n 5) (setq lst1 (append lst1 (list (setq n (1- n))))) ) Je m'en doutais. _$ (setq lst2 '()) nil _$ (repeat (setq n 5) (setq lst2 (append (list (setq n (1- n))) lst2)) ) (0 1 2 3 4 Pareil, je pensais au même résultat. _$ (repeat (setq n 5) (setq lst3 (cons (setq n (1- n)) lst3)) ) (0 1 2 3 4) Là, je pensais à un résultat différents à List2, peut-être à cause de append et cons ? (setq lst4 '()) nil _$ (repeat (setq n 5) (setq lst4 (cons lst4 (setq n (1- n)))) ) (((((nil . 4) . 3) . 2) . 1) . 0) par contre, ça, je ne m'y attendais carrément pas ! ! ! Le résultat me surprend même ! ! ! Une paire pointée, pointée, pointée et pointée, puis encore pointée ! ! ! Salut @(gile), je viens de faire un premier test, j'ai tapé dans la console : (10 . ("Pouette" "Tobogan" "EtAutre")) Et ZOU ! ! ! AutoCAD a planté ! ! ! Je redémarre le tout et je reviens...

Je n'ai jamais dis que ce n'était pas claire, je dis juste que j'ai du mal à bien comprendre... Et je l'ai déjà dis : (cons "a" '("b" "c")) retourne ("a" "b" "c") N'est pas systématique (je m'aventure, et m'y perd)... Notamment avec les paires pointées... Tout comme les vl-sort, qui ne fonctionnent pas avec les paires pointées... Ce que je comprends, mais pour d'autres (comme pour moi, à mes débuts) ce n'est pas évidant... Et je n'ai jamais lu la différence entre (cons et (append... Je ne critique pas votre façon de professer, mais vous êtes trop éloigné des novices qui vous suivent et qui vous lisent... Je suis prof de guitare depuis une petite vingtaine d'années, mes élèves sont passionnés, bien plus qu'à leurs débuts... Pourquoi ? ? ? Mais je suis toujours là, toujours présent, toujours à leur dire : "L'apprentissage est dans la répétition" (Socrate ? ?). Je me répète sans cesses, je fais toujours les même choses avec mes élèves... Mais je ne baisse jamais les bras, je persiste, et ils parviennent toujours à ce qu'ils considéraient comme inaccessible... Mais ils font maintenant du " Keith Richards", du "Clapton"... Et on se fait des parties de plaisirs énormes ! ! ! Et mes élèves ont de 8 à 80 ans ! ! !

Tu m'étonnes ! ! ! Je passe un temps infini dans la console pour faire des tonnes de testes (merci aux grands : (gile) didier, Bonus, Nihon...) Car comme tu me l'a déjà expliqué (toi (gile) comme d'autres) et je découvre des raccourcis grâce à cette console... Ce que j'ai compris des paires pointées : Un élément primaire jumelé avec un autre élément. Le premier peut être plein de valeur (Integer, string...) et le deuxième, associé, toute forme de "valeur" : une chaine, un nombre, une liste... Un peu comme si une clef (car) pouvait ouvrir une serrure (cdr), ou plusieurs serrures, avec une seule clef... Je n'ai jamais eu l'occasion de vérifier cette explication, mais je pense qu'elle reste valable... Je le saurais quand j'en aurais besoin... J'ai bon, Messieurs les pro ?

Salut bonuscad... Il me semble que j'ai vu des paires pointées avec des listes quelques part, et je ne pense pas que ce soit interdit : (10 . ("Pouette" "Tobogan" "EtAutre")) Je pensais que les paires pointées était presque sans limites, et d'une approche très facile, comme avec les liste DXF des entités...

Ok, je viens de comprendre la différence entre itoa et rtos, que je n'avais pas vu avant... Merci...

LignXLS est un integer, mon compteur de ligne. Je n'ai pas besoin du (rtos ?

Bonjour à la communauté. Aujourd'hui, je fais plusieurs taches consécutives dans un classeur Excel. Je lis le contenu d'une feuille, puis écris dans cette même feuille les attributs de centaines de blocs. J'ai réussi à tout faire, sauf l'écriture dans le feuille. J'aimerais éviter des lisp externes qui vont ouvrir et fermer plusieurs fois le classeur, ce qui serait plus long je pense. J'ai regardé les lisp de @(gile) (WriteExcel et ReadExcel) pour m'en inspirer (et où j'ai piqué "Number2Alpha"), mais comme d'habitude, ils sont trop bien fait pour moi. Donc, voici comment je lis la feuille : ;;; ************************************************** ;;; Lecture des données du fichier Excel (setq fichier (findfile FichXls)) (setq xls (vlax-get-or-create-object "Excel.Application")) (setq classeur (vlax-invoke (vlax-get xls 'Workbooks) 'open FichXls)) (setq feuille (vlax-get-property (vlax-get classeur 'Sheets) 'Item "AutoCAD")) Puis : (while (/= (setq ValCellule (vlax-get (vlax-get-property feuille 'Range (strcat (Number2Alpha Col) "1")) 'Value)) nil) ........ (setq Col (+ 5 Col)) ) ;_ Fin de while Je cherche donc, si toutes fois cela existe, une méthode similaire pour écrire dans cette feuille, puis enregistrer le classeur. J'avais fais quelques tentatives avec ce genre de syntaxe, mais je n'ai rien trouvé de probant sur le net : (vlax-put (vlax-put-property feuille 'Range (strcat (Number2Alpha ColXls) (rtos LignXls 2 0))) 'Value2(rtos SurfHab 2 2)) J'ai aussi tenté d'utiliser "WriteExcel", mais je n'ai pas compris l'utilisation de la variable "dataList". Mon but étant d'ouvrir un classeur, lire une feuille précise (nommée "AutoCAD"), organiser mes attributs selon l'organisation de la feuille, écrire les attributs dans la feuille, enregistrer le classeur et le fermer.

Oui, c'était mon but au départ. Construire correctement une liste de paires pointées pour qu'elle soit efficace ensuite avec un simple (assoc...

Comprendo, comprendo... C'est vite dit, je te dirais ça dans une paire d'années 😉😀... J'arrive à piger le truc, mais de là à le refaire... Oulala ! ! En tous cas, merci pour l'explication.

Bonjour @didier. Je suis entièrement d'accord avec toi, pour la charrue, la base du lisp (Lits Identifiés Soins Palliatifs ?)... Mais parfois, on n'a pas beaucoup de temps entre marcher et courrir, et c'est mon cas... Je traine donc une grosse casserole de mauvais reflexes issus d'un apprentissage isolé avec un seul bouquin (tout bleu avec une disquette, mais que je n'ai plus)...

Et chose incroyable, je fini souvent par faire une longue chaine avec séparateur ("Pouette;Encore;Autre;....") que je transforme en liste plus tard (un grand merci pour str2lst) pour la traiter correctement ! !

Merci (gile) pour ce lien. J'ai lu ce genre d'explications plusieurs fois (ton "Introduction...", ce lien, DA-Code....), mais dès que je reprend le Lisp, je me "reforme" aux listes... Ca ne veux pas rentrer ! Le reste j'arrive à piger, j'arrive à faire plein de trucs, parfois des pas si simples, mais les listes me perdent systématiquement... Pourtant, je sais bien que c'est un atout indéniable pour le lisp, mais rien n'y fait... Je perd un temps incroyable dès qu'il faut que je touche à une liste.

Salut Bonuscad et merci pour ton aide. Ce que j'avais tenté (et qui ne fonctionnait pas) était : (setq Lst (cons "Encore" 74) (cons Lst))) Merci pour cet exemple. En revenche, je ne comprend pas le : (cdr (nth (vl-position "Encore" (mapcar 'car lst)) lst)) Ca cherche dans la totalité de la liste (contenant d'autres listes) la paire pointée ?