DenisHen

Je pense que c'était le command qui déconnait, mais je n'en suis pas sûr... Voici ce qui fonctionne : (defun c:RecupDataCercle (/ ent Coord Ray) (command "_circle" "3p" pause pause pause) (setq ent (entget (entlast))) (setq Coord (cdr (assoc 10 ent))) ; récupération des coordonnées dans la variable XY (setq Ray (cdr (assoc 40 ent))) ; récupération du rayon dans la variable R (princ "\nCoordonnées du centre : ") (princ Coord) (princ "\tRayon : ") (princ Ray) (princ) ) Denis...

Salut, je pense que tu devrais remplacer : (setq ent (car (entsel) )) Par (setq ent (car (entlast) )) Mais je n'ai pas le début du LISP... Denis...

Salut. Tu as tout ici, le centre est le code DXF 10 et le rayon est le DXF 40.

Salut. Normalement, ma routine ne change pas la couleur du calque existant. Si le calque existe, c'est ok, il garde sa couleur, par contre, si le calque n'existe pas, la couleur sera le blanc... Par contre, si tu as déjà un "gabarit" ou un DWG modèle, tu peut utiliser la commande Steal de Lee Mac...

Ia orana, et bienvenue sur CadXP.com...

Personnellement, et pour ne pas me faire taper dessus ( ;) ), j'aurais déclaré mes variables : (defun c:searchBlocFromPoly ( / liste-sommets ent-liste n liste-sommBloc name pos1 pos2 liste value) (setq liste-sommets '() ent-liste (entget (car (entsel "\nChoix de la polyligne\n"))) n 0 ) ;_ Fin de setq (repeat (length ent-liste) (if (= 10 (car (nth n ent-liste))) (setq liste-sommets (cons (cdr (nth n ent-liste)) liste-sommets)) ) ;_ Fin de if (setq n (+ 1 n)) ) ;_ Fin de repeat (setq liste-sommets (reverse liste-sommets)) (setq i 0) (setq liste-sommBloc '()) (while (setq name (ssname (ssget "_X" (list (cons 0 "insert"))) i)) (setq pos1 (cadr (assoc 10 (entget (ssname (ssget "_X" (list (cons 0 "insert"))) i))))) (setq pos2 (caddr (assoc 10 (entget (ssname (ssget "_X" (list (cons 0 "insert"))) i))))) (setq liste (list pos1 pos2)) (setq liste-sommBloc (append liste-sommBloc (list liste))) (if (member liste liste-sommets) (progn (setq value (getattributevalue (ssname (ssget "_X" (list (cons 0 "insert"))) i))) (prin1 value) ) ;_ Fin de progn ) ;_ Fin de if (setq i (+ i 1)) ) ;_ Fin de while ) ;_ Fin de defun (defun getattributevalue (entName_bloc / enx) (if (and (setq entName_bloc (entnext entName_bloc)) (= "ATTRIB" (cdr (assoc 0 (setq enx (entget entName_bloc))))) ) ;_ Fin de and (cdr (assoc 1 (reverse enx))) (getattributevalue entName_bloc) ) ;_ Fin de if ) ;_ Fin de defun Chose que je remarque chez les autres mais jamais chez moi... :huh:

Merci Ô Décapode... ;)

Ma méthode serait, une fois les sommets de la polyligne connus, d'intéroger tous les blocs du dessin et d'identifier les coordonnées communes (entre le sommet en cours et le bloc en cours). Ensuite tu récupères les données du bloc correspondant. Mais je pense que cette méthode sera très chronophage, il y a certainement un autre moyen... D'autres que moi devraient avoir une solution plus... Esthétique...

Salut. J'ai peut-être une autre solution... Celle de passer par le DXF de ton fichier (Sauvegarde Sous...). Mais d'autres auront peut-être une solution moins... Brutale...

Salut. Je pense que la méthode serait : 1. création de la polyligne, 2. interrogation des blocs situés sur les sommets de cette polyligne (grace à ceci). C'est très faisable...

Salut. Tu veux dire, changer le rapport d'échelle X/Y/Z sur des entités qui ne sont pas des blocs ?

+1 avec Phil. Ou même, plus sournois, un style de texte utilisé à l'intérieur d'un MTEXT... Très difficile à trouver, car il faut éditer tous les MTEXT...

