lecrabe

Hello @Olivier Eckmann @bonuscad @Luna @didier J ai pourtant bien reflechi avec d ecrire mon Sujet / Post ! >>> suite on va analyser les points de Depart ET de Fin des Objets lineaires <<< Et donc tout le monde a compris qu il y a avait un Bloc au Depart ET a l Arrivee ! En fait pour moi, tout etait possible : 1 Bloc Depart OU Arrivee ou Depart ET Arrivee Je vous prie de bien vouloir m excuser de "mon mauvais CDC / CCTP" ! Merci Bruno et Olivier, ca marche ! Question pour Olivier : quelle serait la Modif dans ton Code si je ne voulais pas traiter le Z des Blocs Donc analyser une distance 2D au sol un peu comme la Modif proposee par Bruno ? MERCI, Bonne journee, Bye, lecrabe

Hello @bonuscad @Olivier Eckmann @Luna @didier Je dois etre tres fatigue car je n arrive "a rien" avec les 2 routines de Olivier et Bruno (Bonuscad) ! Voici un DWG de test ... Ou alors je me suis mal exprime dans mon CDC/CCTP !? Merci d avance, Bye, lecrabe Lineaire_Bloc_Select.zip

Hello @harnoo En fait je suis parti de la routine "C2B" : Circle to Block en la simplifiant un maximum ! Bye, lecabe

Hello @ombresoleil En fait il te faudait une routine qui force la couleur de tous les objets <DuCalque> dans la couleur par defaut du calque d origine et de plus qui "descende" dans la structure des Blocs pour analyser les objets <DuCalque> et faire de meme ! Ai je bien compris ? Et apres tu fais ta fusion de calques ... Bye, lecrabe

