lecrabe

Hello SVP réponse à la question ? Bye, lecrabe

Hello Je pense que tu rêves !? Néanmoins SVP tu as quelle version exactement de AutoCAD ou AutoCAD LT ? Bye, lecrabe

Hello @William44850 SVP tu testes cette routine Lisp "DG" et tu nous dis ... Bye, lecrabe ;; ;; http://cadxp.com/index.php?/topic/35771-del-all-groups-ene-fonctionne-pas-avec-autocad-2013/page__pid__194692#entry194692 ;; ;; Routine pour remplacer Dell_All_Groups.lsp qui semble ne pas fonctionner avec AutoCAD 2013 ;; ;; Decompose les groupes auxquels appartiennent les objets selectionnes. ;; ;; Brice Studer, ocobre 2011 ;; (defun c:DG (/ *error* acdoc groups ss i gl) (vl-load-com) (setq acdoc (vla-get-activedocument (vlax-get-acad-object)) groups (vla-get-groups acdoc) ) (defun *error* (msg) (and msg (or (member (strcase msg) '("FUNCTION CANCELLED" "QUIT / EXIT ABORT" "FONCTION ANNULEE" "QUITTER / SORTIR ABANDON")) (princ (strcat "\nErreur : " msg)) ) ) (if ss (setq ss nil)) (vla-endundomark acdoc) (princ) ) (vla-startundomark acdoc) (princ "\nSelectionnez les groupes a decomposer <entree pour tous> : ") (if (setq ss (ssget)) (progn (setq i 0) (repeat (sslength ss) (mapcar '(lambda (x) (and (= 330 (car x)) (= (cdr (assoc 0 (entget (cdr x)))) "GROUP") (or (member (cdr x) gl) (setq gl (cons (cdr x) gl)) ) ) ) (entget (ssname ss i)) ) (setq i (1+ i)) ) (foreach g gl (entdel g) ) ) (vlax-for g groups (setq gl (cons g gl)) (vla-delete g) ) ) (princ (strcat "\n" (itoa (length gl)) " groupes decomposes !")) (*error* nil) (princ) ) (princ "\nCommande a utiliser : DG") (princ)

Hello @RichardT Au fait il serait "bien" que tu installes (si pas deja fait !?) le Update AutoCAD 2023.1.6 (1.15 Go) de juin 2024 sur ton AutoCAD 2023 !? Bye, lecrabe

Hello OK Wait and See... Un SN ne permet pas d autoriser un AutoCAD moderne ! Bye, lecrabe

Hello SVP tu as quel niveau de Update sur ton AutoCAD 2023 ? Et quel est ton Serial Number ? Commande: _PKSER <Entree> Bye, lecrabe

Hello @RichardT SVP tu nous donnes un petit DWG avec 2 Solides 3D en Intersection que tu n arrives pas a soustraire !? On va voir ... Bye, lecrabe

