lecrabe

Hello SVP tu nous donnes un lien Wetransfert ou autre avec tes fichiers en ZIP ATTENTION: pour MAPIINSERT il faut une image JPG+JGW ou PNG+PGW ou TIF+TFW ou ECW ou SID !! Et bien sur tu es en METRE ! Bye lecrabe

Hello SUPER ... Et Merci pour le retour ! Neanmoins les Updates sont fortement conseilles !? Bye, lecrabe

Hello OK donc un Covadis v17.1I ... Bye, lecrabe

Hello Si le probleme est lie a Covadis v18.0, la bonne version c Covadis v18.0B ! Good Luck, Bye, lecrabe

Hello Et si tu fais un copier / coller de ton raccourci de lancement de AutoCAD CIVIL 2021 Tu le modifies en ajoutant a la fin du champ "Cible" : <espace> /P TEST Ainsi ton CIVIL va se lancer sur un nouveau Profil TEST sans Covadis (du moins je l espere) !? Bye, lecrabe PS: a propos SVP peux tu m envoyer l Image en PNG/JPG du APROPOS de ton AutoCAD CIVIL 2021 ?

Hello Tu peux installer le Update AutoCAD 2023.1.2 pour voir !? Puis le Update MAP 2023.0.3 pour voir !? Bye, lecrabe

Hello Some may have heard, but after 25 years at Autodesk, my current role was eliminated ... https://www.linkedin.com/feed/update/urn:li:activity:7027050350998167552/ C DESOLANT sans parler du depart de Lynn Allen (Il y a qq annees) ... qui maintenant "officie" principalement pour Dassault et DrafSight ! https://www.engineering.com/story/live-webinar---take-control-of-your-2d-cad-experience-with-lynn-allen Bye, lecrabe

Hello Ma version preferee est la 2019 ! Si tu enregistres en Mode "Sans Covadis" sous un autre nom, tu recharges, as tu le probl ? Bye, lecrabe

Hello @fabcad Le bon lien Web : https://www.theswamp.org/index.php?topic=56896.msg610755 Bye, lecrabe

Hello Donc un Lisp compatible ZWCAD qui fasse a peu pres la meme chose ! Bye, lecrabe

Hello Tu veux sans doute dire : creer un Atlas de cartes comme avec AutoCAD MAP (ou AutoCAD CIVIL) !? Bye, lecrabe

Hello En fait c un superbe livre sur AutoCAD MAP ! Mais MAP est inclus dans AutoCAD CIVIL , donc il s applique a MAP ET CIVIL ! Bye, lecrabe

Hello Didier J adore ton mode Psychologue Meteorologiste ! Bye, lecrabe

Hello Le superbe livre de Quentin MARQUETTE est Dispo : qu on se le dise ! https://www.linkedin.com/feed/update/urn:li:activity:7034799504214118400/ Bonne semaine, La Sante, Bye, lecrabe PS: C un livre consacre a AutoCAD MAP et donc il s applique AUSSI a AutoCAD CIVIL qui inclus MAP ! RAPPEL voir ici le Forum English AutoCAD MAP : https://forums.autodesk.com/t5/autocad-map-3d-forums/ct-p/autocad-map-3d-en

Hello Un Chti Alsachien au Top sur les Types de Ligne, c rare !? Bon WE, La Sante, Bye, lecrabe

Objet: Licence - Warning Message si 2 logiciels lances pour 1 seul possible Hello Pour Info, cela commence avec AutoCAD CIVIL 3D et INVENTOR ... https://forums.autodesk.com/t5/abonnements-installation-et/autodesk-met-en-place-un-systeme-de-messagerie-pour-aider-ses/m-p/11775684#M4375 La Sante, Bye, lecrabe

Hello A priori avec 1m20 tu es OK en toute circonstance ! Normalement c 1m10 pour les ERP et 1m00 pour le prive ... Mais tu veux peut etre "economiser" !? https://www.inoxdesign.fr/guides/norme-garde-corps-pourquoi-les-respecter/ https://inoxkit.fr/content/22-normes-garde-corps Bye, lecrabe

Hello Ne JAMAIS Geler ou Verrouiller le Calque ZERO ! A la rigueur INACtif ... Bye, lecrabe

Hello Au fait tu as un AutoCAD, ACAD Archi, ACAD MEP, ACAD Plant, etc ? ou un AutoCAD MAP / ACAD CIVIL ? Bye, lecrabe

Hello Top la reponse du Brestois ! Bye, lecrabe

Hello Au fait tu connais un peu Covadis ? Les fichiers "ACADISO.PAT" et "ACAD.PAT" de Covadis v14/v15/v16/v17 sont ici : C:\Program Files\Geomedia SA\Covadis\Support Donc il faudra avec un Editeur de texte (NOTEPAD.exe ou autre !?) y ajouter a la fin tes propres fichiers .PAT ... Bon WE, La Sante, Bye, lecrabe

Hello Ah OK ... Merci pour ta future version amelioree ! Bon WE, La Sante, Bye, lecrabe

Hello @PHILPHIL Mais c le but de la routine : mettre tous les entites de 1er niveau des blocs selectionnes dans le calque "0_BLOCK" ! Apres tu fais un Decomposer / _Explode ... Donc les entites de 1er niveau des blocs selectionnes dans le calque "0_BLOCK" ... Mais j ai sans doute mal compris ta demande !? Bye, lecrabe