Salut à tous. je ne sais pas si j'ai bien compris. J'ai un bout de code qui, je pense, pourrait te convenir. Bien sur, il ne fait pas la totalité de ton code, mais tu peut t'en inspirer. Je trouve la liste de paires pointés très utile dans ce cas. ;;; ************************************************************ ;;; Exemple de gestion des calques, existants et/ou nouveaux ;;; ************************************************************ (defun c:GestCalq (/ LstCalq PosLst) (setq LstCalq '(("AncienNom01" . "NouveauNom01") ("AncienNom02" . "NouveauNom02") ;; Et ainsi de suite... ) ) ;_ Fin de setq (princ "\nRemplacement / fusion des calques...") (foreach PosLst LstCalq (if (tblsearch "layer" (car PosLst)) (progn (if (not (tblsearch "layer" (cdr (assoc (car PosLst) LstCalq)))) (command "-calque" "n" (cdr (assoc (car PosLst) LstCalq)) "") ) ;_ Fin de if (command "fuscalques" "n" (car PosLst) "" "n" (cdr (assoc (car PosLst) LstCalq)) "o") ;_ Fin de command ) ;_ Fin de progn ) ;_ Fin de if ) ;_ Fin de foreach (princ) ) ;_ Fin de defun

Salut. Alors l'éditeur de blocs dynamiques est bien opérationnel ? (voir cette discution)

Salut. Grillé par Matt666 ! ! ! Pour respecter l'accroche objet, il y a : (command "_insert" "appel" "_none" PAUSE "" "" "")

Salut. Tu inserts toujours ton bloc à 0,0,0 ?

Salut. Question a poser quand-même : as-tu 1000 fois le même bloc ?

Salut. Peut-être un "REGEN" dans chaque présentation ?

Salut. Ok, je vais attendre la 2021 alors. Merci encore... Denis, "triste" aussi...

Salut lecrabe et merci de me répondre. Oui, j'ai un MAP 2019 (version 22.0.022.16 ... 2019.0.1 Update). Tu me conseilles donc de ne pas utiliser MAP 2020 et d'attendre MAP 2021 ? En hommage à notre regretté Patrick_35 ?

Bonjour à tous... N'ayant pas encore de forum pour AutoCAD 2020, je me permet de poster ici... Je bouillonne depuis deux heures ! ! ! :angry: Il y a deux mois, environ, j'ai installé AutoCAD MAP 2020, j'ai bien rentré mes numéros de série et de licence, jusque là, tout va bien... Il y a deux semaines, impossible de lancer mon nouvel AutoCAD : "problème de licence dépassée", ou un truc dans ce genre... J'ai donc désinstallé cet AutoCAD, mais à la toute fin, Le PC a planté... Donc, il redémarre et s'auto-nettoie au démarrage... Depuis, toutes mes tentatives pour installer se sont soldées par "AutoCAD est déjà installé". nettoyage du PC avec CCleaner, suppression des répertoires AutoCAD 2020 (je pense que c'était une connerie)... Aucune réinstallation n'est possible... Quelqu'un pourrais venir me sortir de la vase ? J'ai aussi les droits administrateurs sur mon PC, Windows 10...

Salut. AutoCAD MAP 2019 : Version ... : 22.0.022.4 Basé sur : P.162.0.0 AutoCAD 2019 1.2 Je ne peux pas faire de mise à jour pour l'instant. mon boulo a changer ses locaux et nous n'avons pas encore internet. Je partage ma connexion sur mon smartphone. Si je mets à jour AutoCAD, j'explose mon formait... Et les téléchargements des mises à jour depuis chez moi et rapatriés par clef USB ne fonctionnent pas... Ils tournent toute la nuit et le matin, il tourne encore...

Ok...

Salut. C'est du linéaire en SHP. Il doit y avoir trois/quatre lignes qui font six/sept kilomètres au total...

Salut et merci pour ta réponse. En fait, j'ai fini par le faire avec des ShapeFiles, mais une fois le .SHP affiché dans AutoCAD, l'accroche objet dure une dizaine de seconde à chaque mouvement de souris... J'ajouterais que je suis une bille en SIG... Encore merci pour tes liens...