Hello @nen Voici une superbe routine "BLP" de notre regrette Patrick_35 qui insere un Bloc (sans ou avec Attributs = remplis par la valeur par defaut) sur les Extremites OU sur chaque Vertex / Sommet des LWPOLYLINE, POLYLINE, ARC, LINE ... Je pense que cette routine devrait etre amelioree pour correspondre a tes besoins !? Bye, lecabe ;; ;; http://cadxp.com/topic/4615-inserer-un-bloc-sur-chaque-sommet-polyligne/page__pid__237625 ;; ;; Routine: BLP par P35 v3.10 - 03/02/2005 - Forum AutoCAD 2000-2002 ;; ;; Inserer un Bloc sur le sommet de chaque Polyligne ;; ;; NOTE : faire tourner sans doute AVANT avec : ATTREQ = 0 & ATTDIA = 0 --> Pas besoin ;; Ainsi les eventuels attributs auront leurs valeurs par defaut ... --> Pas besoin ;; Remettre sans doute APRES : ATTREQ = 1 & ATTDIA = 1 --> Pas besoin ;; ;; BLP v2.00 par P35 : Ajout de la question en debut de lisp (suivant message du 28/08/2018) par mail perso ;; ;; v2.00 - Traite : Polylignes 2D (NON-Splinees/NON-Curvees) / 3D (Splinees ou NON) et Lignes ;; ;; v2.00 - ATTENTION sur Polylignes 2D/3D Closes : Double Insertion du Bloc ;; ;; v3.00 par P35 ;; Salut - Le Lisp modifie... Par contre, je ne sais pas comment traiter un arc ou une ellipse ;; J ai quand meme fait quelque chose. Redis-moi, Amicalement ;; ;; v3.10 par P35 : Ellipses non traitees - Corrections de qq Micro-Bugs ;; (vl-load-com) (defun c:BLP (/ doc nb ent lst nom opt pts rot sel tot ajout) (defun ajout(/ ang) (if rot (setq ang 0) (setq ang (if (and (not (zerop nb)) (not (eq (1+ nb) tot))) (+ (* pi 0.5) (* 0.5 (+ (angle '(0.0 0.0 0.0) (vlax-curve-getFirstDeriv ent (1- nb))) (angle '(0.0 0.0 0.0) (vlax-curve-getFirstDeriv ent nb)) ))) (- (angle '(0.0 0.0 0.0) (vlax-curve-getFirstDeriv ent nb)) (* pi 0.5)) ) ) ) (setq ang 0) ;; Angle = ZERO Micro-Modif par Patrice (vla-insertblock (if (eq (getvar "cvport") 2) (vla-get-modelspace doc) (vla-get-paperspace doc) ) (vlax-3d-point pts) nom 1 1 1 ; facteur echelle X Y Z ang ) ) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (initget "E V") (or (setq opt (getkword "\nBloc aux Extremites (depart/arrivee) ou a chaque Vertex [E/V] <E> : ")) (setq opt "E") ) (and (setq nom (getstring "\nNom du Bloc : ")) (tblsearch "block" nom) (ssget (list (cons 0 "LWPOLYLINE,POLYLINE,LINE,ARC"))) ;; Entites TRAITEES (progn (vlax-for ent (setq sel (vla-get-activeselectionset doc)) (setq nb 0 lst nil rot nil) (cond ((eq (vla-get-objectname ent) "AcDbLine") (setq lst (list (vlax-curve-getstartpoint ent) (vlax-curve-getendpoint ent)) nb 2 ) ) ((eq (vla-get-objectname ent) "AcDbArc") (setq lst (list (vlax-curve-getstartpoint ent) (vlax-curve-getendpoint ent)) rot T nb 2 ) ) (T (while (setq pts (vlax-curve-getpointatparam ent nb)) (setq lst (cons pts lst) nb (1+ nb) ) ) ) ) (setq tot (1- nb) nb 0) (while (setq pts (nth nb lst)) (cond ((or (eq nb 0) (and (eq opt "V") (< nb tot))) (ajout) ) ((eq nb tot) (if (vlax-property-available-p ent 'closed) (and (eq (vla-get-closed ent) :vlax-false) (ajout) ) (ajout) ) ) ) (setq nb (1+ nb)) ) ) (vla-delete sel) ) ) (vla-endundomark doc) (princ) )

Hello @nen Je n ai pas teste la routine Lisp ... blkName "LOCAUX" ;; Nom du bloc blkLayer "INFORMATIONS" ;; Nom du calque 1) SVP tu vas verifier que tous les elements (Graphisme + Attributs) du Bloc "LOCAUX" sont bien CONCUS sur le calque ZERO en Mode "DuCalque" ou mieux en Mode "DuBloc" !? 2) J ose esperer que les attributs sont bien en mode VISIBLE et non pas INVISIBLE !? 3) Ensuite le calque "INFORMATIONS" est bien visible : actif ET libere !? Bye, lecrabe

Hello 1) AutoCAD 2020-2024 --> AutoCAD 2020-202X 2) AutoCAD LT 2024 --> AutoCAD LT 2024-202X 3) Autodesk MAP --> AutoCAD MAP Bye, lecrabe

Hello @Times 1) SVP quelle version exactement de AutoCAD ? ET avec quel Update ? 2) Apres saisie "invisible", vois tu bien ton MTEXT ? 3) Si AutoCAD version 2022-2025, as tu essaye avec GFXDX12=0 - Quitter AutoCAD - Relancer ... 4) Meme probleme, si tu te mets en couleur forcee (Rouge par exemple) ? 5) Dans la commande MTEXT, bouton droit - Masque d arriere plan - Decocher !? 6) Dans la commande MTEXT, bouton droit - Parametres de l editeur -- Couleur de surbrillance du texte : en general "Bleu plus ou moins fonce" !? Bye, lecrabe

Hello Voir la vidéo... Bye, lecrabe

Hello Infos de Patrick EMIN >>> Un correctif a été déployé par Autodesk®, en collaboration avec Microsoft, pour résoudre un problème de compatibilité avec Windows 11 24H2. Ce correctif, la mise à jour S182.0.0 AutoCAD® 2022.1.4, permet de lever le blocage qui empêchait la mise à niveau vers la dernière version de Windows. Les utilisateurs peuvent désormais installer Windows 11 24H2 après avoir mis à jour AutoCAD®. Le correctif est disponible sur le site d’Autodesk® ou via le menu « À propos » d’AutoCAD®. https://dessein-tech.com/t/autocad-2022-fonctionne-enfin-sous-windows-11-24h2/3011 MERCI Patrick ! Bye, lecrabe

