lecrabe

Hello *01* Principe de base important : TOUS les Noms (Dossiers, Fichiers, Calques, Blocs, Styles, etc) n'utilisent que des Lettres, Chiffres + "_" + "-" et aucun autre caractere ! *02* SVP des Noms de fichiers "pas trop longs" et les Noms de dossiers et sous-dossiers AUSSI ! *03* Ci-joint quelques vieilles chartes graphiques Suisses que j'aime bien : https://transfert.free.fr/r1wVbo ( Meme si je ne suis d'accord que a 90-95 % avec nos amis Suisses ... ) *04* NE Jamais RIEN de dessiner (sauf temporairement) ou inserer sur le calque ZERO ! *05* NE Jamais Verrouiller ou Geler le calque ZERO ! *06* Les Fenetres (FMULT) dans les Presentations sont toujours dans le Type de Ligne "CONTINUOUS" *07* Le forcage des Proprietes de Couleur, Type de Ligne, Epaisseur de ligne, sera "MINIMUM" voire Interdit mais c tres restrictif ! *08* Utilisation des Champs dynamiques QUE SI les Intervenants "maitrisent" ! *09* Utilisation des Blocs dynamiques QUE SI les Intervenants "maitrisent" ! *10* Utilisation du Mode Annotatif QUE SI les Intervenants "maitrisent" ! etc Bon WE, La Sante, Bye, lecrabe

Hello SVP tu vas essayer ceci ... https://knowledge.autodesk.com/fr/support/autocad/troubleshooting/caas/sfdcarticles/sfdcarticles/FRA/AutoCAD-freezes-when-using-most-commands.html Pour AutoCAD 2022 / 2023 Commande: GFXDX12 = 0 (et non pas 1) ainsi la 2022/2023 travaille en DirectX 11 et non pas 12 Quitter AutoCAD 2022/2023 puis relancer pour voir ... La Sante, Bye, lecrabe

Hello A tu bien la DLL "GetFileLisp.dll" et EN PLUS cette DLL doit etre dans les chemins de recherche SUPPORT ! OPTIONS / 1er Onglet "Fichiers" / 1ere Ligne ... Chemins de recherche de fichiers de support ... La Sante, Bye, lecrabe

Hello Avec ZWCAD, tu peux utiliser les Blocs dynamiques avec les possibilités prévues sous AutoCAD MAIS tu ne peux pas modifier les paramètres dynamiques ou en ajouter d autres ! Pour ce faire : AutoCAD LT ou AutoCAD ... La Santé, Bye, lecrabe

Hello MERCI le Support et Vincent ... La Sante, Bye, lecrabe

