Olivier Eckmann

Bonjour, Je viens d'envoyer ma liste au Père Noël pour un nouveau PC portable: i9 10900K, 64Go RAM, RTX 2080Super, 6To SSD J'attends la réponse Olivier

Bonjour, Il faut mettre les commandes du script dans un fichier avec l'extension .PS1 et créer un .BAT avec les infos Powershell.exe -executionpolicy remotesigned -File "C:\Path\script.ps1" https://stackoverflo...t-from-ps1-file https://www.windowsc...file-windows-10 Olivier

Bonjour, Via powershell ça semble possible : https://superuser.com/questions/1163753/converting-text-file-to-utf-8-on-windows-command-prompt Olivier

Bon, Finalement, même si c'était très fréquent avec AutoCAD 2019, j'ai eu aussi un crash avec AutoCAD 2015. J'ai viré les drivers Nvidia de décembre et j'ai remis le dernier de novembre. (457.30) Depuis samedi, plus aucun crash. Tout refonctionne. Je reste comme cela pour le moment. Olivier

Bonjour, Normalement, si plus aucun objet ne possède le type de ligne CONTINU, il suffit de purger pour le faire disparaître. S'il n'est pas purgeable, c'est qu'il est encore utilisé, donc non supprimable. Olivier

Oui, c'est vraiment bizarre. Je vais attendre et refaire un test dès que la charge de travail va baisser un peu. Olivier

OK Merci pour ces retours. Je vais attendre les vacances pour basculer. Si je pose la question, c'est que hier, j'ai décidé d'arrêter d'utiliser MAP 2015 et de travailler désormais sous MAP 2019. Résultat à 16h j'en étais à 3 crashs complet avec reboot du Windows. Et la dernière fois, au redémarrage, mon SSD système n'était plus reconnu. Eteindre le PC, débrancher, patienter 2 minutes et redémarrage du PC, c'est OK. Depuis ce matin je reviens sous Map 2015 et aucun souci, alors que le proc et la carte graphique étaient à fond sur un calcul de photogrammétrie en parallèle. Je vais virer la 2019 et essayer la 2020 (ou mettre la 2018). On verra bien ce que ça donne. Olivier

Bonjour, Certains d'entre vous sont-ils passés à windows 10 version 20H2? Des soucis? Avec les produits Autodesk? Merci, Olivier

Bonjour, La 1ère fois que l'on passe dans la boucle, la variable layer est égale à nil, donc (not layer) vaut T donc le tblnext avec le drapeau T te renvoie le 1er objet (le 1er calque). Lorsque tu passes une seconde fois dans la boucle (et toutes les autres fois), ta variable layer contient quelque chose (la définition du calque précédent) donc (not layer) vaut nil, donc tblnext appelé avec le drapeau nil te renvoie le calque suivant. C'est une astuce de programmation qui évite de déclarer une variable booléenne à mettre à T pour demander le 1er calque, puis le mettre à nil ensuite. Olivier

Salut, Ici : https://www.dotsoft.com/freestuff.htm "layerfilter.zip" ou ici chez Gilles : https://www.augi.com/forums/showthread.php?97438-Can-I-create-frequently-used-layer-filters-in-LISP&p=952247&viewfull=1#post952247 Olivier

Bonjour, promo intéressante : https://www.materiel.net/produit/202006020162.html C'est du haut de gamme (voir très haut) mais la remise de 800€ le met à un tarif "acceptable" Olivier

Depuis que j'ai vu que l'iphone 12 Pro intègre un capteur Lidar, je ne vais pas revenir sur ma position, mais ça fait réfléchir quand même. Le prochain Samsung l’intégrera dans 2 mois @lili, si tu as déjà un iphone, il faut rester homogène, tu dois prendre une tablette à la pomme. Par contre je ne peux t'être d'aucun conseil. Olivier

