lecrabe

Hello Oui une matinée avec qq masquages qui fatiguent ! Bye, lecrabe fatigué

Hello YES je viens encore d'en eliminer 3/4 dans la matinee ! Bye, lecrabe "fatigue"

Hello Je passe un temps fou a signaler puis a masquer ! Et franchement je suis FATIGUE !! AVANT on avait la possibilite de supprimer / inhiber un compte Spam, mais je ne sais pas faire sur le nouveau site !? Peut on le faire ?? Par exemple ces comptes sont mortels au niveau SPAM : Invité debraeq69 , Invité SaraAffep , Invité quetiapine direct uk , Merci d'avance, Bye, lecrabe "fatigue"

Hello OUI un truc du genre STARTUP ou STARTUPMODE !? Bye, lecrabe

Hello @Dilack33 En effet en theorie ce Plugin est LA Solution ! ... SVP tu nous diras ... Sinon j'ai 2 tres vieilles routines Lisp (A Ameliorer imperativement) pour les TIF+TFW et JPG+JGW La Sante, Bye, lecrabe

Hello Donc il te faudrait une routine Lisp qui lise le fichier texte TFW ou JGW ou PNW pour inserer correctement (Position XY + Echelle) le fichier TIF ou JPG ou PNG ! La Sante, Bye, lecrabe

Hello 1) Non la commande MAPIINSERT (ECW, SID, TIF+TFW, JPG+JGW, PNG+PGW) n existe que dans AutoCAD MAP et AutoCAD CIVIL ! 2) IDEM pour la commande MAPCSASSIGN qui n est pas obligatoire pour MAPIINSERT 3) Par contre SVP de bonnes unités (Metre par exemple) avec la commande UI La Sante, Bye, lecrabe

Hello Je suis tres mauvais sur Covadis mais je crois savoir que les Algos derriere les MNTs de Covadis, Mensura, ACAD CIVIL, ne supportent pas les Surplombs, ni meme les Verticales ! As tu essaye avec des points en haut des murs tres legerement decales (0.1 degre par exemple) afin que les murs / cloisons ne soient pas verticaux !? La Sante, Bye, lecrabe

Hello 1) Pas sur de bien te suivre !? 2) Neanmoins SVP tu joues avec les differentes valeurs de PICKSTYLE ... Et tu regardes l'Aide / Help sur PICKSTYLE ... La Sante, Bye, lecrabe

