vincentp010

Je marche comme ça, si j'utilise un truc, j'aime bien savoir grossièrement comment ça marche. Après tout le monde ne pense pas forcément comme moi (et c'est tant mieux). A force de ne plus se poser de questions, on finis par faire appel à des services de support au moindre petit soucis et on perd en raisonnement intellectuel. Les générations futures me font peur avec tous ces jeunes qui ne se posent pas une seule question sur comment les choses marchent et appellent systématiquement "celui qui s'y connait" au moindre petit soucis.

Tu n'as pas le droit d'écrire dans C:, mais tu doit pouvoir écrire dans %USERPROFILE% qui renvois dans le dossier de profil de l'utilisateur. Rien ne t’empêche d'utiliser la variable tel quel dans les chemins.

A un moment faut aussi que les gens qui utilisent un logiciel apprennent à s'en servir. A force de vouloir cacher les fonctionnements aux utilisateurs, ils ne prennent même plus le temps de savoir comment ça fonctionne. Du coup on vient te voir en disant Ça marche pas. Si tu cherche à aider en demandant s'il y a un message d'erreur, on te répond j'ai pas lu, j'ai cliqué sur ok. Des fois il suffirait de 2min à l'utilisateur pour se pencher sur le problème et c'est réglé. Je suis désespéré par ces gens qui ne cherchent pas à comprendre :( Sinon on peut modifier le chemin de recherche dans le registre, la difficulté est d'avoir le bon profil autocad HKEY_CURRENT_USER\SOFTWARE\Autodesk\AutoCAD\R24.0\ACAD-4102:40C\Profiles\COVADIS\General\ACAD ou depuis autocad avec la routine de Lee Mac, mais là la difficulté est d'avoir le chemin du dossier

Si tu as le chemin "H:\Société\MesLisp" dans le chemin de recherche de fichier de support tu peux utiliser dans tes lisp le chemin relatif depuis ce répertoire. Par exemple si dans le dossier "H:\Société\MesLisp\Blocs" tu as le bloc "toto.dwg", tu peux l’insérer avec: (command "-i" "Blocs/toto" ...

Bonjour, Je n'ai pas compris la question ! Ton lisp est dans un chemin de recherche de fichier de support et tu peux le lancer sans connaitre le chemin exact ! Avec par exemple un bouton qui le charge et l'execute ^C^C(load"MONFICHIERLISP");MACOMMANDE;

Si les sauvegardes sont sur un partage réseaux accessible depuis un poste de travail infecté, elles ne sont pas à l’abri. Il faut toujours des sauvegardes hors lignes en plus, par exemple un disque externe qui n'est pas branché en permanence. La règle pour les sauvegarde c'est la règle 3-2-1: - Trois copies de vos données (il faut au moins avoir deux sauvegardes en plus des données principales de la production) - Deux supports différents - Une copie en hors site Vous pouvez avoir un incendie sur votre site et perdre le serveur de production ainsi que la copie stockée sur le NAS (ou autre), il va vous rester la copie en hors site : elle est indispensable et peut sauver l'entreprise !

Oui j'avais le document sous les yeux, j'ai répondu de mémoire. Mais c'est surtout des corrections de bugs. Le pdf est joint au message. COVADIS - Corrections apportées à la version 17.1.pdf

Normalement c'est juste des corrections de bugs rien de plus. J'avais un plantage dans la lecture d'un carnet Leica dans la version B qui a été corrigé dans la C. Si tu es en version B, tu n'hésites pas à mettre à jour.

Je ne sais pas depuis quand tu utilises cette fonction mais on va dire que 75% des années ça marche pareil pour les 2 systèmes. J'ai découvert ça il y a environ 8 ans où j'étais décalé d'une semaine comme toi et là j'ai appris que la semaine n°1 n'était pas la même dans tous les pays.

Bonjour, Ça dépend si tu compte les numéros de semaine comme les américains ou la norme européenne ISO 8601 Aide excel no.semaine Pour une semaine commencant un lundi et finissant un dimanche, dans le système 2, il faut écrire ta fonction avec le type 21 =NO.SEMAINE(DATE(2021;1;25);21)

Tu dois pouvoir modifier le titre dans tes paramètres de profils PDFCreator. Il y a une option pour remplacer des chaines de caractères. Remplace "D_USER_FOLDER" par "" et tu seras tranquille.

To peux utiliser convertcp en batch. Il s'utilise comme ça pour convertir de ANSI (0) à UTF-8 (65001) sans BOM convertcp.exe 0 65001 /i infile.txt /o outfile.txt

Grace à toi je découvre seulement maintenant que l'on peut mettre des masques sur les mtext :blink:

Tu peux commander les yeux fermé sur LDLC. Jamais été déçu par leur service. Après je connais pas les boutiques, seulement des commandes par internet. J'ai un MSI en perso (qui vient de chez eux d’ailleurs), rien à signaler, je conseille.

Bonjour, Tu peux créer une fenêtre DCL pour mettre tes valeurs dans une popup_list C'est quoi le but ? Car une fenêtre DCL est modale, elle t’empêche d'accéder au dessin tant qu'elle est affichée.

Je met les sources du programme pour ceux qui veulent main.zip

J’essaie de me mettre à Rust en ce moment. J'ai fait ce bout de programme qui convertit ton fichier excel en géobase. Tu fais glisser ton fichier excel sur xls2geo.exe et il te créer un fichier géobase directement à coté. J'espère que ça marche pour tout tes fichiers. xls2geo.zip

Bonjour, Il y a possibilité d'avoir un fichier d'exemple ?

Je serai du même avis que zebulon_. Ça ne me dit rien.

Bonjour, Je ne comprend pas le problème. Une parcelle est toujours fermée !

En testant vite fait ça ne fonctionne pas avec (command "texte") en lisp Mais par contre en entrant directement dans la console la commande texte ça marche :blink: C'est bizarre

Avec ^C (command "texte" "j" "c" ^C)

Bonjour, Il te faut les fichiers PAT des hachures. J'avais récupéré un lisp de Bonuscad qui les recréer à partir de hachures existantes dans le dessin ;; Apply a transformation matrix to a vector by Vladimir Nesterovsky (defun mxv (m v) (mapcar '(lambda (r) (apply '+ (mapcar '* r v))) m) ) ;;;**************************************************************************;;; ;; D'après Bonuscad ;; Retourne dans la fenêtre de texte la définition d'un motif de hachure. ;; Propose l'enregistrement dans un fichier. (defun c:model_hatch (/ err zindim ent elst vec rot scale nb ang n first) (defun err (msg) (if (= msg "Fonction annulée") (princ) (princ (strcat "\nErreur: " msg)) ) (setvar "dimzin" zindim) (setq *error* m:err m:err nil ) (princ) ) (setq m:err *error* *error* err ) (while (not (setq ent (entsel "\nChoix de la Hachure modèle: "))) ) (setq elst (entget (car ent)) zindim (getvar "dimzin") ) (if (= (getvar "measurement") 1) (setvar "dimzin" 8) (setvar "dimzin" 12) ) (if (= (cdr (assoc 0 elst)) "HATCH") (progn (setq descr (strcat "\n*" (cdr (assoc 2 elst))) rot (cdr (assoc 52 elst)) scale (/ 1.0 (cdr (assoc 41 elst))) nb (cdr (assoc 78 elst)) first T ) (repeat nb (setq elst (member (assoc 53 elst) elst) ang (cdar elst) descr (strcat descr "\n" (angtos (- ang rot) 0 14) ) elst (cdr elst) ) (repeat 2 (setq vec ((lambda (a) (mxv (list (list (cos a) (- (sin a)) 0.0) (list (sin a) (cos a) 0.0) '(0.0 0.0 1.0) ) (list (* scale (cdar elst)) (* scale (cdadr elst)) 0.0 ) ) ) (if first (- rot) (- ang) ) ) ) (setq first nil) (setq descr (strcat descr "," (rtos (car vec) 2 14) "," (rtos (cadr vec) 2 14) ) elst (cddr elst) ) ) (repeat (cdr (assoc 79 elst)) (setq elst (cdr elst)) (setq descr (strcat descr "," (rtos (* scale (cdar elst)) 2 14) ) ) ) (setq first T) ) (textscr) (princ descr) (initget "Oui Non") (if (and (= (getkword "\nEnregistrer dans un fichier ? [Oui/Non] <Non>: " ) "Oui" ) (setq file (getfiled "Sélectionnez un fichier" (if (= (getvar "measurement") 1) (findfile "acadiso.pat") (findfile "acad.pat") ) "pat" 33 ) ) ) (progn (setq file (open file "a")) (princ (strcat (substr descr 2) "\n") file) (close file) ) ) (graphscr) ) (T (prompt "\nEntité n'est pas une hachure.")) ) (setvar "dimzin" zindim) (setq *error* m:err m:err nil ) (princ) ) Ça va te marquer dans la console la définition de hachure, par exemple: *POTAG1 90,0,0,0,5,4,-1 0,-0.5,0.5,0,5,4,-1 Tu l'enregistres dans un chemin de recherche des fichiers de support sous le nom du motif Par exemple ici *POTAG1 dans le fichier POTAG1.pat Un fichier par motif, tu créer autant de fichier que de motif personnalisé. Le motif apparaitra ensuite dans l'onglet personnalisation de la palette des motifs de hachures

Bonjour, remplace (setq jesel! (ssget)) par (setq jesel! (ssget "p"))

Je viens aux nouvelles. Ça marche à vitesse normale maintenant ?