C'est mon PC perso, i7 4790k (un peu boosté 15% OC), 16Go et HDD classique pour les données (et SSD pour OS et logiciel) OK dès que j'ai un peu de temps, je m'y mets pour la reprojection.

Désolé, mais je refuse tout produit avec le logo d'une pomme dessus Olivier

Salut Bonus, Avec Map 2019, j'ai lancé la procédure sur le département 91 => 50 minutes pour traiter le département entier. C'est rapide. Pas de souci, tout a fonctionné correctement. Je vais tenter d'adapter le script avec changement de système de coordonnées pour tout passer en CC49. On va voir. Olivier

Salut Pat, Désolé, je n'ai pas le droit de le dire En fait si, on n'en a pas tant que ça, mais ils te prennent beaucoup de temps. On aurait environ 20 à 30% qui ne sont pas "aptes" au télétravail. Olivier

Salut Aleck, quelque soit le système de visio : (teamviewer, skype, zoom...) ce n'est pas impossible, mais vraiment très compliqué et surtout beaucoup plus long qu'en présentiel. Quand tu as beaucoup de choses à corriger, tu sors un plan, tu "gribouilles" tout ce qui doit être corrigé. En visio, tu peux aussi le faire sur un PDF, mais c'est plus long et moins pratique. (on travaille sur des formats A0 voir plus). Olivier

Salut Phil, Le problème c'est qu'en présentiel, tu peux aller voir toutes les 2 heures dans le bureau du tech ou de l'ingé pour vérifier que les chiffres saisis sont bons, que les flèches sont dessinées dans le bon sens... En visio c'est tout simplement infaisable. Le matin, tu expliques le boulot à faire, à midi tu fais un point sur l'avancement et le soir tu récupères le lien wetransfer du fichier "normalement" près à livrer au client, sauf que quand tu ouvres le dessin, tu pleures car ta conscience refuse de livrer un plan avec autant d'erreurs. Et comme le télétravailleur a coupé son PC et son tel à 17h juste parès l'envoi de son travail, et si tu t'es engagé sur la date de livraison, il n'y a plus que bibi pour rester jusqu'à 20h ou plus pour "refaire" le boulot. Le lendemain tu passes un savon au télétravailleur, mais comme il s'en fout complètement, tu t'épuises. Au bout d'un moment, quand tu as compris que c'est plus long d'expliquer le travail, de contrôler, de renvoyer pour correction et ça 2, 3 ou 5 fois de suite, que tu as pris 2 jours de retard et que tu t'es fait engueuler par le client, tu finis par faire le boulot toi même. Ça évite de passer pour un "incompétent" auprès de ton client. Ce n'est pas le fonctionnement normal d'une boite, mais en télétravail c'est bien pire à gérer qu'en présentiel. Et comme tu n'as pas le droit de dire à quelqu'un : "toi tu télé-travailles parce que tu es autonome" et "toi tu ne télé-travailles pas car tu n'es pas autonome", et bien tu supplées et tu compenses pour que la boite reste à flot et que le boulot sorte. Il y a sûrement un problème de management, car tous les cadres chez nous sont dans le même état. Olivier

Bonjour, J'ai lancé sur une version Map 2015 qui est ma version de prédilection et le script s'est arrêté lors de l’enregistrement du DWG car il essaie l'option _2018 pour le format du DWG. Et cette option n'existe pas sur les versions 2017 et antérieures. Je sais que je ne suis pas du tout à jour avec cette version, mais je ne sais pas s'il y a moyen de détecter la version pour proposer l’enregistrement dans une version compatible. Je relance un test sur 2019 pour voir le traitement complet Olivier

