lecrabe

Hello La Config me semble OK ! ... Pour le prix : A voir ailleurs Config equivalente !? Le Core i7-10750H est BIEN : 6C/12T - 2.6-5.0 Ghz - 12 Mo cache 32 Go Ram - Full HD - 17P - SSD 1 To NVidia GeForce RTX 2070S Max-Q 8 Go Defaut : à priori pas de prise Reseau RJ-45 CONSEIL : "soigner / etendre" la garantie !? La Sante, Bye, lecrabe "triste & fatigue"

Hello Peut etre trouveras tu des pistes ici ... Video - Duree: 1H 06mn de Avril 2021 La Sante, Bye, lecrabe (triste & fatigue)

Hello +1 avec @Steven ! Laylocksel de notre Grand Maitre Gilles (gile) est Tip-Top ! 1) SVP ne jamais Verrouiller / Geler le calque ZERO ! 2) Et ne dessiner sur le calque ZERO que "temporairement" 3) INACTIVER le calque ZERO est acceptable "temporairement" 4) Ne jamais livrer un DWG avec qq chose dessine ou insere sur le calque ZERO ! 5) Toujours livrer un DWG en etant sur un calque quelconque VISIBLE (Non verrouille si possible) et les Proprietes en Mode DuCalque ! 6) Toujours livrer un DWG "en voyant" qq chose a l'ecran ! La Sante, Bye, lecrabe (triste & fatigue)

Hello @didier YES je me fais payer en bouteilles de Whiskey Single Malt "de qualite" ! La Sante, Bye, lecrabe (triste & fatigue)

Hello @Curlygoth OOPS SORRY si je t'ai pris le pain de la bouche !? Mais bon mon stock de 3001 routines est pret a servir "les gentil(lle)s ... Et Sebastien est "un gentil" ! La Sante, Bye, lecrabe (triste & fatigue)

Hello Peut etre la routine Lisp ici : https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/rename-layout-according-to-attributes-in-titleblock/m-p/8265748 OU la : https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/lisp-to-name-current-layout-tab-from-attributes-and-then-some/m-p/5132892 La Sante, Bye, lecrabe (triste & fatigue)

Hello Bon je ne rentre pas dans cette conversation ! Car a priori, je n'ai rien compris a la precedente ! PERSO: j'ai presque toujours PSLTSCALE = 1 dans chaque Presentation / Layout ... La Sante, Bye, lecrabe (triste & fatigue)

Hello Fichier "@_LTSCALE_PSLTSCALE_Lisp.zip" en ligne ... Telechargement: http://dl.free.fr/jk74Qf470 Tu trouveras dans ce Lien un ZIP avec 2 DWGs + La Routine Lisp "ScaleLineTypes" de notre Grand Maitre Gilles Tu decompresses dans un dossier quelconque et tu charges le DWG principal "CADX-1-50" et la XREF "CADX-1-20" se chargera aussi ... Car les 2 DWGs dans le MEME dossier ! Je ne suis toujours pas sur d'avoir bien compris ce que tu veux !? Tu verras 3 Fenetres (FMULT/MVIEW) avec des Echelles differentes ( 0.5 / 2.0 / 5.0 ) dans ta Presentation ... PSLTSCALE = 1 - Et a priori pour moi, la representation me semble OK !? Est ce que tu voulais ?? La Sante, Bye, lecrabe (triste & fatigue)