Hello Fab 1) OUI ta routine est bien plus joile que la "mienne" (tres frustre) et avec un DCL "integree" , elle sera Tip-Top ! 2) D'ailleurs notre Maitre AutoCAD MAP (Bonuscad- Bruno) a fait aussi sa propre version ... MERCI Bruno & Fab & Gilles & VDH-Bruno & Luna & autres Pros du Lisp / VLisp ... La Sante, Bye, lecrabe (vl-load-com) ; str2lst ;; Transforme un chaine avec separateur en liste de chaines ;; ;; Arguments ;; str : la chaine a transformer en liste ;; sep : le separateur ;; ;; Exemples ;; (str2lst "a b c" " ") -> ("a" "b" "c") ;; (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) ) ) ;; 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 deroulante ;; 1 = liste choix unique ;; 2 = liste choix multipes ;; ;; Retour : la cle de l'option (flag = 0 ou 1) ou la liste des cles des options (flag = 2) ;; ;; Exemple d'utilisation ;; (listbox "Presentation" "Choisir une presentation" (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:OD_Pref_Suff_Text ( / Table_OD def_tbl l_field Champ_OD Pref1 Suff1 js n_pl) (setq Table_OD (listbox "Donnee d'objet" "Choisir la table de donnees d'objet" (mapcar 'cons (ade_odtablelist) (ade_odtablelist)) 1)) (cond (Table_OD (setq def_tbl (ade_odtabledefn Table_OD) l_field (mapcar 'cdr (mapcar '(lambda (x) (assoc "ColName" x)) (cdaddr def_tbl))) champ_OD (listbox "Champ de donnee" "Choisir le 1er champ de donnee" (mapcar 'cons l_field l_field) 1) ) (cond ((eq (cdr (assoc "ColType" (assoc (cons "ColName" champ_OD) (cdaddr def_tbl)))) "Character") (setq Pref1 (getstring T "\nTexte du Prefixe : ") Suff1 (getstring T "\nTexte du Suffixe : ") js (ssget "_:L") ) (cond ((and js Pref1 Suff1) (repeat (setq n_pl (sslength js)) (if (member Table_OD (ade_odgettables (setq ent (ssname js (setq n_pl (1- n_pl)))))) (ade_odsetfield ent Table_OD Champ_OD 0 (strcat Pref1 " " (ade_odgetfield ent Table_OD Champ_OD 0) " " Suff1)) ) ) ) ) ) (T (princ "\nNe peut ajouter un prefixe ou suffixe a un champ autre que de type caractere ! ")) ) ) ) (prin1) )

Hello Au fait je pense que les 3DFaces et Polyfaces 3D maillees ne seront pas "vues" !? ... A verifier ... La Sante, Bye, lecrabe

Hello @DaWeeD_Gab Si tu es sage, tu auras peut etre cette semaine ta boite de chocolat !? La Sante, Bye, lecrabe

Hello Le plus simple, tu tapes au clavier la commande : XR < Entree > Et en haut a gauche, tu deroules l'icone avec toutes les Insertions possibles en XREF ... Bon WE, La Sante, Bye, lecrabe

Hello Question non comprise : AutoCAD LT peut afficher des Images (TIF, JPG, PNG, etc) en XREF depuis longtemps ! Bon WE, La Sante, Bye, lecrabe

Hello Et si tu essayais la commande clavier : FENSYST < Entree > Bon WE, La Sante, Bye, lecrabe

Hello À priori il faut que tout le monde ait la même version de Covadis ! Par exemple la v17.1G... La version de AutoCAD / AutoCAD MAP n'est pas importante !! ( La version 17.1G gere en theorie depuis la version 2018 jusqu'a la version 2022 ) Sinon des AutoCAD / AutoCAD MAP 2018-2023 cohabitent sans probleme ... Bon WE, La Santé, Bye, lecrabe

Hello Dans un genre different : https://transfert.free.fr/SXbooS Bon WE, La Sante, Bye, lecrabe

Hello OUI il y a peut etre un Probl avec les XREFs ! ... A voir ... Je verifie des que possible ... La Sante, Bye, lecrabe

Hello @bonuscad 1) J'adore ton Script sur les variables ! 2) Mais il y a UNE variable ou je ne suis pas d'accord : XREFOVERRIDE = 0 Pour moi, ce sera presque toujours : XREFOVERRIDE = 1 (depuis la version 2016 + SP1) 3) Apres qq autres ou chacun fait comme il veut: PDMODE, PDSIZE, etc ... Merci pour le partage, La Sante, Bye, lecrabe

Hello Comme je l'ai deja dit, C FOU comme "on fonce" avec TOUT en Police .SHX ! La Sante, Bye, lecrabe

Hello @Luna SVP je pense qu'il faut ajouter une question du genre "Distance maximum (Défaut=1.0) ?" Au delà on ne "bouge" pas le Bloc ! Merci, Bye, lecrabe

Hello 1) Et voici le meme DWG avec les 12 Polylignes forcees en Epaisseur 0.50mm et toujours TOUS les Styles de texte en Polices .SHX 2) https://transfert.free.fr/iX4AlL 3) Cette version "non tronquee" est elle rapide chez toi ?? La Sante, Bye, lecrabe

Hello 1) En bricolant j'ai trouve et supprime 12 Polylignes (eventuellement problematiques) et j'ai mis TOUS les Styles de texte en Polices .SHX 2) https://transfert.free.fr/6h7TUk 3) DEJA peux tu nous dire si ce nouveau DWG "tronque" est rapide chez toi ?? La Sante, Bye, lecrabe

Hello Le Bas Savoyard 1) OUI je suis OK avec toi 2) Tiens la semaine derniere, j'etais a Tignes Le Lac, pour faire decouvrir la vraie Neige et le Ski a mes 2 petits enfants (Paul 5 ans et Lily 2.5 ans) Paul a "super accroche" le ski ... Lily pas du tout : trop jeune je pense ... On fera mieux l'annee prochaine ! 3) Une semaine superbe avec un temps Tip-Top ... La Sante, Bye, lecrabe de La Basse-Loire

