Classement

Il y a cette discussion peut-être utile : https://georezo.net/forum/viewtopic.php?id=63958

Bonjour , Je n'ai jamais eu le cas mais je vérifirais un premier temps l'état de terrain TN du projet.

Merci de ce message laconique et très convenu, pour ma part je vous invite à sortir une version stable dès le lancement d'une nouvelle version et donc de faire un vrai processus de Q&A avant la sortie et non après. Si vous souhaitez tant que ça prendre en compte les remarques de la communauté utilisateurs, je vous invite à créer un un volet communautaire sur votre site comprenant un report des bugs avéré ou des fonctionnalités cassées ou manquantes avec un suivi permettant de vérifier la prise en compte par l'équipe de développeurs et l'application des patch correctifs correspondants.

Bonjour, Et coller vers les coordonnées d'origine, ça ne suffit pas?

Hello 1) L Update AutoCAD MAP 2026.0.1 est sorti debut mai https://help.autodesk.com/view/MAP/2026/FRA/?guid=AUTOCAD_MAP_2026_0_1_UPDATE 2) Ne pas oublier l Update AutoCAD 2026.0.1 qui permet de "retrouver" les Cartes BingMaps ( GEOCARTE / _GEOMAP ) Bye, lecrabe

Hello Gege @GEGEMATIC 1) Bonne question - Je crois que OUI : en attente d une reponse d un Pro avec AutoCAD LT 2024/2025/2026 !? 2) Pour les Routines Lisp / VLisp interessantes pour les ODs de AutoCAD MAP (ou AutoCAD CIVIL), voir ici : https://georezo.net/forum/viewtopic.php?id=44248 3) Sur la reponse #6, je fournis une routine "XD2OD" de Peter HEALD qui fait le Job ... Wait and See ... 4) Encore MERCI a @bonuscad ( CADaSChtroumpf / Bruno ) pour toutes SES Superbes Routines ! Bonne semaine, Bye, lecrabe

Bonjour @angelique Trop de gens pas très consciencieux ou mal formés tout simplement, les "gens" croient qu'il suffit d'appuyer sur le bouton, la formation leur dira quel bouton. Heureusement ATTSYNC a résolu le problème ! il y a des cas extrêmes où ça ne fonctionne pas, on a eu une question récemment avec un bloc complètement pourri, des dizaines d'étiquettes en double et d'autres sans attribut, d'accord c'est rare, mais ça arrive. Dans votre cas, ç'a fonctionné, nous sommes contents pour vous. Amicalement

@nG! Hebus le mieux s'est de modifier le bloc ou renommer le bloc de la même fçon pour qu'il se mette à jour sur tout le dessin imagine c'est un bloc qui a été répété 200 fopis sur le dessin t'imagine le b*rdel après avoir cassé ces blcos pour retravailler le dessin 😉 Phil @laud69 t'en penses quoi?? :p

@Geo34 Sincèrement merci, c'était exactement ce qu’il fallait. Très belle continuation à vous !

Salut @Jbrosteaux Une fois que tu es dans rechercher, tu as les trois boutons sur la droite qui te permettent de faire une sélection des textes Je pense que tu y trouveras ton bonheur.

En effet il est très fortement possible que l'Etat de terrain du TN soit inexistant dans le gestionnaire d'était de terrain (arrive par exemple si le MNT TN est issu d'un copier/coller dans le fichier où est réalisé l'autopiste). Egalement il faut que cet état de terrain soit sélectionné dans les paramètres du projet Autopiste !

après je force un peu les lignes... le vrai débutant n'aurait pas utiliser de blocs : bonjour l'angoisse pour les anciens qui auraient eu à retravailler sur ce ficheir!! 😛

Bonjour, Tu peux consulter ce poste : Perso, je me suis créé 2 boutons/commandes avec : Le premier qui copie avec comme référence 0,0 : ^c^c_copybase;0,0;\select; Le second qui colle en tant que bloc en 0,0 : ^C^C_pasteblock;0,0; En modifiant la seconde commande en ^C^C_pasteclip;0,0; tu devrais obtenir coller en 0,0 sans bloc. A tester.