Je ne sais pas comment c'est appliqué dans vos sociétés, mais chez nous, pas de télétravail. (après l'échec du télétravail pendant le 1er confinement, on n'a pas reconduit) Les seuls cas Covid avérés sont issus d'une contamination familiale : l'un a été contaminé par sa femme et les autres par leurs enfants. Aucune contamination au sein de l'entreprise. En même temps, les patrons passent très régulièrement dans tous les bureaux et rappellent systématiquement à l'ordre le port du masque et la désinfection des mains dès que l'on sort/entre dans son bureau. Les portes restent ouvertes, et pour celles qui doivent être fermées, les poignées sont désinfectées 3 fois par jour. les photocopieurs sont sous cellophane, désinfectés à chaque utilisation et chacun dispose d'un stylet pour ne pas toucher avec ses doigts... Certains techniciens font des relevés d'appartement chez les locataires : masque FFP2, sur chausse, charlotte, combinaison, gant. On a relevé plus de 700 appartements, aucun cas de Covid pour nous. Il suffit de prendre la mesure des moyens à mettre en oeuvre pour que ça fonctionne. Ça a un coût financier et cela entraîne une baisse de production, mais ça fonctionne. Concernant le télétravail, je ne doute pas qu'il y ait des avantages pour ceux qui télé-travaillent, mais pour l'encadrement, c'est purement et simplement l'horreur. Je voulais pousser un petit coup de gueule contre cette idéologie du "télétravail c'est trop génial". Personnellement, pendant le 1er confinement, j'en avais vraiment marre de me taper des semaines de 50 heures ou plus à finir le travail des télétravailleurs qui eux à 17h étaient les doigts de pied en éventail sur leur canapé devant netflix, pendant que je refaisait tout leur boulot. Il y avait surement un manque de moyen et de compétence de ma part dans l'encadrement, mais franchement, si on n'avait dû recommencer cette fois, c'est sûr que je démissionnais direct. C'est pas une vie! Olivier

