lecrabe

Hello SVP tu vas recreer un nouveau Sujet / Topic dans le forum AutoCAD 2020-2023 ! Merci, Bye, lecrabe

Hello RAPPEL : si il s agit de Points graphiques AutoCAD, il faut utiliser l Accrochage "Nodal / Noeud" et si il s agit de Blocs (TCPOINT par exemple ou autre), c l Accrochage "Insertion" ... Si AutoCAD 2022/2023/2024, eventuellement tenter : GFXDX12 = 0 puis relancer AutoCAD ... Bye, lecrabe

Hello Voici qq vieux Livres ADSK que j ai gardes "au chaud" ! + le gros livre sur les fonctionnalites de MAP 2000 Francais (610 pages) La Sante, Bonne semaine, Bye, lecrabe

Hello @Cyclusalexis https://www.grosfichiers.com/pKkpPiGdrx3 Comme d habitude, 2 versions DWG : 3DPolyface & 3DSolid ... SVP tu nous diras si cela te convient ? La Sante, Bye, lecrabe

Hello J utilise souvent cette excellente routine "TSUR_PL_LAY" de notre Grand Maitre Gilles qui envoie sur l ecran texte la Surface des Objets par Calque + le Total general ... ET BIEN SUR elle fonctionne sur AutoCAD LT 2024 ! La Sante, Bye, lecrabe ;; ;; Routine: TSUR_PL_LAY par GC pour les *POLYLINE (vs 1.00) ;; ;; v1.01A : + CIRCLE , MPOLYGON , REGION , ELLIPSE (Micro-Micro-Modif par Patrice B.) -- ;; ;; Total des surfaces par CALQUE ;; ;; 2 lignes avec (vla-get-area ent ... ;; ;; ATTENTION: la routine PLANTE si on selectionne des Polylignes de type: 3D Maillage / 3D Mesh ;; Car la propriete vla-get-area ou vla-get-length n'existe pas pour ces Entites ... ;; ;; RAPPEL: vla-get-length NON Disponible pour les Cercles ! ;; ;; --- Interrogation Entite/Objet en Lisp --- ;; (entget (car (entsel)) '("*")) ;; (vl-load-com) (defun c:TSUR_PL_LAY (/ ent ele lst sel res tot filtre) (prompt "\nTSUR_PL_LAY traite: *POLYLINE,CIRCLE,MPOLYGON,REGION,ELLIPSE \n") (setq filtre 'layer) ; Layer pour les calques, Color pour les couleurs, Linetype pour les types de lignes ;; ConstantWidth : Non Fonctionnel (and (ssget (list (cons 0 "*POLYLINE,CIRCLE,MPOLYGON,REGION,ELLIPSE"))) (progn (vlax-for ent (setq sel (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))) (if (setq ele (assoc (vlax-get ent filtre) lst)) (setq lst (subst (list (car ele) (cons (vla-get-area ent) (cadr ele))) ele lst)) (setq lst (cons (list (vlax-get ent filtre) (list (vla-get-area ent))) lst)) ) ) (vla-delete sel) (setq tot 0) (mapcar '(lambda(x) (setq tot (+ tot (setq res (apply '+ (cadr x))))) (princ "\nTotal Surface *POLYLINE,CIRCLE,MPOLYGON,REGION,ELLIPSE du " ) (princ filtre) (princ " --> ") (princ (car x)) (princ (strcat " : " (rtos res))) ) (vl-sort lst '(lambda(a B)(< (car a) (car B)))) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; (padLeft (rtos (car item) 2 2) 6) (princ (strcat "\nTotal : " (rtos tot))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ) ) (princ) )

Hello SVP La question est dans le titre ! Export SHP , si Oui depuis quelle version ? Import SHP , si Oui depuis quelle version ? Merci, La Sante, Bye, lecrabe

Hello @salvanorigatore Au fait as tu bien le Update AutoCAD 2023.1.3 (1 Go) sorti en avril 2023 !? Car il y a eu 3 Updates sur la 2023 : donc beaucoup de choses ont ete corrigees / ameliorees ! https://help.autodesk.com/view/ACD/2023/FRA/?guid=AUTOCAD_2023_UPDATES La Sante, Bye, lecrabe

Hello Deja en principe la routine Lisp TABSORT de Lee-Mac devrait t aider !? Bye, lecrabe

Hello SVP Mr Cadadmin !? Merci, Bye, lecrabe

Hello Si ca marchait "avant", y a t il un Point de restauration Windows DISPO "avant-avant" !? Quoique apres toutes ces bidouilles, je n y crois pas trop !? Bye, lecrabe

Hello J ai encore decompresser au moins une dizaine de communes EDIGEO en Lambert CCxx avec Winrar ces 3 dernieres semaines ... Puis EDIGEOIMPORTREP pour traiter tous les THF en un seul traitement et obtenir un magnifique DWG (avec des MPOLYGONs de MAP quand c necessaire + Object Data) de la commune ... MERCI Covadis ! De plus nous avons le cadastre 04/2023 depuis peu de temps ! Bye, lecrabe

Hello N est il pas possible d exporter en LandXML depuis Mensura ? Bye, lecrabe

Hello Tu tapes au clavier la commande : COVADIS < Entree > Et donc quelle version de Covadis ? Avec quel AutoCAD ? : ACAD / ACAD MAP / ACAD CIVIL / ACAD Archi / etc ? Sous quelle version AutoCAD : 2024 / 20 23 / 2022 / 2021 /etc ? La Sante, Bye, lecrabe

Hello Et pour la variante "RB_Zero_ByLayer", tu fais qq Modifs ... Bon WE, La Sante, Bye, lecrabe ;;;--- 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

Hello J adore la routine "RB_Zero_ByBlock" de notre regrette Patrick_35 ! Bon WE, La Sante, Bye, lecrabe ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; Routine : RB_Zero_ByBlock ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; Version SPECIALE de "RB/RB_Calque" avec RETOUR sur le Calque ZERO ;;; ;;; ET on "touche" aux Couleurs, Types de Lignes, Epaisseurs ---> <DuBloc> ;;; ;;; MLINE et Attribut --> <DuBloc> ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; 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 ;;; ;;;================================================================= (vl-load-com) ;; (defun c:RB( / *errrb* bl ent js lst nombl doc s sel) (defun c:RB_Zero_ByBlock ( / *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) ) ) (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 "\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") ;;;--- Forcer la couleur sur Dubloc / ByBlock (vla-put-color ent 0) ;;;--- Forcer le type de ligne sur Dubloc / ByBlock (vla-put-linetype ent "ByBlock") ;;;--- Forcer l'epaisseur de ligne sur Dubloc / ByBlock (vla-put-lineweight ent -2) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ) ) ) ;;; ------ Avec un REGEN ------ (vla-regen doc acAllViewports) (vla-endundomark doc) (setq *error* s) (princ) ) ;; (setq nom_lisp "RB") (setq nom_lisp "RB_Zero_ByBlock") (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)

Hello NON car ma specialite c est le module MAP ! Chistian REB (Un Dinosaure comme moi) est tres fort sur AutoCAD et il dispense en plus des formations Lisp donc c l homme "approprie" !? La Sante, Bye, lecrabe

Hello @drault Tu envisages une formation sur MAP ? et / ou sur la progammation Lisp / VLisp ? Et d'autre part sur site (si Oui OU physiquement) ? ou a distance Zoom Microsoft Teams ? Merci, Bye, lecrabe

Hello @drault Tu cherches un formateur AutoCAD MAP ? Sur place ou A distance ?? Et pour combien de personnes ??? Bye, lecrabe

Hello @barbichette A priori TOUS les liens ont ete supprimes !? Bonne semaine, Bye, lecrabe

Hello @benoitlacroix Je suis relativement OK avec @Olivier Eckmann ! Mes ACADs 2023 sont encore en 2023.1.2 et je vais attendre 2/3 semaines avant de mettre le Update 2023.1.3 ... Cependant Autodesk a sorti un Update AutoCAD 2024.0.1 3 semaines apres la sortie officielle de la 2024 ! Franchement c un "grave" SIGNE que cette 2024 a BESOIN de correctifs !! Bon dimanche, Bye, lecrabe

Hello C Nouveau et Dispo depuis le 18 avril (2024.0.1) et le 6 avril (2023.1.3)... Qu on se le dise ! **** Update 2023.1.3 **** https://help.autodesk.com/view/ACD/2023/FRA/?guid=AUTOCAD_2023_1_2_FIXED_ISSUES **** Update 2024.0.1 **** https://help.autodesk.com/view/ACD/2024/FRA/?guid=AUTOCAD_2024_0_1_FIXED_ISSUES Note: je n arrive pas a croire qu il faille un Update de 741 Mo pour resoudre les problemes de Migration !? Bye, lecrabe

Hello @ChatGris Regle d OR : ne jamais verrouiller ni geler le calque ZERO ! Regle d Argent : ne jamais rien Dessiner (sauf temporairement) ni Inserer quoique ce soit sur le calque ZERO ! A la rigueur, on peut rendre INActif le Calque ZERO ... Bye, lecrabe

Hello Alors qq Infos sur la commande POINTVUE ( _ VPOINT ) qui te demande 2 angles : 270 degres / 90 degres = Vue du dessus 270 degres / -90 degres = Vue du dessous 270 degres / 0 degre = Vue Avant 90 degres / 0 degre = Vue Arriere 180 degres / 0 degre = Vue Gauche 0 degre / 0 degre = Vue Droite 45 degres / 45 degres = "Plongeante axonometrique No 1" etc Bye, lecrabe

Hello DONC comme le dit si bien Eric, si necessaire : PERSPECTIVE = 0 et MODEOMBRE = Filaire 2D DESOLE mais je viens de retester la commande POINTVUE dans AutoCAD LT 2024 ... Et ca marche parfaitement ! Si je me souviens bien : elle existe dans AutoCAD LT depuis "toujours" !! Tu peux essayer la Commande US/English : _VPOINT Bye, lecrabe

Hello A priori tu as seulement un AutoCAD LT 20XX !? Donc tu ne disposes pas de la Rotation dynamique en 3D avec SHIFT + Roulette enfoncee de la souris ! Mais avec AutoCAD LT tu devrais avoir la commande clavier : POINTVUE < Entree > ... A voir ... Bye, lecrabe