Bonjour, Il y a à bien un sujet avec le point test et surtout avec la ligne CC_MS_LATERITE qui revient reviens vers l'axe. Si tu la supprimes, ton profil marche. Après j'ai toujours eu du mal avec le fonctionnement des points test que je trouve capricieux. Et pour tes PL, rien d'anormal, tu as donné comme PL projet, le TN. Donc normal que tu sois sur le TN et pas 5cm au-dessus. Avec un PL projet 5 cm au dessus du TN et suppression de la ligne CC_MS_LATERITE, voici ce que ça donne :

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

Bonjour, Comme vous avez MAP, il y a la commande MAPCLEAN qui permet de détecter/corriger (manuellement ou automatiquement) les doublons de point, de bloc, de texte, de ligne, de polyligne ... Olivier

Bonjour, On peut voir les blocs superposés à l'aide de la commande QUANTITE.

Il faut faire une sélection par Trajet (_Fence) (defun c:SSFPL (/ massoc pl elst pts ss) (defun massoc (key alst) (if (setq alst (member (assoc key alst) alst)) (cons (cdar alst) (massoc key (cdr alst))) ) ) (if (and (setq pl (car (entsel "\nSélectionnez une polyligne: "))) (= (cdr (assoc 0 (setq elst (entget pl)))) "LWPOLYLINE") ) (progn (setq pts (massoc 10 elst)) (if (= (logand 1 (cdr (assoc 70 elst))) 1) (setq pts (append pts (list (car pts)))) ) (setq pts (mapcar '(lambda (p) (trans p pl 1)) pts)) (setq ss (ssget "_F" pts)) (ssdel pl ss) (sssetfirst nil ss) ) ) (princ) )

Hello @TUAU Voir le "Special Selection de Gilles ... ---------- Routines "Special_Selections.lsp" ---------- Special_Selections : Plusieurs routines pour faire des jeux de selection suivant les proprietes d'un objet, suivant une fenetre parallèle au SCU courant (sscu) ou par une fenetre delimitee (ssoc/ssof) par un objet. --- Commandes disponibles --- ssc (suivant la couleur), ssl (suivant le calque), sse (suivant le type d'entite), sstl (suivant le type de ligne), ssatt (suivant la valeur d'un attribut), sscu (fenetre parallele au SCU), ssof (fenetre definie par un objet), ssoc (capture definie par un objet), inv_sel (inverser la selection), ssd (suivant les valeurs de parametres de blocs dynamiques) sshp - Selection par Motif de Hachure (2014/09) Rappel : chargement des routines Lisp/VLisp par la commande: APPLOAD <Entree> ou bien par Outils / Charger une application / ... ---- A priori SSOF & SSOC (Selection depuis UNE Polyligne ou UN Cercle ou UNE Ellipse) devraient t aider !? Tu peux eventuellement decaler un peu ta Polyligne de chaque cote, la fermer et utiliser SSOF / SSOC ... Bye, lecrabe ;;;===============================================================;;; ;;; ;;; Special_Selections par GC ;;; ;;; Quelques routines pour creer des jeux de selection particuliers ;;; ;;;===============================================================;;; ;;; ;;; sshp - Selection par Motif de Hachure (2014/09) ;;; ;;; avec SSD version 2.6 par GC 14/07/08 (derniere revision 17/11/2011) ;;; ;; Selection par calque (defun c:ssl (/ ss ent) (and (or (and (setq ss (cadr (ssgetfirst))) (= 1 (sslength ss)) (setq ent (ssname ss 0)) ) (and (sssetfirst nil nil) (setq ent (car (entsel))) ) ) (sssetfirst nil (ssget "_X" (list (assoc 8 (entget ent))))) ) (princ) ) ;;;===============================================================;;; ;; Selection par type d'entite (defun c:sse (/ ss) (and (or (and (setq ss (cadr (ssgetfirst))) (= 1 (sslength ss)) (setq ent (ssname ss 0)) ) (and (sssetfirst nil nil) (setq ent (car (entsel))) ) ) (sssetfirst nil (ssget "_X" (list (assoc 0 (entget ent))))) ) (princ) ) ;;;===============================================================;;; ;; Selection par couleur (defun c:ssc (/ ent elst col) (and (or (and (setq ss (cadr (ssgetfirst))) (= 1 (sslength ss)) (setq ent (ssname ss 0)) ) (and (sssetfirst nil nil) (setq ent (car (entsel))) ) ) (setq elst (entget ent) col (cond ((assoc 430 elst)) ((assoc 420 elst)) ((assoc 62 elst)) (T (cons 62 256)) ) ) (sssetfirst nil (ssget "_X" (list col))) ) (princ) ) ;;;===============================================================;;; ;; Selection par type de ligne (defun c:sstl (/ ent tl) (and (or (and (setq ss (cadr (ssgetfirst))) (= 1 (sslength ss)) (setq ent (ssname ss 0)) ) (and (sssetfirst nil nil) (setq ent (car (entsel))) ) ) (or (setq tl (assoc 6 (entget ent))) (setq tl (cons 6 "BYLAYER")) ) (sssetfirst nil (ssget "_X" (list tl))) ) (princ) ) ;;;===============================================================;;; ;; Selection par valeur d'attribut (defun c:ssatt (/ doc att elst tag val name ss1 ss2) (vl-load-com) (and (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))) (setq att (car (nentsel "\nSelectionnez l'attribut source: "))) (setq att (vlax-ename->vla-object att)) (= (vla-get-ObjectName att) "AcDbAttribute") (setq tag (vla-get-TagString att) val (vla-get-TextString att) blk (vla-ObjectIDToObject doc (vla-get-OwnerId att)) name (if (vlax-property-available-p blk 'EffectiveName) (vla-get-EffectiveName blk) (vla-get-Name blk) ) ss2 (ssadd) ) (princ "\nSelectionnez les blocs ou <tout>: ") (or (ssget (list '(0 . "INSERT") '(66 . 1) (cons 2 (strcat name ",`*U*")) ) ) (ssget "_X" (list '(0 . "INSERT") '(66 . 1) (cons 2 (strcat name ",`*U*")) ) ) ) (vlax-for blk (setq ss1 (vla-get-ActiveSelectionSet doc)) (if (= name (if (vlax-property-available-p blk 'EffectiveName) (vla-get-EffectiveName blk) (vla-get-Name blk) ) ) (foreach a (vlax-invoke blk 'GetAttributes) (if (and (= (vla-get-TagString a) tag) (= (vla-get-TextString a) val) ) (ssadd (vlax-vla-object->ename blk) ss2) T ) ) T ) ) (not (vla-delete ss1)) (sssetfirst nil ss2) ) (princ) ) ;;;===============================================================;;; ;; SSCU par GC 31/03/07 ;; Selection mutiple par cible, fenetre ou capture ;; Le cadre de la fenetre est parallele au plan du SCU courant ;; La selection est terminee en faisant Entree, Espace ou clic droit (defun c:sscu (/ sel sst loop p1 gr p2 p3 p4 po ss n ent) (defun ssd_err (msg) (if (= msg "Fonction annulee") (princ) (princ (strcat "\nErreur: " msg)) ) (sssetfirst nil nil) (redraw) (setq *error* m:err m:err nil ) (princ) ) ;; Retourne un jeu de selection, un point ou nil (defun sel (/ loop gr pt) (setq loop T) (while (and (setq gr (grread T 12 2)) (/= (car gr) 3) loop) (cond ((= (car gr) 5) (setq pt (cadr gr)) ) ((or (member gr '((2 13) (2 32))) (or (= (car gr) 11) (= (car gr) 25)) ) (setq loop nil pt nil ) ) ) ) (if pt (cond ((ssget pt)) (pt) ) ) ) (setq m:err *error* *error* ssu_err ) (sssetfirst nil nil) (setq sst (ssadd)) (while (and (princ "\nChoix des objets: ") (setq p1 (sel)) ) (if (listp p1) (progn (princ "\nSpecifiez le coin oppose: ") (setq p1 (list (car p1) (cadr p1))) (while (and (setq gr (grread T 12 0)) (/= (car gr) 3)) (if (= 5 (car gr)) (progn (redraw) (setq p2 (list (caadr gr) (cadr p1)) p3 (list (caadr gr) (cadadr gr)) p4 (list (car p1) (cadadr gr)) ) (if (< (car p1) (car p2)) (progn (setq po "_WP") (grvecs (list 255 p1 p2 255 p2 p3 255 p3 p4 255 p4 p1) ) ) (progn (setq po "_CP") (grvecs (list -255 p1 p2 -255 p2 p3 -255 p3 p4 -255 p4 p1) ) ) ) ) ) ) (redraw) (if (setq ss (ssget po (list p1 p2 p3 p4))) (repeat (setq n (sslength ss)) (setq ent (ssname ss (setq n (1- n)))) (if (not (ssmemb ent sst)) (ssadd ent sst) ) (sssetfirst nil sst) ) ) ) (progn (ssadd (ssname p1 0) sst) (sssetfirst nil sst) ) ) ) (sssetfirst nil sst) (setq *error* m:err m:err nil ) (princ) ) ;;;===============================================================;;; ;;; SelByObj par GC 06/10/06 ;;; Cree un jeu de selection avec tous les objets contenus ou ;;; captures, dans la vue courante, par l'objet selectionne ;;; (cercle, ellipse, polyligne fermee). ;;; Arguments : ;;; - un nom d'entite (ename) ;;; - un mode de selection (Cp ou Wp) ;;; - un filtre de selection ou nil ;;; ;;; modifie le 19/07/07 : fonctionne avec les objets hors fenetre (defun SelByObj (ent opt fltr / obj dist n lst prec dist p_lst ss) (vl-load-com) (if (= (type ent) 'ENAME) (setq obj (vlax-ename->vla-object ent)) (setq obj ent ent (vlax-vla-object->ename ent) ) ) (cond ((member (vla-get-ObjectName obj) '("AcDbCircle" "AcDbEllipse")) (setq dist (/ (vlax-curve-getDistAtParam obj (vlax-curve-getEndParam obj) ) 50 ) n 0 ) (repeat 50 (setq lst (cons (trans (vlax-curve-getPointAtDist obj (* dist (setq n (1+ n)))) 0 1 ) lst ) ) ) ) ((and (= (vla-get-ObjectName obj) "AcDbPolyline") (= (vla-get-Closed obj) :vlax-true) ) (setq p_lst (vl-remove-if-not '(lambda (x) (or (= (car x) 10) (= (car x) 42) ) ) (entget ent) ) ) (while p_lst (setq lst (cons (trans (append (cdr (assoc 10 p_lst)) (list (cdr (assoc 38 (entget ent)))) ) ent 1 ) lst ) ) (if (/= 0 (cdadr p_lst)) (progn (setq prec (1+ (fix (* 25 (sqrt (abs (cdadr p_lst)))))) dist (/ (- (if (cdaddr p_lst) (vlax-curve-getDistAtPoint obj (trans (cdaddr p_lst) ent 0) ) (vlax-curve-getDistAtParam obj (vlax-curve-getEndParam obj) ) ) (vlax-curve-getDistAtPoint obj (trans (cdar p_lst) ent 0) ) ) prec ) n 0 ) (repeat (1- prec) (setq lst (cons (trans (vlax-curve-getPointAtDist obj (+ (vlax-curve-getDistAtPoint obj (trans (cdar p_lst) ent 0) ) (* dist (setq n (1+ n))) ) ) 0 1 ) lst ) ) ) ) ) (setq p_lst (cddr p_lst)) ) ) ) (cond (lst (vla-ZoomExtents (vlax-get-acad-object)) (setq ss (ssget (strcat "_" opt) lst fltr)) (vla-ZoomPrevious (vlax-get-acad-object)) ss ) ) ) ;;;===============================================================;;; ;;; SSOC pour selectionner tous les objets captures, suivant ;;; la vue, par le cercle, l'ellipse ou la polyligne. (defun c:ssoc (/ ss opt) (and (or (and (setq ss (cadr (ssgetfirst))) (= 1 (sslength ss)) ) (and (sssetfirst nil nil) (setq ss (ssget "_:S:E" (list '(-4 . "<OR") '(0 . "CIRCLE") '(-4 . "<AND") '(0 . "ELLIPSE") '(41 . 0.0) (cons 42 (* 2 pi)) '(-4 . "AND>") '(-4 . "<AND") '(0 . "LWPOLYLINE") '(-4 . "&") '(70 . 1) '(-4 . "AND>") '(-4 . "OR>") ) ) ) ) ) (sssetfirst nil (ssdel (ssname ss 0) (SelByObj (ssname ss 0) "Cp" nil)) ) ) (princ) ) ;;;===============================================================;;; ;;; SSOF pour selectionner tous les objets contenus, suivant ;;; la vue, dans le cercle, l'ellipse ou la polyligne. (defun c:ssof (/ ss opt) (and (or (and (setq ss (cadr (ssgetfirst))) (= 1 (sslength ss)) ) (and (sssetfirst nil nil) (setq ss (ssget "_:S:E" (list '(-4 . "<OR") '(0 . "CIRCLE") '(-4 . "<AND") '(0 . "ELLIPSE") '(41 . 0.0) (cons 42 (* 2 pi)) '(-4 . "AND>") '(-4 . "<AND") '(0 . "LWPOLYLINE") '(-4 . "&") '(70 . 1) '(-4 . "AND>") '(-4 . "OR>") ) ) ) ) ) (sssetfirst nil (SelByObj (ssname ss 0) "Wp" nil) ) ) (princ) ) ;;;===============================================================;;; ;;; Inv_sel Inverse le jeu de selection courant (defun c:inv_sel (/ ssa ssf n) (setq ssa (ssget "_A" (list '(0 . "~VIEWPORT") (cons 410 (getvar "ctab"))) ) ) (if (setq ssf (cadr (ssgetfirst))) (repeat (setq n (sslength ssf)) (ssdel (ssname ssf (setq n (1- n))) ssa) ) ) (sssetfirst) (sssetfirst nil ssa) ) ;;;===============================================================;;; ;;; SSD version 2.6 par GC 14/07/08 (derniere revision 17/11/2011) ;;; Selection de blocs dynamiques par des valeurs de parametres dynamiques ;;; ;;; Utilisations : ;;; - Pour creer un jeu de selection, entrer SSD, selectionner un bloc source ;;; puis choisir les valeurs a filtrer dans la boite de dialogue. ;;; - A l'interieur d'un commande de modification, a l'invite "Choix des objets: " ;;; entrer (SSD). ;;; Le filtre peut se faire sur tout le dessin ou a l'interieur d'une selection (defun ssd (/ *error* ToString DynBlkPropValue dz ss ent blk name pop fuzz ret sel res) (vl-load-com) (or *acad* (setq *acad* (vlax-get-acad-object))) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument *acad*))) (defun *error* (msg) (if (/= msg "Fonction annulee") (princ (strcat "Erreur: " msg)) ) (and blk (not (redraw (vlax-vla-object->ename blk) 4))) (setvar 'dimzin dz) (princ) ) (defun ToString (v u) (cond ((= 0 u) (vl-princ-to-string v)) ((= 1 u) (angtos v (getvar 'aunits) 16)) ((if (< (abs v) 1e-6) (rtos v 1 6) (rtos v (getvar 'lunits) 12) ) ) ) ) ;; DynBlkPropValue ;; Boite de dialogue pour choisir des valeurs de parametres dynamiques ;; ;; Argument : la liste des parametres dynamiques (defun DynBlkPropValue (lst / tmp file pn unt av dcl_id val) (setq tmp (vl-filename-mktemp "Tmp.dcl") file (open tmp "w") ) (write-line (strcat "DynBlkProps:dialog{label=\"Filtre de blocs dynamiques\";" ":text{label=\"Nom du bloc : \"" (vl-prin1-to-string name) ";}spacer;:boxed_column{label=\"Proprietes dynamiques\";" ) file ) (foreach p lst (setq pn (vla-get-PropertyName p) unt (vla-get-UnitsType p) ) (cond ((setq av (vlax-get p 'AllowedValues)) (setq av (mapcar '(lambda (x) (ToString x unt)) av) pop (cons (vl-list* pn "*" av) pop) ) (write-line (strcat ":popup_list{label=" (vl-prin1-to-string pn) ";key=" (vl-prin1-to-string pn) ";value=" (itoa (1+ (vl-position (ToString (vlax-get p 'Value) unt) av))) ";edit_width=25;allow_accept=true;}" ) file ) ) ((/= pn "Origin") (setq fuzz (cons pn fuzz)) (write-line (strcat ":row{:edit_box{label=" (vl-prin1-to-string pn) ";key=" (vl-prin1-to-string pn) ";value=" (vl-prin1-to-string (ToString (vlax-get p 'Value) unt)) ";edit_width=18;allow_accept=true;}" ":edit_box{label=\"Tolerance\";key=" (vl-prin1-to-string (strcat pn "_fuzz")) ";value=\"1e-12\";edit_width=6;allow_accept=true;}}" ) file ) ) ) ) (write-line (strcat "}spacer;:radio_row{key=\"selset\";" ":radio_button{label=\"Tout le dessin\";key=\"all\";value=\"1\";}" ":radio_button{label=\"Selection\";key=\"sel\";}}" "spacer;ok_cancel;}" ) file ) (close file) (setq dcl_id (load_dialog tmp)) (if (not (new_dialog "DynBlkProps" dcl_id)) (exit) ) (foreach p pop (start_list (car p)) (mapcar 'add_list (cdr p)) (end_list) ) (action_tile "accept" "(foreach p (mapcar 'vla-get-PropertyName lst) (if (assoc p pop) (setq val (nth (atoi (get_tile p)) (cdr (assoc p pop)))) (setq val (get_tile p))) (if (and val (/= val \"\") (/= val \"*\")) (setq ret (cons (cons p val) ret)))) (setq fuzz (mapcar (function (lambda (x) (cons x (get_tile (strcat x \"_fuzz\"))))) fuzz)) (and (not ret) (setq ret T)) (setq sel (get_tile \"selset\")) (done_dialog)" ) (action_tile "cancel" "(setq ret nil)") (start_dialog) (unload_dialog dcl_id) (vl-file-delete tmp) ret ) ;;----------------------------------------------------;; (setq dz (getvar 'dimzin)) (setvar 'dimzin 8) (and (or (and (setq ss (cadr (ssgetfirst))) (= 1 (sslength ss)) (setq ent (ssname ss 0)) (sssetfirst nil nil) ) (and (sssetfirst nil nil) (setq ent (car (entsel))) ) ) (setq blk (vlax-ename->vla-object ent)) (= (vla-get-ObjectName blk) "AcDbBlockReference") (= (vla-get-IsDynamicBlock blk) :vlax-true) (not (redraw ent 3)) (setq name (vla-get-EffectiveName blk)) (or (DynBlkPropValue (vlax-invoke blk 'getDynamicBlockProperties)) (redraw ent 4) ) (not (redraw ent 4)) (if (= sel "all") (ssget "_X" (list '(0 . "INSERT") (cons 2 (strcat name ",`*U*"))) ) (ssget (list '(0 . "INSERT") (cons 2 (strcat name ",`*U*"))) ) ) (setq res (ssadd)) (vlax-for b (setq ss (vla-get-ActiveSelectionSet *acdoc*)) (if (and (= (vla-get-EffectiveName b) name) (or (= ret T) ((lambda (lst) (apply '= (cons T (mapcar (function (lambda (p / n v l u f) (setq n (car p) l (assoc n lst) u (vla-get-UnitsType (caddr l)) ) (equal (cond ((= 0 u) (cdr p)) ((= 1 u) (angtof (cdr p))) (T (distof (cdr p))) ) (if (= u 0) (vl-princ-to-string (cadr l)) (cadr l) ) (if (and (setq f (cdr (assoc n fuzz))) (numberp (read f)) ) (atof f) 1e-12 ) ) ) ) ret ) ) ) ) (mapcar (function (lambda (p / n v) (list (setq n (vla-get-PropertyName p)) (vlax-get p 'Value) p ) ) ) (vlax-invoke b 'getDynamicBlockProperties) ) ) ) ) (ssadd (vlax-vla-object->ename b) res) ) ) (vla-delete ss) ) (setvar 'dimzin dz) res ) (defun c:ssd () (sssetfirst nil (ssd)) (princ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Selection par motif de hachure - sshp - 2014/09 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun c:sshp (/ ss ent elst) (and (or (and (setq ss (cadr (ssgetfirst))) (= 1 (sslength ss)) (setq ent (ssname ss 0)) ) (and (sssetfirst nil nil) (setq ent (car (entsel "\nSelectionnez une Hachure: "))) ) ) (= (cdr (assoc 0 (setq elst (entget ent)))) "HATCH") (sssetfirst nil (ssget "_X" (list '(0 . "HATCH") (assoc 2 elst)))) ) (princ) )