Bonjour, Comme toutes les fonctions de Gilles sont chargées sur mon PC, il trouvait aussi celle là. Je te la remet (à ajouter en début de lisp) ;; STR2LST ;; Transforme un chaine avec séparateur en liste de chaines ;; ;; Arguments ;; str : la chaine à transformer en liste ;; sep : le séparateur ;; ;; Exemples ;; (str2lst "a b c" " ") -> ("a" "b" "c") ;; (str2lst "1,2,3" ",") -> ("1" "2" "3") ;; (mapcar 'read (str2lst "1,2,3" ",")) -> (1 2 3) (defun str2lst (str sep / pos) (if (setq pos (vl-string-search sep str)) (cons (substr str 1 pos) (str2lst (substr str (+ (strlen sep) pos 1)) sep) ) (list str) ) ) Olivier

Etant donné que tu t'en es sorti avec le lisp de Gilles, je pensais que tu savais prendre du code et le charger. Tu ouvres le bloc note, Tu copies/colles le contenu du code dans le blocnote, Tu enregistres le fichier avec l'extension .LSP au lieu de de .TXT Tu le charges dans AutoCAD par glisser/déposer depuis l'explorateur dans l'espace objet Tu tapes SELBLK à la ligne de commande. Olivier

Bonjour, Sinon en utilisant les routines de Gilles, on peut faire peut-être quelque chose comme cela ;; LST2STR ;; Concatène une liste et un séparateur en une chaine ;; ;; Arguments ;; lst : la liste à transformer en chaine ;; sep : le séparateur ;; ;; Exemples ;; (lst2str '(1 2 3) ",") -> "1,2,3" ;; (lst2str '("a" "b" "c") " ") -> "a b c" (defun lst2str (lst sep) (if (cadr lst) (strcat (vl-princ-to-string (car lst)) sep (lst2str (cdr lst) sep) ) (vl-princ-to-string (car lst)) ) ) ;;============================================================================;; ;; ListBox (gile) ;; Boite de dialogue permettant un ou plusieurs choix dans une liste ;; ;; Arguments ;; title : le titre de la boite de dialogue (chaîne) ;; msg ; message (chaîne), "" ou nil pour aucun ;; keylab : une liste d'association du type ((key1 . label1) (key2 . label2) ...) ;; flag : 0 = liste déroulante ;; 1 = liste choix unique ;; 2 = liste choix multipes ;; ;; Retour : la clé de l'option (flag = 0 ou 1) ou la liste des clés des options (flag = 2) ;; ;; Exemple d'utilisation ;; (listbox "Présentation" "Choisir une présentation" (mapcar 'cons (layoutlist) (layoutlist)) 1) (defun ListBox (title msg keylab flag / tmp file dcl_id choice) (setq tmp (vl-filename-mktemp "tmp.dcl") file (open tmp "w") ) (write-line (strcat "ListBox:dialog{label=\"" title "\";") file ) (if (and msg (/= msg "")) (write-line (strcat ":text{label=\"" msg "\";}") file) ) (write-line (cond ((= 0 flag) "spacer;:popup_list{key=\"lst\";") ((= 1 flag) "spacer;:list_box{key=\"lst\";") (T "spacer;:list_box{key=\"lst\";multiple_select=true;") ) file ) (write-line "}spacer;ok_cancel;}" file) (close file) (setq dcl_id (load_dialog tmp)) (if (not (new_dialog "ListBox" dcl_id)) (exit) ) (start_list "lst") (mapcar 'add_list (mapcar 'cdr keylab)) (end_list) (action_tile "accept" "(or (= (get_tile \"lst\") \"\") (if (= 2 flag) (progn (foreach n (str2lst (get_tile \"lst\") \" \") (setq choice (cons (nth (atoi n) (mapcar 'car keylab)) choice))) (setq choice (reverse choice))) (setq choice (nth (atoi (get_tile \"lst\")) (mapcar 'car keylab))))) (done_dialog)" ) (start_dialog) (unload_dialog dcl_id) (vl-file-delete tmp) choice ) (defun C:SELBLK ( / cnt tmpEnt lsBlk sBlName) (setq cnt T) (while (setq tmpEnt (tblnext "block" cnt)) (setq lsBlk (append lsBlk (list (cdr (assoc 2 tmpEnt))))) (setq cnt nil) ) (setq sBlName (lst2str (listbox "Bloc" "Choisir le(s) bloc(s)" (mapcar 'cons lsBlk lsBlk) 2) ",")) (sssetfirst nil (ssget "_X" (list (cons 2 sBlName) (cons 410 (getvar "CTAB"))))) ) Olivier

Bonjour, @gege, 3ème paragraphe pour les BE et Ingénierie : https://www.rtl.fr/a...orne-7800913900 Le conseil d'état a rejeté l'obligation du télétravail à 100% car non constitutionnel. Sur le protocole national, le télétravail permet de réduire les déplacements domicile/bureau et les regroupements à l'abord. Si on exclue les personnes se rendant au travail en transport en commun et les pauses café/cigarette à plusieurs sans masque, et si on ne fait pas la queue pour rentrer dans son bureau, le télétravail n'a pas d'impact sur la transmission du virus si l'entreprise applique le protocole sanitaire à la lettre. Olivier

Bonjour, Avec ce simple code, on doit cliquer l'attribut source puis l'attribut destination et le contenu du 1er est recopié dans le second et ça boucle (defun C:ATT2ATT ( / oAtt1 oAtt2 oAtt1Lst oAtt2Lst sVal) (while (and (setq oAtt1 (car (nentsel "\nAttribut source : "))) (setq oAtt1Lst (entget oAtt1)) (= "ATTRIB" (cdr (assoc 0 oAtt1Lst))) (setq oAtt2 (car (nentsel "\nAttribut destination : "))) (setq oAtt2Lst (entget oAtt2)) (= "ATTRIB" (cdr (assoc 0 oAtt2Lst))) ) (setq sVal (cdr (assoc 1 oAtt1Lst))) (setq oAtt2Lst (subst (cons 1 sVal) (assoc 1 oAtt2Lst) oAtt2Lst)) (entmod oAtt2Lst) (entupd oAtt2) ) ) Olivier