Hello https://village-bim.fr/batiment/ Bye, lecrabe

Hello https://village-bim.fr/infrastructure/ Bye, lecrabe

Hello @MNT Voici 2 routines "MIN_Z & MAX_Z" de notre "inestimable" Bonuscad (Bruno) qui marquent par un Point le point Bas ou Haut de N 3DPolylignes C different de ta demande mais je les utilise parfois pour "marquer" des 3DPolys ... Bye, lecrabe MIN_Z___MAX_Z___3DPoly.zip

Hello La Non compatibilité des MNT v18.x vers 18.0x doit provenir de la nouveauté des couches géologiques associés aux MNTs ?! A vérifier ? Bye, lecrabe

Hello @sagaff Sujet en double sur le forum AutoCAD CIVIL French DONC Reponse en DOUBLE : https://forums.autodesk.com/t5/autocad-tous-produits-francais/question-a-propos-de-civil-3d/td-p/13334174 Deja pour avoir qq idees sur la gestion des reseaux avec AutoCAD CIVIL, SVP tu regardes ce sujet : https://forums.autodesk.com/t5/civil-3d-et-infraworks-francais/gabarit-civil-3d-2020-francais-metrique-french-metric-amp-civil/td-p/13213465 ET surtout ma reponse (Solution acceptee) du 2025-01-02 11:34 AM avec le PDF de 40 pages ... Bye, lecrabe PS: ton Sujet sera déplacé sur le forum AutoCAD CIVIL !

Hello @La Lozère As tu essaye avec GFXDX12 = 0 ... Quitter AutoCAD ... Relancer AutoCAD Bye, lecrabe

Hello OUI je suis comme Christian (REBCAO) ! Juste pour Info voir ci-apres une routine VLisp "TCOT" qui fait la somme de la valeur de N cotations ... Bye, lecrabe ;;; Totalisation de COTEs (ou Somme de COTEs) - Routine : TCOT ;;; Rappel : Utilisation surtout sur les Cotes Lineaires et Alignees ;;; Attention : sur les Cotes Angulaires, le resultat est en RADIANS ! (defun c:TCot(/ sel tot) (vl-load-com) (setq tot 0) (princ "\nVeuillez selectionner des Cotes : " ) (and (ssget (list (cons 0 "DIMENSION"))) (progn (vlax-map-collection (setq sel (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))) '(lambda (x) (setq tot (+ tot (vla-get-measurement x)))) ) (vla-delete sel) (princ (strcat "\nCumul des Cotes : " (rtos tot))) ) ) (princ) )

Hello OUI c sur qu il faut soit un VRAI AutoCAD soit un AutoCAD LT 2024-2025, pour faire tourner des routines Lisp afin de "redresser un peu" les DWGs exportes par Allplan ! Bye, lecrabe

Hello J ai une routine qui permet d extraire N objets UN par UN et non pas UN TOUT SEUL !? Cela t aidera peut etre ? Bye, lecrabe ;; ;; https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/how-to-ncopy-multiple-at-same-place-or-pause-the-ncopy-command/td-p/10932882 ;; ;; ---- How to ncopy multiple at same place or pause the ncopy command ? ---- ;; ;; Not so easy to do. Possibly like this : ;; (while (setq e (cadr (nentsel))) (command "ncopy" e "" "" "")) ;; ;; But is it really necessary? I mean, how difficult is it to hit enter a couple of times. ;; ;; Anyway, just a few threads lower @pbejse posted a nice example of code ;; how this could be done without the need to fight with ncopy. HERE ;; https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/is-there-alisp-to-pick-polyline-from-apoly-line-in-or-out-block/m-p/10931411/highlight/true#M426966 ;; (vl-load-com) (defun c:NCopy_Multiple (/ obj tmp) (while (setq obj (nentselp "\nSelect (One by One) Objects to copy from XREF ... " ) ;_ end of nentselp ) (progn (setq tmp (entmakex (entget (car obj)))) (vla-transformby (vlax-ename->vla-object tmp) (vlax-tmatrix (caddr obj)) ) (Vla-put-layer (vlax-ename->vla-object (entlast)) (getvar 'clayer)) ) ) )

Hello HEUREUX de te revoir ! ---- Forum CADXP : AutoCAD 2020-202X ---- https://cadxp.com/forum/176-autocad-2020-2024/ ---- Forum CADXP : AutoCAD MAP 201X-202X ---- https://cadxp.com/forum/19-autodesk-map/ ---- Forum CADXP : COVADIS ---- https://cadxp.com/forum/78-covadis/ ---- Forum Autodesk : AutoCAD general ---- https://forums.autodesk.com/t5/autocad-tous-produits-francais/bd-p/127 ATTENTION : pas de question COVADIS ! Belle Annee 2025, LA SANTE, Bye, lecrabe