Hello 1) Il est tout beau tout frais cet Update AutoCAD MAP 2023.0.1 pour AutoCAD MAP (et AutoCAD CIVIL aussi !?) 2) A priori il resoud des Bugs de Commandes liees aux versions NON US/English d4AutoCAD MAP 2023 3) https://help.autodesk.com/view/MAP/2023/ENU/?guid=AUTOCAD_MAP_2023_0_1_UPDATE 4) Et ne pas oublier le Update AutoCAD 2023.0.1 pour TOUS vos AutoCAD 2023 ... La Sante, Bye, lecrabe

Hello 1) Il est tout beau tout frais cet Update AutoCAD 2023.0.1 pour TOUS les AutoCAD 2023 ... 2) Par exemple il resoud le Bug du glisser / deposer des Calques dans les Filtres de calques avec Windows 11 3) https://help.autodesk.com/view/ACD/2023/FRA/?guid=AUTOCAD_2023_0_1_FIXED_ISSUES La Sante, Bye, lecrabe

Hello les Pros de la 3D et de Covadis / AutoPiste / GeoRail 01) Comme vous le savez des que vous passez en Visualisation 3D ou en 3D Orbite, vous avez sans doute remarque que AutoCAD ralentit beaucoup ! ... Plus le Projet est GROS plus c "lent" ! 02) Pourquoi car il suffit qu'il y ait UN SEUL Texte, MTexte, Attribut, Cote, etc, qui utilise une quelconque Police .TTF ! 03) En effet dans ce cas, AutoCAD change de driver d'affichage et diminue ses performances par un facteur de 5-20 !! 04) Alors que si TOUS les Textes, MTextes, Attributs, Cotes, etc, sont TOUS avec des Polices .SHX, AutoCAD utilise le driver RAPIDE WHIP et donc va tres vite en 3D ... 05) Et en 3D, on ne peut pas "toujours" GELER TOUS les Calques de Textes, MTextes, Attributs, Cotes, etc ... 06) Ainsi avec les 3 routines fournies ici , ca va "depoter" ... MERCI Gilles !! 07) On imagine que vous avez de multiples Styles de textes certains en .SHX et d'autres (pour faire joli sur les Titres, Profils, etc) en .TTF ... 08) DONC JUSTE AVANT avant de passer en 3D: vous faites la commande clavier : STT_SAVE < Entree > Ainsi TOUS les Styles et la Police utilisee sont sauvegardes en .CSV ... 09) Puis la commande : STT_ALL_SHX < Entree > Ainsi TOUT utilise maintenant la bonne vieille Police "ISOCP.SHX" ... Donc ca "depote" en 3D ... 10) APRES quand vous le desirez, vous revenez en 2D (et bien sur AVANT d'Imprimer / Tracer OU de Sauvegarder) vous faites la commande de "Recuperation" : STT_RESTORE < Entree > Ainsi le DWG retrouve ses Polices ORIGINALES depuis le fichier .CSV sauvegarde au meme endroit que le DWG ... 11) SVP ne jamais oublier de faire "STT_RESTORE" avant de sauvegarder PAR SECURITE ! Les critiques et suggestions sont les Bienvenues ! Merci de votre attention, La Sante, Bye, lecrabe

Hello @(gile) 1) MERCI Gilles : c Tip-Top ! Et cela servira beaucoup a ceux qui font de la 3D ou du Covadis par exemple ! 2) Par contre sur la routine "STT_Restore", j'ai deplace vers la fin le _REGENALL juste avant le PRINC ... ;; (command-s "_regenall") ) (command-s "_regenall") (princ) ) La Sante, Bye, lecrabe