Hello @PHILPHIL Que penses tu du Lisp modifie de Patrick_35 ? A la ligne 113, tu peux modifier le nom du calque !? Bye, lecrabe

Hello J ai une routine "RB_Layer_0_BLOCK" derivee de RB v2.02 (du regrette Patrick_35) qui met les entites de 1er niveau sur un calque specifique "0_BLOCK" (qui doit exister avant l execution de la routine) ---- Mais cela ne traite pas les sous-blocs ! ---- Mais tu peux l executer une 2eme fois sur la meme selection pour traiter les sous-blocs de niveau 2 ---- etc Cependant cette routine "RB_Layer_0_BLOCK" m a deja rendu des services pour justement apres un "simple" DECOMPOSER / _EXPLODE avoir les entites de 1er niveau sur ce fameux calque "0_BLOCK" (voire de 2eme niveau !? si double execution) La Sante, Bye, lecrabe ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; Routine : RB_Zero_ByLayer ;; ;; Routine modifiee ;; --> RB_Layer_0_BLOCK pour TOUT mettre sur le Calque "0_BLOCK" ;; qui DOIT EXISTER !! ;; ;; Vers US/English Minimum par Patrice B. ;; ;; Micro-Modif pour V.... ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; Version SPECIALE de "RB/RB_Calque" avec RETOUR sur le Calque ZERO ;;; ;;; ET on "touche" aux Couleurs, Types de Lignes, Epaisseurs ---> <DuCalque> ;;; ;;; MLINE et Attribut --> <DuCalque> ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; Remise en Mode <DuBloc> et sur le Calque ZERO de TOUS les Blocs/Symboles (insert) ;;; ou bien d'une Selection classique de Blocs/Symboles ;;; ;;; Mise en EVIDENCE des 4 "Forcages" : Calque 0 , Couleur , Type de Ligne , Epaisseur ;;; pour commentaire EVENTUEL si on desire ne FORCER que 1/2/3 propriete(s) ... ;;; ;;;================================================================= ;;; ;;; RB.LSP V2.02 ;;; ;;; Refait les Blocs de la Couleur <DuBloc> (+ Type de Ligne + Epaisseur ) ;;; et "retour" sur le Calque 0 de TOUTES les entites ;;; ;;; Copyright (C) Patrick_35 ;;; ;;;================================================================= ;; (defun c:RB_Layer_0_BLOCK ( / *errrb* bl ent js lst nombl doc s sel) (defun c:RB_Zero_ByLayer ( / *errrb* bl ent js lst nombl doc s sel) (defun *errrb* (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) ) ) (vl-load-com) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (setq s *error* *error* *errrb* ) ;; (princ "\nSelectionnez les blocs <Tout les blocs> : ") (princ "\n!! Please create BEFORE the Layer '0_BLOCK' !! \nSelect Blocks <Tout/all Blocks> : ") (if (setq sel (ssget (list (cons 0 "insert")))) (progn (vlax-for bl (setq sel (vla-get-activeselectionset doc)) (or (member (setq nom (nombl bl)) lst) (setq lst (cons nom lst)) ) ) ; (foreach nom lst ; (if js ; (setq js (strcat js "," nom)) ; (setq js nom) ; ) ; ) (vla-delete sel) ) (setq js "*") ) ; ---------------------------------------------------------------- ; Modifications dans la table des blocs ; ---------------------------------------------------------------- (vlax-for bl (vla-get-blocks doc) (and (eq (vla-get-islayout bl) :vlax-false) (or (eq js "*") (member (vla-get-name bl) lst) ) (vlax-for ent bl ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;--- Forcer sur Calque / Layer 0 ;; (vla-put-layer ent "0") (vla-put-layer ent "0_BLOCK") ;;;--- Forcer la couleur sur Dubloc / ByBlock ;; (vla-put-color ent 0 ) ;; ByBlock ;; (vla-put-color ent 256 ) ;; ByLayer ;;;--- Forcer le type de ligne sur Dubloc / ByBlock ;; (vla-put-linetype ent "ByBlock") ;; ByBlock ;; (vla-put-linetype ent "ByLayer") ;; ByLayer ;;;--- Forcer l'epaisseur de ligne sur Dubloc / ByBlock ;; (vla-put-lineweight ent -2) ;; ByBlock ;; (vla-put-lineweight ent -1) ;; ByLayer ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ) ) ) ;;; ------ Avec un REGEN ------ (vla-regen doc acAllViewports) (vla-endundomark doc) (setq *error* s) (princ) ) ;; (setq nom_lisp "RB") ;; (setq nom_lisp "RB_Zero_ByLayer") (setq nom_lisp "RB_Layer_0_BLOCK") (if (/= app nil) (if (= (strcase (substr app (1+ (- (strlen app) (strlen nom_lisp))) (strlen nom_lisp))) nom_lisp) (princ (strcat "..." nom_lisp " loaded/charge ")) (princ (strcat "\n" nom_lisp ".LSP Loaded/Charge... " nom_lisp " to run/pour l executer. "))) (princ (strcat "\n" nom_lisp ".LSP Loaded/Charge... " nom_lisp " to run/pour l executer. "))) (setq nom_lisp nil) (princ)