Hello Et si tu essayais la merveilleuse routine "SYN" de notre regrette Patrick_35 !? La Sante, Bye, lecrabe (triste & fatigue) ;;;================================================================= ;;; ;;; SYN.LSP V1.23 ;;; ;;; Synchroniser en conservant ou pas la valeur, la position ;;; et l'angle des attributs. ;;; ;;; Copyright (C) Patrick_35 ;;; ;;;================================================================= (defun patrick:synchro_att(cmd / ang att blo boite_dialogue choix def doc ent lst lstbl msg nombl oui-non pos question rep s sel str val *errret*) (defun *errret* (msg) (or (member (strcase msg) '("FUNCTION CANCELLED" ""QUIT / EXIT ABORT"" "FONCTION ANNULEE" "QUITTER / SORTIR ABANDON")) (princ (strcat "\nErreur : " msg)) ) (vla-endundomark doc) (setq *error* s) (princ) ) (defun nombl(bl) (if (vlax-property-available-p bl 'effectivename) (vla-get-effectivename bl) (vla-get-name bl) ) ) (defun msg(js) (if js (princ (strcat "\nSélection actuel : " js)) (princ "\nSélection actuel : Tout") ) ) (defun choix(chx cmd / bl js lst nom sel) (princ "\nSélectionnez le(s) bloc(s) : ") (and (ssget (list (cons 0 "insert") (cons 66 1))) (progn (vlax-for bl (setq sel (vla-get-activeselectionset doc)) (or (member (setq nom (nombl bl)) lst) (setq lst (cons nom lst)) ) (redraw (vlax-vla-object->ename bl) 4) ) (foreach nom lst (and (eq (vla-get-isxref (vla-item (vla-get-blocks doc) nom)) :vlax-false) (if js (setq js (strcat js "," nom)) (setq js nom) ) ) ) (vla-delete sel) ) ) (or js (setq js chx)) (and cmd (msg js)) js ) (defun boite_dialogue(titre / blo choix_aucun choix_lst choix_tout chx dcl fil js liste_bl loc rech rep res sel str tmp vao) (defun choix_lst(val / pos lst) (while (setq pos (read val)) (if lst (setq lst (strcat lst "," (nth pos liste_bl))) (setq lst (nth pos liste_bl)) ) (setq val (substr val (+ 2 (strlen (itoa pos))))) ) (setq js lst chx "Nom" ) ) (defun choix_tout(/ pos val str) (setq pos 0) (while (setq val (nth pos liste_bl)) (if str (setq str (strcat str " " (itoa pos))) (setq str (itoa pos)) ) (setq pos (1+ pos)) ) (setq js nil chx "Tout" sel str ) (set_tile "lst" sel) ) (defun choix_aucun() (setq js nil chx nil sel "" ) (set_tile "lst" sel) ) (defun rech() (and (member (substr str 1 loc) liste_bl) (setq vao (itoa (- (length liste_bl) (length (member (substr str 1 loc) liste_bl))))) (if sel (setq sel (strcat sel " " vao)) (setq sel vao) ) ) ) (setq tmp (vl-filename-mktemp "ret" nil ".dcl") fil (open tmp "w") ) (foreach txt '( "ret : dialog {" " key = titre;" " is_cancel = true;" " fixed_width = true;" " alignment = centered;" " : list_box {label = \"Blocs\"; key = \"lst\"; multiple_select = true; width = 40; height = 20;}" " : boxed_column {" " label = \"Conserver dans les attributs\";" " : row {" " : toggle {label = \"Les valeurs\"; key = \"val\";}" " : toggle {label = \"Les positions\"; key = \"pos\";}" " : toggle {label = \"Les angles\"; key = \"ang\";}" " }" " spacer;" " }" " spacer;" " : row {" " : button {label = \"Tout\"; key = \"tout\";}" " : button {label = \"Aucun\"; key = \"aucun\";}" " : button {label = \">>\"; key = \"sel\";}" " ok_cancel;" " }" "}" ) (write-line txt fil) ) (close fil) (vlax-for blo (vla-get-blocks doc) (or (wcmatch (vla-get-name blo) "`**,*|*") (eq (vla-get-isxref blo) :vlax-true) (vlax-for ent blo (and (eq (vla-get-objectname ent) "AcDbAttributeDefinition") (not (member (vla-get-name blo) liste_bl)) (setq liste_bl (cons (vla-get-name blo) liste_bl)) ) ) ) ) (setq liste_bl (acad_strlsort liste_bl) dcl (load_dialog tmp) sel "" ) (while (not (member res '(0 1))) (new_dialog "ret" dcl "") (start_list "lst") (mapcar 'add_list liste_bl) (end_list) (set_tile "titre" titre) (set_tile "lst" sel) (set_tile "val" val) (set_tile "pos" pos) (set_tile "ang" ang) (action_tile "lst" "(choix_lst $value)") (action_tile "tout" "(choix_tout)") (action_tile "aucun" "(choix_aucun)") (action_tile "val" "(setq val $value)") (action_tile "pos" "(setq pos $value)") (action_tile "ang" "(setq ang $value)") (action_tile "sel" "(done_dialog 2)") (action_tile "accept" "(done_dialog 1)") (action_tile "cancel" "(done_dialog 0)") (setq res (start_dialog)) (cond ((eq res 1) (setq rep (list chx js val pos ang)) ) ((eq res 2) (and (setq js (choix js nil)) (progn (setq str js sel nil chx "Nom" ) (while (setq loc (vl-string-search "," str)) (rech) (setq str (substr str (+ 2 loc))) ) (rech) (or sel (setq sel "")) ) ) ) (T (setq rep (list nil nil val pos ang)) ) ) ) (unload_dialog dcl) (vl-file-delete tmp) rep ) (defun question(/ choixbl lst rep sel) (defun choixbl(chx / js nom pos sel) (defun nom(txt / str) (setq txt (vl-string-left-trim " " txt) txt (vl-string-right-trim " " txt) ) (if (tblsearch "block" txt) (setq str txt) (princ (strcat "\nLe bloc \"" txt "\" n'existe pas.")) ) (and str (if (and js (wcmatch (strcase js) (strcase (strcat str "," str "`,*" ",*`," str "`,*,*`," str)))) (princ (strcat "\nLe bloc \"" str "\" est déjà selectionné.")) (if js (setq js (strcat js "," str)) (setq js str) ) ) ) ) (setq js chx) (while (/= (setq sel (getstring t "\nIndiquez le(s) nom(s) du/des bloc(s) : ")) "") (while (setq pos (vl-string-search "," sel)) (nom (substr sel 1 pos)) (setq sel (substr sel (+ 2 pos))) ) (nom sel) (msg js) ) (and (eq js chx) (msg js)) js ) (setq sel "Tout" rep sel) (while (/= sel "Fin") (initget "Tout Sélection Nom Fin") (or (setq sel (getkword (strcat "\nChoix des blocs [Tout/Sélection/Nom/Fin] <" sel "> : "))) (progn (setq sel rep) (and (eq rep "Tout") (setq sel "Fin") ) ) ) (cond ((eq sel "Tout") (setq rep sel) ) ((eq sel "Sélection") (setq rep sel lst (choix lst T) ) ) ((eq sel "Nom") (setq rep sel lst (choixbl lst) ) ) ) ) (list rep lst) ) (defun oui-non(que o-n / rep) (initget "Oui Non") (setq rep (getkword (strcat "\n" que " [Oui/Non] <" (if (eq o-n "0") "Non" "Oui") "> : "))) (cond ((eq rep "Oui") (setq rep "1") ) ((eq rep "Non") (setq rep "0") ) (T (setq rep o-n) ) ) ) (vl-load-com) (setq doc (vla-get-activedocument (vlax-get-acad-object)) s *error* *error* *errret* ) (vla-startundomark doc) (or (setq val (getenv "Patrick_35_syn_val")) (setq val "1") ) (or (setq pos (getenv "Patrick_35_syn_pos")) (setq pos "0") ) (or (setq ang (getenv "Patrick_35_syn_ang")) (setq ang "0") ) (if (and (or (and (eq cmd 0) (setq rep (boite_dialogue "SYN V1.23") val (nth 2 rep) pos (nth 3 rep) ang (nth 4 rep) rep (list (nth 0 rep) (nth 1 rep)) ) ) (and (eq cmd 1) (setq rep (question)) (setq val (oui-non "Conserver la valeur des attributs" val)) (setq pos (oui-non "Conserver la position des attributs" pos)) (setq ang (oui-non "Conserver l'angle des attributs" ang)) ) ) (car rep) ) (progn (or (eq (car rep) "Tout") (cadr rep) (setq rep (list "Tout" nil)) ) (and (if (cadr rep) (ssget "x" (list (cons 0 "insert") (cons 2 (strcat "`**," (cadr rep))) (cons 66 1))) (ssget "x" (list (cons 0 "insert") (cons 66 1))) ) (progn (vlax-for blo (setq sel (vla-get-activeselectionset doc)) (setq str (nombl blo) att nil ) (and (or (eq (car rep) "Tout") (and (cadr rep) (wcmatch (strcase (cadr rep)) (strcase (strcat str "," str "`,*" ",*`," str "`,*,*`," str))) ) ) (progn (foreach ent (vlax-invoke blo 'getattributes) (setq att (cons (list (vlax-get ent 'textstring) (vlax-get ent 'insertionpoint) (vlax-get ent 'textalignmentpoint) (vlax-get ent 'alignment) (vlax-get ent 'rotation) ) att ) ) ) (setq lst (cons (cons blo att) lst)) (or (member (nombl blo) lstbl) (setq lstbl (cons (nombl blo) lstbl)) ) ) ) ) (vla-delete sel) (and lst (progn (setq def (getvar "cmdecho")) (setvar "cmdecho" 0) (vlax-for blo (vla-get-blocks doc) (and (eq (vla-get-islayout blo) :vlax-false) (setq str (vla-get-name blo)) (member str lstbl) (progn (vl-cmdf "_.attsync" "_name" str) (princ (strcat (chr 8) " pour le bloc " str ".")) ) ) ) (setvar "cmdecho" def) (and (or (eq val "1") (eq pos "1") (eq ang "1")) (foreach blo lst (mapcar '(lambda(a b) (and (eq val "1") (vl-catch-all-apply 'vlax-put (list a 'textstring (nth 0 b))) ) (and (eq pos "1") (progn (vl-catch-all-apply 'vlax-put (list a 'insertionpoint (nth 1 b))) (vl-catch-all-apply 'vlax-put (list a 'textalignmentpoint (nth 2 b))) (vl-catch-all-apply 'vlax-put (list a 'alignment (nth 3 b))) ) ) (and (eq ang "1") (vl-catch-all-apply 'vlax-put (list a 'rotation (nth 4 b))) ) ) (vlax-invoke (car blo) 'getattributes) (reverse (cdr blo)) ) ) ) (setenv "Patrick_35_syn_val" val) (setenv "Patrick_35_syn_pos" pos) (setenv "Patrick_35_syn_ang" ang) ) ) ) ) ) ) (vla-endundomark doc) (setq *error* s) (princ) ) (defun c:syn() (if (zerop (getvar "cmdactive")) (patrick:synchro_att 0) (patrick:synchro_att 1) ) ) (defun c:-syn() (patrick:synchro_att 1) ) (setq nom_lisp "SYN") (if app (if (= (strcase (substr app (1+ (- (strlen app) (strlen nom_lisp))) (strlen nom_lisp))) nom_lisp) (princ (strcat "..." nom_lisp " chargé.")) (princ (strcat "\n" nom_lisp ".LSP Chargé.....Tapez " nom_lisp " pour l'éxecuter."))) (princ (strcat "\n" nom_lisp ".LSP Chargé......Tapez " nom_lisp " pour l'éxecuter."))) (setq nom_lisp nil) (princ)

Hello Commande : ZOOM Spécifiez le coin d'une fenêtre, entrez un facteur d'échelle (nX ou nXP) ou [Tout/Centre/DYnamique/ETendu/Précédent/Echelle/Fenêtre/Objet] <temps réel> : C Spécifiez le centre : 3700,2364 Entrez l'agrandissement ou la hauteur <4024.0402> : 4000 Battu par Eric ! La Sante, Bye, lecrabe (triste & fatigue)

Hello Commande: MODIFVAR Entrez le nom de la variable ou [?]: viewctr VIEWCTR = 4127.1506,2321.9167,0.0000 (lecture seule) Battu par Eric ! La Sante, Bye, lecrabe (triste & fatigue)

Hello Je n'ai pas telecharge tes DWGs car je n'ai pas AutoCAD "sous la main" ! Donc peut etre que je n'ai pas "bien compris" ton souci ... Neanmoins j avais demande cette Routine "ScaleLineTypes" a notre Grand Maitre Gilles ! Qui permet de modifier "subtilement" un DWG qui sera utilise en XREF dans un DWG "Maitre / Principal" qui bien sur n'a pas le MEME ECHLTP / LTSCALE ! Bien entendu on sauvegarde toujours un DWG avant de le "bidouiller" !? ---- Mes Magouilles PERSOs pour les XREFs ---- 1) Je fais toujours un Copier / Coller des DWGs en XREF - Ainsi j'ai une SAUVEGARDE ! ( D'ailleurs je fais aussi un Copier / Coller du DWG "Maitre / Principal" ! ) 2) J'ouvre en Mode RECUPERER / _RECOVER toutes les XREFs pour les "nettoyer / purger" EN PROFONDEUR et parfois meme je supprime TOUTES les Presentations !? ( si tres nombreuses et complexes car cela alourdit le DWG ! ) 3) Je NOTE scrupuleusement la valeur de ECHLTP / LTSCALE de la XREF et j'applique en consequence le BON facteur avec la Routine "ScaleLineTypes" par rapport a celle dans le DWG "Maitre / Principal" ... Et je re-enregistre sous le MEME nom ... 4) A faire pour tous les DWGs en XREF ... La Sante, Bye, lecrabe (triste & fatigue) ;; ;; Routine: ScaleLineTypes by GC ;; (defun c:ScaleLineTypes (/ ss i scl dxf) (prompt "\nSelectionnez les Objets ou Entree pour Tous : ") (setq ss (cond ((ssget)) ((ssget "X")))) (initget 7) (setq scl (getreal "\nEntrez le Facteur de Changement RELATIF du Facteur d Echelle LOCAL: ")) (repeat (setq i (sslength ss)) (setq dxf (entget (ssname ss (setq i (1- i))))) (if (setq lts (assoc 48 dxf)) (entmod (subst (cons 48 (* scl (cdr lts))) lts dxf)) (entmod (append dxf (list (cons 48 scl)))) ) ) (princ) )