Hello 1) Vu de loin, ton outil a l'air SYMPA ! 2) PERSO: depuis longtemps je genere des PNG/JPG en haute resolution que je re-insere au bon XY avec la bonne echelle (Facile avec ALIGN) 3) Ensuite avec ces Images correctement inserees, je genere les fichiers JGW/PGW grace a l'excellente routine "GBTFW" de Bruno (Bonuscad) 4) Apres ayant des JPG+JGW ou PNG+PGW, n'importe quel outil SIG les traite sans probleme ! La Sante, Bye, lecrabe ;; ;; Routine: GBTFW_v2 par Bonuscad (Bruno) ;; ;; Suite a Demande de Patrice BRAUD ;; ;; 1) Traitement des Images TIF/JPG/PNG ;; ET Generation des TFW/JGW/PGW ET NON PAS seulement du TFW ;; ;; 2) Traitement de N Images TIF/JPG/PNG ET NON PAS de 1 Image ;; ;; 3) Support des blancs/espaces et caracteres speciaux/accentues ;; ;; ;; 4) v2.1 : Micro-Micro-Modif : Trt des ECW et generation d un fichier .TXT ;; Ajout de la ligne : ((eq typ ".ECW") ".TXT") ;; ;; ;; GBTFW.LSP v1.0 pour une IMAGE DEJA INSEREE au BON endroit en XY ;; Creation d'un fichier ".TFW" par GB le 10/11/03 ;; Si Image inseree en JPG (et non pas en TIF), renommer le TFW genere en JGW ! ;; Mirroir en Y des Parametres AutoCAD ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ATTENTION : en v1.0 SVP Images dans un chemin SANS caractere special NI blanc/espace !! ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; Micro-Modif par Patrice BRAUD pour AutoCAD/MAP/CIVIL 2006 et plus ;; Micro-Modif par Patrice BRAUD pour AutoCAD/MAP/CIVIL 2010 et plus ;; ;; ;; --- Interrogation Entite/Objet en Lisp --- ;; (entget (car (entsel)) '("*")) ;; (defun c:GBTFW_v2 ( / index ent ent340 typ ext_file ef ftfw X10 Y10 X11 Y11 X12 Y12 X13 Y13 line1 line2 line3 line4 line5 line6) ;;; Pour AutoCAD/MAP 2000-2005 par GB vs Originale ;;; (command "_imageframe" "_on" ) ;;; Pour AutoCAD/MAP/CIVIL 2006-2009 par PB vs 1.00 ;;; (command "_imageframe" "1" ) ;;; Pour AutoCAD/MAP/CIVIL 201X par PB vs 1.01 (command "_imageframe" 2 ) (princ "\nGeneration du Fichier de Calage TFW/JGW/PGW depuis UNE/DES Image(s) quelconque(s) inseree(s) ... ") (princ "\nSelectionnez une ou plusieurs Images ") (setq js (ssget (list '(0 . "IMAGE") (cons 67 (if (eq (getvar "CVPORT") 1) 1 0)) (cons 410 (if (eq (getvar "CVPORT") 1) (getvar "CTAB") "Model")) ) ) ) (cond (js (repeat (setq n (sslength js)) (setq index "" ent (entget (ssname js (setq n (1- n)))) ent340 (cdr (assoc 1 (entget (cdr (assoc 340 ent))))) typ (strcase (substr ent340 (- (strlen ent340) 3))) ext_file (cond ((eq typ ".TIF") ".TFW") ((eq typ ".PNG") ".PGW") ((eq typ ".JPG") ".JGW") ((eq typ ".ECW") ".TXT") (T nil) ) ) (cond (ext_file (setq ;; ef (strcat (substr ent340 1 (- (strlen ent340) 4)) index ".TFW") ef (strcat (substr ent340 1 (- (strlen ent340) 4)) index ext_file) ftfw (open ef "w") X10 (car (cdr (assoc 10 ent))) Y10 (cadr (cdr (assoc 10 ent))) X11 (car (cdr (assoc 11 ent))) Y11 (cadr (cdr (assoc 11 ent))) X12 (car (cdr (assoc 12 ent))) Y12 (cadr (cdr (assoc 12 ent))) X13 (car (cdr (assoc 13 ent))) Y13 (cadr (cdr (assoc 13 ent))) line1 (rtos X11 2 9) line2 (rtos Y11 2 9) line3 (rtos (* -1 X12) 2 9) line4 (rtos (* -1 Y12) 2 9) line5 (rtos (+ X10 (* X12 Y13)) 2 9) line6 (rtos (+ Y10 (* Y12 Y13)) 2 9) ) (write-line line1 ftfw) (write-line line2 ftfw) (write-line line3 ftfw) (write-line line4 ftfw) (write-line line5 ftfw) (write-line line6 ftfw) (close ftfw) ) ) ) ) ) (prin1) )