Hello -- Pour selectionner UN Bloc classique particulier dans TOUT le DWG (ssget "_X" '((0 . "INSERT") (2 . "Mon_Joli_Bloc"))) La Sante, Bye, lecrabe

Hello @Aczg +1 avec @Steven Et si tu veux remettre VITE les Entites des Blocs sur le calque ZERO et en Mode ByBlock (DuBloc) ou en Mode ByLayer (DuCalque) au niveau des 3 Proprietes : Couleur, Type de ligne, Epaisseur de ligne Voici 2 routines "RB_Zero_ByBlock" et "RB_Zero_ByLayer" de notre regrette Patrick_35 ... La Sante, Bye, lecrabe RB_Zero_ByBlock___RB_Zero_ByLayer___P35.zip

Hello @DaWeeD_Gab Donc tu dois un Apero a @Eric ! Bonne Semaine, La Sante, Bye, lecrabe

Hello @afipl 1) Tu trouveras ci-joint une routine Lisp "LAYER_LEGEND_DESCR" qui dessine -- N Lignes horizontales avec la couleur par defaut du Calque concerne -- N Textes avec le Nom du Calque ET la Description du Calque 2) La routine permet de traiter soit TOUT le DWG, soit une selection classique ... 3) En esperant que cela te convienne !? Bon Dimanche, La sante, Bye, lecrabe PS: extraction de mon stock de 3001 routines ... ;; ;; Routine: Layer_Legend_Descr by Ranjit.Singh for Patrice B. ;; ;; ATTENTION: No Error Trap/Detection, so please be careful ! ;; (vl-load-com) (defun c:Layer_Legend_Descr (/ pt rsp dat ln lst desln) (initget "All Select") (setq pt (getpoint "\nSelect Insertion Point: ")) (initget "Select All") (setq rsp (getkword "\nSpecify Option [Select / All] <All>:")) (cond ((= rsp "Select") (mapcar '(lambda (x) (setq pt (func_2 pt x))) (progn (acad_strlsort (mapcar '(lambda (x) (and (null (member x lst)) (setq lst (cons x lst)))) (mapcar '(lambda (x) (cdr (assoc 8 (entget x)))) (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget))))))) lst))) (t (while (setq dat (tblnext "layer" (null dat))) (setq pt (func_2 pt (cdr (assoc 2 dat))))))) (princ)) (defun func_2 (pt ln / desln) (entmake (list '(0 . "line") (cons 10 pt) (cons 11 (mapcar '+ pt '(2.5 0))) (cons 8 ln))) (entmake (list '(0 . "text") (cons 10 (mapcar '+ pt '(3.0 0))) '(40 . 0.1) (cons 1 ln) (cons 8 ln))) (if (zerop (strlen (setq desln (getpropertyvalue (tblobjname "layer" ln) "Description")))) () (entmake (list '(0 . "text") (cons 10 (mapcar '+ pt '(4.5 0))) '(40 . 0.1) (cons 1 desln) (cons 8 ln)))) (mapcar '- pt '(0 0.15)) )

Hello Mais tu ne veux publier que certaines Presentations / Layouts, il suffit qu'elle soient TOUTES au Debut ou a la Fin des Onglets de Presentation ! Et donc a ce moment LA, avec SHIFT comme le dit si bien Christian, c facile ... Pour reorganiser tes Presentations, tu peux utiliser l'excellente routine TABSORT de Lee-Mac !? http://www.lee-mac.com/tabsort.html La Sante, Bye, lecrabe

Hello Blague trouvee ce soir sur LKD ... La Sante, Bye, lecrabe Lorsqu'un groupe de touristes visite une ferme aux crocodiles, le proprietaire des lieux lance une proposition audacieuse ; - Celui qui ose sauter, nager jusqu'au rivage et survivre, je donnerai 1 million de dollars. Personne n'osait bouger, soudain un homme sauta a l'eau et nagea desesperement vers le rivage alors qu'il etait poursuivi par tous les crocodiles. Avec beaucoup de chance, il est arrive, suscitant l'admiration de tout le monde dans l'endroit, puis le proprietaire a annonce; - Nous avons un vainqueur courageux ! Apres avoir recupere leur recompense, le couple retourne a l'hotel, a son arrivee, le directeur lui dit; il etait tres courageux pour vous de sauter, alors l'homme repond; -Je n'ai pas saute, quelqu'un m'a pousse ! Sa femme sourit ... Morale : "Derriere chaque homme qui reussit, il y a une femme qui le pousse."

Hello La derniere version est la v17.1H qui "accroche" les versions 2023 ... As tu cette version ? La Sante, Bye, lecrabe

Hello @Max73 1) C facile pour la Largeur globale d'une Polyligne 2D en utilisant un champ dynamique qui "reflete" la propriete : Largeur globale ! Et si tu parles de la notion d'Epaisseur de ligne forcee alors IDEM ! 2) Et pour les Multi-Lignes, a ma connaissance il n'y a pas de notion de Largeur globale ! Par contre, tu peux avoir une "Epaisseur de ligne" forcee sur toutes les Lignes de la multi-ligne et donc dans CE cas, un Champ dynamique peut refleter l'Epaisseur de ligne "forcee" de la Multi-ligne ... Bye, lecrabe

Hello @Sebdiara 1) Je confirme la reponse de @didier ! 2) Ton DWG 3D est beaucoup trop complique pour AutoCAD (AVEC ou SANS Covadis) 20XX ! 3) Liste des objets de ton DWG : 10 374 3D Solids , 3 Cercles, 3 MTexts , 27 Lignes , 297 3D Faces , 191 304 Regions , 1 AutoCAD Proxy (Le MNT Covadis) 4) Donc il faut multiplier les calques et transferer certains objets sur de nouveaux calques et GELER ces calques inutiles en 3D ... 5) Je te joins les 3 routines Lisp OK en .ZIP Bye, lecrabe - STT_Save___STT_All_SHX___STT_Restore___v120_GC_Vincentp010.zip