Hello Olivier Merci je ne savais pas pour les variables USERS1-USERS5 qui ne sont pas conservees !? Encore un Micro-Bug qui aurait pu etre corrige facilement depuis longtemps !! La Sante, Bye, lecrabe (triste & fatigue)

Hello Veux tu une routine Lisp/VLisp qui supprime le Dynamisme d'un Bloc dynamique selectionne et donc le transforme en Bloc classic / standard ?! Sans toucher au Bloc dynamique original !? La Sante, Bye, lecrabe (triste & fatigue) PS: battu par notre grand maitre Gilles ! ... Et j'allais sans doute fournir la meme routine de Gilles !

Hello YES il y 3 x 5 variables disponibles ... USERI1 - USERI5 : pour des variables entieres USERR1 - USERR5 : pour des variables reelles / flottantes USERS1 - USERS5 : pour des variables chaines / caracteres La Sante, Bye, lecrabe (triste & fatigue) PS: par exemple COVADIS utilise USERI1 pour stocker "l'Echelle COVADIS" du DWG ... Commande: MODIFVAR Entrez le nom de la variable ou [?]: useri1 Entrez une nouvelle valeur pour USERI1 <200>:

Hello +1 avec Olivier ! BIEN verifier la presence d'une Webcam et d'un port physique RJ45 ! De plus il faut au moins 3 ports USB ! + clavier numerique car sinon c la misere avec AutoCAD ... Et surtout tu "SOIGNES" la GARANTIE !!! J'ai 2 vieux Portables Dell Precision 15.5P de 2012/2013 - 20 Go Ram - DD IDE 500 Go Processeur Core i7 2720QM (de 2011) : 4C/8T - 2.2-3.3 Ghz - 6 Mo cache Les batteries ne "tiennent" plus que environ 10-20 mn ... Ce qui est normal pour moi ! Car ils ont fonctionne a au moins 95% du temps sur secteur ! Mais a part ca, ils fonctionnent BIEN ! Et aujourd'hui ils sont sous Win 10 sans probleme ... Et ne sont pas ridicules sur des fichiers pas trop gros ! La Sante, Bye, lecrabe (triste & fatigue)