Hello @harnoo Voir la routine "C2P" ci-apres ... Bye, lecrabe (defun c:c2p (/ ss ct len e eb pt) ;;; prompt for point selection (princ "\nSelect point objects:") ;;; --- if circle objects were selected --- (if (setq ss (ssget '((0 . "CIRCLE")))) (progn ;;; walk through point objects (setq len (sslength ss)) (setq ct 0) (while (< ct len) ;;; for each point (setq e (ssname ss ct)) (setq ct (+ ct 1)) (setq eb (entget e)) ;;; get insert point (setq pt (cdr (assoc 10 eb))) (command "_point" pt) ) ) (princ "\nNo circle objects selected ! ") ) (princ) )

Hello @bonuscad Merci de tes efforts mais Desole mais je n arrive a RIEN avec ta routine ! La 1ere selection , c le Lineaire ("LINE,ARC,*POLYLINE") et la 2eme c quoi ? ... je ne peux rien selectionner ! En regardant le code je croyais que c etait TOUT le DWG (POINT,INSERT) !? A mon avis UNE SEULE Selection classique serait peut etre plus plus simple !? Je vais vous preparer un DWG de test ... Merci, Bye, lecrabe

Hello @didier @Luna Idee : Peut être marquer le Linéaire avec une XDATA temporairement si elle correspond aux critères pour ne pas la traiter N fois !? Bye, lecrabe

Hello @Luna Je pensais avoir été "clair" ? SVP je veux détecter / selectionner les Linéaires qui ont des Blocs (Statiques ET Dynamiques) / Points aux EXTREMITES SEULEMENT (ou très proches) ... Et c tout ! Pourquoi : car parfois CES Linéaires ne sont pas sur le BON Calque par exemple ! Avec la sélection obtenue, je vais forcer Une Propriété NON UTILISEE (couleur ou type ou epaisseur) et étudier / modifier après si necessaire UNE PAR UNE Si tu as un Algo de compétition, tu n hésites pas ... Car en effet surtout dans le cas de N linéaires partant / arrivant sur un Bloc / Point, il faudrait ne pas faire N fois l analyse !? Bye, lecrabe

Hello @didier et @Luna OUI Didier Exemple d une Polyligne 2D/3D qui revient presque au point de départ : si 2 Blocs et/ou Points à chaque extrémité, alors on sélectionne LA Polyligne Si N linéaires au départ / arrivée sur un Bloc / Point, on sélectionne les N linéaires... Merci, Bye, lecrabe

Hello OUI c pour trouver les Objets lineaires (au niveau du Depart / Fin) qui sont (ou presque parfaitement) aux XYZ des Blocs / Points OOPS / SORRY : Pas d AutoCAD et PC pour le moment pour t envoyer un DWG ! Bye, lecrabe

Hello Les nouveautes REVIT 2025 en French : https://help.autodesk.com/view/RVT/2025/FRA/?guid=GUID-C81929D7-02CB-4BF7-A637-9B98EC9EB38B Qq Videos US / English sur REVIT 2025 ... Bye, lecrabe https://blog.bimsmith.com/Whats-New-in-Revit-2025-New-Features-and-Updates-in-Autodesk-Revit-2025 https://www.aecbytes.com/review/2024/Revit2025.html https://youtu.be/YoNNer0tXT8

Hello @GEGEMATIC Mon petit Gege, "je t aime" ! Bonne semaine, Bye, lecrabe

Hello J ai cherche dans mon stock mais je n ai pas trouve et mes autres recherches ne sont pas satisfaisantes ! Voir titre ... Mon Idee : 1) Selection classique des Blocs (statiques ET Dynamiques !) et Points 2) Selection classique des Objets lineaires (LINE, ARC, PLINE 2D/3D splinees/courbees ou pas) 3) Question: Distance FUZZ en fait Rayon de recherche - Valeur par defaut = 0.01 Ensuite on va analyser les points de Depart ET de Fin des Objets lineaires (Selection 2) pour trouver / selectionner les Eventuels Blocs / Points de la Selection 1 dans le Rayon de recherche FUZZ ... A LA FIN, on garde en selection les Objets lineaires qui correspondent et C TOUT ! Dans l attente de vos idees lumineuses ou routines magiques ... Au fait si on tombe sur une PLine 2D/3D close / fermee alors SVP on ne retient QUE le Point de Depart pour analyse ! Merci, Bye, lecrabe

Hello https://blogs.autodesk.com/villagebim/2024/04/nouveaute-les-nouveautes-autocad-2025.html https://help.autodesk.com/view/ACD/2025/ENU/?guid=GUID-B93A458E-1A7F-4090-A8CF-87A31C24E404 Bye, lecrabe

Hello @TUAU Comme le dit si bien @Olivier Eckmann avec MAPCLEAN tu pourras "marquer" les Blocs en double et revenir "dessus" plus tard pour decider ceux qu il faut garder / effacer ! Commande: MAPCLEAN < Entree > Prendre a droite l icone "Selection" (A droite de selection manuelle) et selectionner tes Blocs en double ... Suivant Cocher "Interactif" et choisir le BON Algo "Supprimer les Elements dupliques" ... Choisir la Tolerance (Distance Rayon de recherche en fait), par exemple : 0.1 Suivant -- Suivant -- Terminer Cliquer "Tout Marquer" Fermer Ainsi tu obtiens des Blocs (Marqueurs Octogones Bleu Ciel) sur tes Blocs en double ! Apres AU BOULOT ! Bye, lecrabe

. Objet : ACAD MAP 2025 French DISPO Hello YOUPEE avec les versions 2025, nous gardons le format DWG 2018 !! Les Nouveautes AutoCAD 2025 en Francais : https://help.autodesk.com/view/ACD/2025/FRA/?guid=GUID-07450FCA-16CA-4D7A-8EA2-9CE842631D75 Voir aussi : https://blogs.autodesk.com/villagebim/2024/04/nouveaute-les-nouveautes-autocad-2025.html Eric GUELEN >> Voici la liste des problemes corriges dans la version 2025 ainsi que dans les jeux d'outils https://www.autodesk.fr/support/technical/article/caas/sfdcarticles/sfdcarticles/FRA/Fixed-Issues-in-AutoCAD-and-specialized-toolset-2025.html Voici les Nouveautes MAP 2025 en US/English ... https://help.autodesk.com/view/ACD/2025/ENU/?guid=GUID-25537E3F-6C11-4076-BAA3-93BC090F4443 QQs Trucs interessantes : -- Support de la nouvelle Geoplateforme IGN -- Ajout des connexions FDOs Geopackage -- GEOCARTE (_GEOMAP) sur Imagerie ESRI et OpenStreetMap ESRI Bye, lecrabe Quality improvements -- Delete multiple FDO data connections simultaneously using the Connect Data dialog box. -- Newer versions of FDO providers are now supported: PostgreSQL 15.4 / PostGIS 3.4 for FDO PostgreSQL/PostGIS Microsoft SQL Server 2022 Standard and Enterprise Editions for FDO SQL Server Provider Easily search and locate layers by their names using the new Find Layer option in the Display Manager shortcut menu. Improved performance when opening drawings that contain a large number of disabled layers from Raster, WMS, or WMTS connections. The following customer issues have been resolved in AutoCAD Map 3D 2025 toolset. Split/Merge Feature MAPFEATURESPLIT now accurately retrieves the correct geometry for split features. MAPFEATUREMERGE now works as expected. FDO ArcGIS The "Property 'OID' was not found" error no longer displays when reopening a drawing with ArcGIS connection. Connecting to FGDB data with table names containing special characters such as "ä" no longer causes AutoCAD Map 3D to freeze when using the ArcGIS provider. ArcGIS Online: AutoCAD Map 3D can now connect to ArcGIS Enterprise portal with Cross-Origin Resource Sharing (CORS) settings. Style Editor: An infinite scale range value in Style Editor is now accepted in localized versions. MAPTOACAD Command: MAPTOACAD now correctly exports the features in industry model drawings with FDO WMS connection. Coordinate System: The "Unknown error" message no longer displays when adding a custom coordinate system to a category in the Coordinate System Library. FDO FGDB: Some connected FGDB datasets using the FDO provider are now correctly displayed. Industry Models The EL_CIRCUIT form now opens as expected when working with specific Oracle-based industry model data. AutoCAD Map 3D no longer crashes when zooming in and out while multiple structure internal windows are open. When ordering attributes in the table view, the search functionality continues to work as expected, providing accurate and relevant results. The Reverse feature now functions as expected for DWG-based LRS industry models. AutoCAD Map 3D no longer crashes when running COGO Split function for DWG-based industry models. FDO WMTS: Certain WMTS servers that previously had readability issues are now working as expected.

Hello @PHILPHIL et @didier Voir la routine "Remove_Xdata" de Bonuscad / Bruno pour un grand nettoyage des XDatas ... Bye, lecrabe ;; ;; https://cadxp.com/topic/50142-effacer-une-ou-plusieurs-applications-de-xdata/ ;; ;; Routine: Remove_Xdata____v100__Bonuscad - CADaSchtroumpf ;; J'ai un membre (russe:alexander) d'un forum autodesk (surtout autocad map) ;; qui me sollicite assez souvent pour ameliorer des routines: ;; il a toujours des remarques fondees et des suggestions ;; pour rendre l'application fonctionnelle a bon nombres d'utilisateurs. ;; ;; Sa derniere demande concernait les Xdata (donc version classique ou Map) ;; ;; Il desirait pouvoir effacer certaines application XData et en garder d'autres. ;; ;; Ce qui m'a valu de pondre une version generique de cette fonction ;; (avec une fonction:listbox que j'utilise beaucoup: un grand merci a gilles Chanteau) ;; ;; ;; edite pour amelioration de la selection qui n'est plus tous les objets, ;; tri alphabetique des applications dans la boite de dialogue... ;; ;; Voici le code que j'ai transmit a Alexander, qu'il pourra eventuellement publier aussi sur son site. ;; (vl-load-com) ;; ListBox (gile) ;; Boite de dialogue permettant un ou plusieurs choix dans une liste ;; ;; Arguments ;; title : le titre de la boite de dialogue (chaîne) ;; msg ; message (chaîne), "" ou nil pour aucun ;; keylab : une liste d'association du type ((key1 . label1) (key2 . label2) ...) ;; flag : 0 = liste deroulante ;; 1 = liste choix unique ;; 2 = liste choix multipes ;; ;; Retour : la cle de l'option (flag = 0 ou 1) ou la liste des cles des options (flag = 2) ;; ;; Exemple d'utilisation ;; (listbox "Presentation" "Choisir une presentation" (mapcar 'cons (layoutlist) (layoutlist)) 1) (defun str2lst (str sep / pos) (if (setq pos (vl-string-search sep str)) (cons (substr str 1 pos) (str2lst (substr str (+ (strlen sep) pos 1)) sep) ) (list str) ) ) (defun ListBox (title msg keylab flag / tmp file dcl_id choice) (setq tmp (vl-filename-mktemp "tmp.dcl") file (open tmp "w") ) (write-line (strcat "ListBox:dialog{label=\"" title "\";") file ) (if (and msg (/= msg "")) (write-line (strcat ":text{label=\"" msg "\";}") file) ) (write-line (cond ((= 0 flag) "spacer;:popup_list{key=\"lst\";") ((= 1 flag) "spacer;:list_box{key=\"lst\";width=32;") (T "spacer;:list_box{key=\"lst\";width=32;multiple_select=true;") ) file ) (write-line "}spacer;ok_button;}" file) (close file) (setq dcl_id (load_dialog tmp)) (if (not (new_dialog "ListBox" dcl_id)) (exit) ) (start_list "lst") (mapcar 'add_list (mapcar 'cdr keylab)) (end_list) (action_tile "accept" "(or (= (get_tile \"lst\") \"\") (if (= 2 flag) (progn (foreach n (str2lst (get_tile \"lst\") \" \") (setq choice (cons (nth (atoi n) (mapcar 'car keylab)) choice)) ) (setq choice (reverse choice)) ) (setq choice (nth (atoi (get_tile \"lst\")) (mapcar 'car keylab))) ) ) (done_dialog)" ) (start_dialog) (unload_dialog dcl_id) (vl-file-delete tmp) choice ) (defun c:Remove_Xdata ( / js n ent_name dxf_ent apps lst_apps sel_app new_ent lnew_ent dxf_next) (princ "\nSelectionner les objets auxquels retirer des XData.") (or (setq js (ssget "_I" (list (list -3 (list "*"))))) (setq js (ssget "_P" (list (list -3 (list "*"))))) ) (cond (js (sssetfirst nil js) (initget "Existant Nouveau _Existent New") (if (eq (getkword "\nTraiter jeu de selection [Existant/Nouveau] <Existant>: ") "New") (progn (sssetfirst nil nil) (setq js (ssadd) js (ssget (list (list -3 (list "*"))))) ) ) ) (T (setq js (ssget (list (list -3 (list "*"))))) ) ) (cond (js (sssetfirst nil js) (repeat (setq n (sslength js)) (setq ent_name (ssname js (setq n (1- n))) dxf_ent (entget ent_name (list "*")) apps (cdr (assoc -3 dxf_ent)) ) (foreach el apps (if (not (member (car el) lst_apps)) (setq lst_apps (cons (car el) lst_apps))) ) ) (setq lst_apps (vl-sort lst_apps '<)) (setq sel_app (listbox "Applications" "Choisir l'application" (mapcar 'cons lst_apps lst_apps) 2)) (cond (sel_app (setq js (ssget (list (list -3 (list (apply 'strcat (mapcar '(lambda (x) (strcat x ",")) sel_app))))))) (cond (js (repeat (setq n (sslength js)) (setq ent_name (ssname js (setq n (1- n))) dxf_ent (entget ent_name (list (apply 'strcat (mapcar '(lambda (x) (strcat x ",")) sel_app)))) new_ent (append (entget ent_name) (list (cons -3 (vl-remove-if '(lambda (x) (member (car x) sel_app) ) (cdr (assoc -3 (entget ent_name (list "*")))) ) ) ) ) lnew_ent nil ) (cond ((or (member (cdr (assoc 0 dxf_ent)) '("INSERT" "POLYLINE")) (eq (cdr (assoc 66 dxf_ent)) 1)) (while (setq dxf_next (entnext (cdar dxf_ent))) (setq dxf_ent (entget dxf_next)) (if (eq (cdar new_ent) (cdr (assoc 330 dxf_ent))) (setq lnew_ent (cons dxf_ent lnew_ent)) ) ) ) ) (entdel ent_name) (entmake new_ent) (if lnew_ent (foreach el (reverse lnew_ent) (entdel (cdar el)) (entmake el) ) ) ) ) (T (princ "\nPas d application correspondante trouvee ! ")) ) ) ) ) ) (prin1) )

Objet : Updates AutoCAD / ACAD LT : 2024.1.3 / 2023.1.5 / 2022.1.4 / 2021.1.4 Hello De gros Updates sont sortis le 20/03/2024 (2024/2022/2021) et le 29/02/2024 (2023) 2021.1.4 - ACAD 933 Mo - ACAD LT 632 Mo - 20/03/2024 2022.1.4 - ACAD 943 Mo - ACAD LT 616 Mo - 20/03/2024 2023.1.5 - ACAD 1.14 Go - ACAD LT 786 Mo - 29/02/2024 2024.1.3 - ACAD 1.32 Go - ACAD LT 959 Mo - 20/03/2024 Les Updates AutoCAD concernent TOUS les ACADs (MAP, CIVIL, Archi, MEP, Plant, Electrical, Mechanical) ! Qu on se le dise ! Bye, lecrabe

Hello SVP essayez de ouvrir le DWG en Mode Récupérer (Recover) ... Re-enregistrer sous un autre nom, re-tester ... Bye, lecrabe

Hello Avez vous besoin d un GATTE qui supporte les Blocs dynamiques ? Car il me semble que j ai un GATTE_DYN !? Bye, lecrabe

Hello Pas sur de tout comprendre !? Mais avec la routine de Luna, tu peux aussi selectionner les Blocs UN PAR UN et donc ce sera le bon ordre ! Bye, lecrabe

Hello Et si tu regardais ce Sujet et la magnifique routine Lisp de Luna ! Bye, lecrabe

Hello Pas tout compris ! 1) Si tu veux "imposer" une Couleur à toute une XREF, alors tu dois mettre la Couleur voulue sur tous les calques de la XREF 2) Et d autre part, tu vérifies que : -- VISRETAIN = 1 -- XREFOVERRIDE = 1 (Depuis la 2016.1) Alors ? Bye, lecrabe

Hello As tu essaye TXT2MTXT ? Bye, lecrabe

Objet: ACAD 2023 Update 2023.1.5 DISPO Hello Cet Update 2023.1.5 pour TOUS les ACADs 2023 et AutoCAD LT 2023 est Dispo depuis le 29/02/2024 https://help.autodesk.com/view/ACD/2023/FRA/?guid=AUTOCAD_2023_1_5_FIXED_ISSUES Bye, lecrabe