Hello SVP as tu regarde ces 2 sujets : Ce qui ralentit considerablement AutoCAD en Point de vue 3D / Orbite 3D, etc, c la visibilite (dans le DWG principal ou dans une XREF DWG) d'un quelconque Text, MText, Cotation (Dimension), Attribut, etc, utilisant une quelconque Police Windows .TTF ! Donc dans ton DWG principal, tu fais "STT_Save" puis "STT_All_SHX", apres seulement tu passes en 3D .... Et quand tu as fini, tu reviens aux Polices de depart avec "STT_Restore" ... ATTENTION : si tu as des XREFs DWG, il faut avoir prepare une version speciale des XREFs (que je nomme "xxxxxxxx__SHX") et donc je "change" toutes les XREFs en version SHX avant de passer en 3D ... Et apres je remets les XREFs de depart ... ****** Ton probleme n'a pas grand chose a voir avec Covadis ****** La Sante, Bye, lecrabe

Hello BRAVO Bruno tu m'as devance car j'allais copier / coller ton code de "dyn_read_xdata" ... Bonne journee, Bye, lecrabe

Hello Comme d'habitude, cela te coutera un excellent Whisky single malt ! La Sante, Bye, lecrabe

Hello Avec un WBLOC (Preferable !) ou un Copier / Coller vers un nouveau DWG vierge (ayant les bonnes unites) : A priori je dirais NON !? Et pour les Presentations, tu les transferes comment ? ... AutoCAD Design Center ... Mais si la Personne a acces au vrai DWG, elle pourra le voir en s'apercevant par exemple que les Codes de Handle / Maintien ne sont pas les memes ! La Sante, Bonne semaine, Bye, lecrabe

Hello @vincentp010 MERCI pour cette correction et j'ai repercute ta Modif sur le sujet original : La Sante, Bye, lecrabe

Hello MERCI a Vincentp010 pour avoir resolu le Bug sur la fonction "STT_All_SHX" Voici-apres les 3 routines a priori OK pour Moi ! La Sante, Bye, lecrabe ;; ;; https://cadxp.com/topic/55909-svp-3-routines-sur-les-styles-de-texte/ ;; ;; Routines: STT_Save___STT_All_SHX___STT_Restore___GC.lsp ;; ;; Routines ecrites par GC (gile) pour Patrice B. ;; ;; --------------------------------------------------------------------------------- ;; Modification 2022-04-30 vs 1.10 : les styles dependants des XREFs sont ecartes ! ;; !!!! Version 1.10 corrigee qui traite les XREFs DWG !!!! A priori toujours NOK ! ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; !!!! Vs 1.20 avec la VRAIE correction du Bug sur STT_All_SHX !!!! par vincentp010 ;; https://cadxp.com/topic/56177-visualiser-vite-vos-projets-en-3d/ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; (defun c:STT_Save (/ file ts) (setq file (open (strcat (getvar 'dwgprefix) (vl-filename-base (getvar 'dwgname)) "_STT.csv" ) "w" ) ) (while (setq ts (tblnext "STYLE" (not ts))) (if (zerop (logand (cdr (assoc 70 ts)) 16)) (write-line (strcat (cdr (assoc 2 ts)) ";" (cdr (assoc 3 ts))) file ) ) ) (close file) (princ) ) (defun setfont (style font / ename elist) (and (setq ename (tblobjname "STYLE" style)) (setq elist (entget ename)) (entmod (subst (cons 3 font) (assoc 3 elist) elist)) ) ) ;;;; "STT_All_SHX" v1.20 de Vincentp010 ;;;; (defun c:STT_All_SHX (/ ts shx_police) (setq shx_police "ISOCP.SHX") (while (setq ts (tblnext "STYLE" (not ts))) (if (vl-filename-extension (cdr (assoc 3 ts))) (progn (if (= (strcase (vl-filename-extension (cdr (assoc 3 ts)))) ".TTF" ) (setfont (cdr (assoc 2 ts)) shx_police) ) ) ) ) (command-s "_regenall") (princ) ) (defun c:STT_Restore (/ filename file line style font) (and (setq filename (findfile (strcat (getvar 'dwgprefix) (vl-filename-base (getvar 'dwgname)) "_STT.csv" ) ) ) (setq file (open filename "r")) (while (setq line (read-line file)) (setq pos (vl-string-position (ascii ";") line) style (substr line 1 pos) font (substr line (+ pos 2)) ) (if (= (strcase (vl-filename-extension font)) ".TTF") (setfont style font) ) ) ;; (command-s "_regenall") ) (command-s "_regenall") (princ) )

Hello @AnglesDroits https://transfert.free.fr/A6CKKe La Sante, Bye, lecrabe