Hello _UCS = SCU et _W (World) = G / Ge / Gé Cette foutue option "G / Ge / Gé" qui a change suivant les versions d'AutoCAD Francais ! La Santé, Bye, lecrabe (triste & fatigué)

Hello En fait pour être compatible avec toutes les versions AutoCAD 20XX : _ucs;_w La Santé, Bye, lecrabe (triste & fatigué)

Hello Tres bien le Core i7 9750H et les 32 Go Ram et le DD M2 1 To ... PERSO: je choisis le 1er a 2100 Euros environ - Donc le moins cher ! Car je pense que tu ne verras pas "vraiment" la difference entre ces 3 modeles qui different par la carte graphique !? La RTX 2060 du modele le moins cher, suffira largement a mon avis ? Et surtout tu "SOIGNES" la GARANTIE !!! La Sante, Bye, lecrabe (triste & fatigue)

Hello Thierry en Vacs ! Je n'y crois pas !! La Sante, Bye, lecrabe (triste & fatigue)

Hello YES MicroStation est RAPIDE / FIABLE par comparaison a AutoCAD ... et aussi dispose d'une excellente gestion des Types de Ligne et des Rasters et des XREFs ... Ah si seulement AutoCAD pouvait "piquer" ses fonctionnalites "efficaces" a MicroStation !? J'ai realise plusieurs fois des formations chez des Clients qui "abandonnaient" MicroStation pour AutoCAD ! LA "SEULE" RAISON : la presence de Covadis / AutoPiste sur AutoCAD !!! La Sante, Bye, lecrabe (triste & fatigue)

Hello YES sur des licences NON Renouvellees, je crains que le transfert de licence ne soit pas possible !? DONC PRUDENCE !! La Sante, Bye, lecrabe (triste & fatigue)

Hello @Steven Conseil: en general ne jamais chercher a comprendre les Bugs mysterieux !? La Sante, Bye, lecrabe (triste & fatigue)

Hello Voir cette Video Espagnol ( pour ajouter le bouton MANQUANT de MAPANNTEXT ) : Autre solution avec une commande au clavier = MN Dans le fichier "ACAD.PGP" ajouter : MN , *MAPANNTEXT Ou bien commande au clavier : MAPANNTEXT < Entree > Sinon voici une Demo US/English de MAPANNTEXT : La Sante, Bye, lecrabe (triste & fatigue)

Hello Tu quittes AutoCAD... Tu verifies que le MAJ Lock est OFF ... Et tu relances ... Est ce OK ?? Si toujours NOK : alors tu lances la commande MTEXT, bouton droit, tu verifies que le MAJ Lock est OFF dans le Menu contextuel ! ... Et tu relances ... Est ce OK ?? La Sante, Bye, lecrabe (triste & fatigue)