bonuscad

Et l'appui simultané sur CTRL SHIFT A ne pourrait pas te rendre service? C'est une commande à bascule.

Peut être une réponse que j'ai déjà donné dans ce Fil

Voici une réponse basée sur le lisp (defun record_dwg (name / nam_file) (cond ((not (wcmatch (cdr (assoc 2 name)) "`**")) (if (not prefix) (progn (setq nam_file (getfiled "Dessin bibliothèque" (cdr (assoc 2 name)) "dwg" 1)) (setq prefix (substr nam_file 1 (- (strlen nam_file) (strlen (cdr (assoc 2 name)))))) ) (setq nam_file (strcat prefix (cdr (assoc 2 name)))) ) (command "_.-wblock" nam_file (cdr (assoc 2 name))) ) ) ) (defun c:blk2dwg ( / first_blk l_blk n_blk prefix) (setq first_blk (tblnext "BLOCK" T)) (cond (first_blk (setq l_blk (list first_blk)) (while (setq n_blk (tblnext "BLOCK")) (setq l_blk (cons n_blk l_blk)) ) (setvar "FILEDIA" 0) (foreach n l_blk (record_dwg n)) (setvar "FILEDIA" 1) ) (T (princ "\nPas de blocs définis!") ) ) (prin1) )

Normal, Il s'embrouille la tête avec les nouvelles unités de mesure de surface 1 Gaymard = 600 m² AutoDESK n'a pas encore incoporé cette nouvelle unité dans AutoCAD.UNT ;)

Puisque la question est dans le forum concernant R12, il y avait la commande "SSX" ou "(SSX)" pour utiliser en transparence. Ceci est un lisp qui etait fourni à l'époque par AutoDesk, je l'utilise encore parfois sous 2002 car il permet de faire rapidement des filtres sur des drapeaux (flag) d'entités ce que ne permet pas la commande _FILTER

Bonjour, Il n'y a pas qu'AutoCAD qui n'aime pas ça. Il m'est arriver de vouloir installer une imprimante sur un serveur d'impression et d'affecter un nom de reseau plus grand que 8 caractères, et bien cette imprimante restait obstinement invisible sur le reseau. J'ai mis vraiment longtemps avant de découvrir que c'était le nom qui posait problème. Je me suis farci des desinstals et instals avec des drivers différents, pendant un moment. Ceci sur un reseau TCPIP. Mes déboires vont-il te servir?

Une solution propre à ton cas serait en tout 1er lieu d'inserer ton bloc désiré. puis de cliquer sur le bouton défini comme suit *^C^C_.copy;_last;;$M=$(getvar,lastpoint);_none;'_cal;(cur+cur)/2; Sans espace en fin de ligne, bien sur. Dans ce cas, la copie de ton bloc fonctionnera indéfiniment comme désiré

Regarde dans le développement de l'aide de mon poste précédent; Au lieu de "Répétition de macro de menu" prends "Syntaxe de macro de menu" Tu auras toutes les explications des caractères employés. Mais cela m'explique pas pourquoi Eric arrive à faire: *^C^C_select;\_copy;_previous;;m;\_none;'_cal;(cur+cur)/ 2;^Z et moi *^C^C_.line;\\;^Z ne donne rien de concluant Il ya quelquechose qui m'échappe :casstet:

Je n'ai rien inventé Sous 2002 Dans documentation du Développeur -> Guide de personnalisation -> Menus personnalisés -> Syntaxe des options de menu -> Macros de menu -> Répétition de macro de menu Mais après vos remarque je me suis penché sur le problème, car en fait je ne comprends plus ce qu'ils entendent par menu image. J'ai fais l'essai dans une nouvelle icone d'une barre d'outil: *^C^C_.line;\\; fonctionne comme il faut sans espace après le dernier ";" *^C^C_.line;\\;^Z ne fonctionne pas ??? Comprenne qui pourra! :casstet:

Ouf! J'ai mis du temps à comprendre ce qu'il faisait En fait il faut choisir la méthode de travail SELECTION-ACTION pour filtrer les objet par calque. Si on choisit la méthode ACTION-SELECTION pas de possibilité de filter. Donc en résumé avec SC on active la selection filtré sur un calque, puis on fait une sélection par fenêtre ou capture et seul les objets du calaque filtré seront grippés et on fait l'action désiré. L'idée est bonne, mais avec un _Qselect on peut aussi filtrer rapidement, Un collègue m'a demandé la même chose il n'y a pas longtemps, j'ai trouvé que sa demande n'était pas bien fondé non plus car Qselect permettait de le faire aussi mais je lui ais pondu ceci: (defun c:sel_by_layer ( / ent lay_name typ_ent stat_lay) (while (null (setq ent (entsel "\nChoix de l'entité: ")))) (setq lay_name (cdr (assoc 8 (entget (car ent)))) typ_ent (cdr (assoc 0 (entget (car ent)))) ) (if (eq typ_ent "INSERT") (alert "\nATTENTION l'entité sélectionnée appartient à un Bloc ou XRef, calque d'insertion sélectionné.") ) (setq stat_lay (tblsearch "LAYER" lay_name)) (if (eq (boole 1 (cdr (assoc 70 stat_lay)) 4) 4) (alert (strcat "\nLe calque: " lay_name " est verrouillé!")) (progn (princ (strcat "\nL'entité sélectionnée appartient au calque: " lay_name)) (princ "\nChoix des objet par capture, fenêtre, trajet ou individuel.") (sssetfirst nil (ssget (list (cons 8 lay_name)))) (command "_.properties") ) ) (prin1) )

Je n'ai pas encore la 2005 :mad: Pour l'instant toujours en 2002 Mai tu as raison de me rappeler ces nouvelles fonctionnalités, je crois que je vais abandonner l'évolution de mon cartouche (on va pas perdre du temps pour rien ;) ) car le saut ne saurait tarder... peut être pour la 2006??

Je dirais NON, bien qu'il est possible de les rajouter dans AutoCAD.pat ou acadiso.pat Mais je ne pense pas que c'est une bonne solution: 1-grossir les fichiers standard AutoCAD.pat et acadiso.pat ralentira la bête 2-lors de changement de version ou d'une réinstallation, tu risques de tout perdre, ou d'avoir une migraine pour transferer tes motifs :mad: C'est vrai que ce serait bien qu'une bibliothéque soit alloué à l'utilisateur et qui puisse être lue par Autocad au lieu de se trimbaler une miriade de motifs :(

Patrick_35 Je ne vois aucune concurrence :) Il est toujours bon de voir ce que peuvent faire les autres, la manière dont ils abordent le problème. Ca ne peut être qu'enrichissant et formateur. Je m'interesse a ce sujet de renseigner le chemin des Xrefs. Je ne sais pas encore si je vais compléter mon cartourche automatique ou faire une fonction indépendante. (fonction similaire à tampon de jsirop avec en plus quelques renseignements complémentaires): *date de création, de modification, de tracage *nom du fichier *nom du dossier *nom de la présentation *auteur *n° classement *échelle (qui est liée à une fenêtre de présentation pour le calcul de l'échelle, dans le cas d'insertion dans l'espace papier) *la version d'autocad *La version de windows Si ça interesse quelqu'un, je peux mettre le code en ligne, dans le forum approprié, de ce cartouche automatique (assez volumineux LSP +DCL)

Pour info, Extrait de l'aide: La répétition de macro de menu (*^C^C) ne fonctionne pas dans les menus images. Donc impossible de l'utiliser dans les barres d'outils ;)

Salut, Un truc tout bête, qui arrive souvent, est de bien t'assurrer que ta fin de fichier (EOF) ne se fait pas en fin de ligne de la dernière ligne de défintion de ton motif, mais bien sur une nouvelle ligne (ligne vierge après ta dernière ligne.) En conclusion fait un retour de ligne à la fin de la définition de motif avant d'enregister ton fichier!

En complétant le lisp de Patrick_35, on pourrait déjà faire ce qui suit: (defun c:id_xref ( / a liste_xref) (setq a (tblnext "block" t)) (setq liste_xref nil) (while a (if (= (logand (cdr (assoc 70 a)) 4) 4) (progn (setq liste_xref (append liste_xref (list (cdr (assoc 1 a))))) (princ (strcat "\n\t\tXref trouvé ---> " (cdr (assoc 1 a)))) ) ) (setq a (tblnext "block")) ) (if liste_xref (progn (setvar "TEXTEVAL" 1) (command "_.-text" pause pause pause) (foreach n liste_xref (command (eval n) "_.-text" "")) (command "") (setvar "TEXTEVAL" 0) ) ) (princ) ) Après il serait peut être interessant, si on veut sophistiquer, d'en faire un groupe nommé pour pouvoir le remanipuler lors de session ultérieure et le mettre à jour automatiquement. Dans l'état; il faut effacer et relancer la routine pour tenir à jour, c'est déjà pas mal!

Voilà 3 motifs de ma conception, ne respecte pas des norme ISO ou autres Si ça peut compléter ta collection.... *GABION 14.03624347,0.50000000,0.37500000,-0.97014250,0.24253563,0.10307764,-4.02002798 75.96375653,0.60000000,0.40000000,-3.15296313,0.24253563,0.10307764,-4.02002798 104.03624347,0.62500000,0.50000000,-5.09324813,0.24253563,0.10307764,-4.02002798 165.96375653,0.60000000,0.60000000,-3.15296313,0.24253563,0.10307764,-4.02002798 194.03624347,0.50000000,0.62500000,-0.97014250,0.24253563,0.10307764,-4.02002798 255.96375653,0.40000000,0.60000000,-3.15296313,0.24253563,0.10307764,-4.02002798 284.03624347,0.37500000,0.50000000,-0.97014250,0.24253563,0.10307764,-4.02002798 345.96375653,0.40000000,0.40000000,-3.15296313,0.24253563,0.10307764,-4.02002798 45.00000000,0.25000000,0.00000000,-0.70710678,0.70710678,0.11785113,-1.29636243 14.03624347,0.33333333,0.08333333,-0.97014250,0.24253563,0.06871843,-4.05438720 315.00000000,0.40000000,0.10000000,-0.70710678,0.70710678,0.14142136,-1.27279221 225.00000000,0.50000000,1.00000000,-0.70710678,0.70710678,0.14142136,-1.27279221 165.96375653,0.40000000,0.90000000,-3.15296313,0.24253563,0.06871843,-4.05438720 135.00000000,0.33333333,0.91666667,-0.70710678,0.70710678,0.11785113,-1.29636243 45.00000000,0.00000000,0.25000000,-0.70710678,0.70710678,0.11785113,-1.29636243 75.96375653,0.08333333,0.33333333,-3.15296313,0.24253563,0.06871843,-4.05438720 135.00000000,0.10000000,0.40000000,-0.70710678,0.70710678,0.14142136,-1.27279221 225.00000000,1.00000000,0.50000000,-0.70710678,0.70710678,0.14142136,-1.27279221 284.03624347,0.90000000,0.40000000,-0.97014250,0.24253563,0.06871843,-4.05438720 315.00000000,0.91666667,0.33333333,-0.70710678,0.70710678,0.11785113,-1.29636243 14.03624347,0.60000000,0.15000000,-0.97014250,0.24253563,0.10914103,-4.01396459 104.03624347,0.70588235,0.17647059,-0.97014250,0.24253563,0.05596976,-4.06713587 143.13010235,0.69230769,0.23076923,-1.40000000,0.20000000,0.11538462,-4.88461538 206.56505118,0.60000000,0.30000000,-0.89442719,0.44721360,0.03194383,-2.20412415 255.96375653,0.57142857,0.28571429,-3.15296313,0.24253563,0.08835226,-4.03475336 315.00000000,0.55000000,0.20000000,-0.70710678,0.70710678,0.07071068,-1.34350288 56.30993247,0.85714286,0.53571429,-1.38675049,0.27735010,0.07726181,-3.52828946 135.00000000,0.90000000,0.60000000,-0.70710678,0.70710678,0.09428090,-1.31993266 206.56505118,0.83333333,0.66666667,-0.89442719,0.44721360,0.09316950,-2.14289848 270.00000000,0.75000000,0.62500000,0.00000000,1.00000000,0.06250000,-0.93750000 345.96375653,0.75000000,0.56250000,-3.15296313,0.24253563,0.11044033,-4.01266530 53.13010235,0.85000000,0.80000000,-1.40000000,0.20000000,0.07142857,-4.92857143 135.00000000,0.89285714,0.85714286,-0.70710678,0.70710678,0.08417938,-1.33003418 206.56505118,0.83333333,0.91666667,-0.89442719,0.44721360,0.06211300,-2.17395498 284.03624347,0.77777778,0.88888889,-0.97014250,0.24253563,0.07288318,-4.05022245 341.56505118,0.79545455,0.81818182,-2.21359440,0.31622776,0.05749596,-3.10478176 33.69006753,0.27272727,0.68181818,-2.21880078,0.27735010,0.05853168,-3.54701960 104.03624347,0.32142857,0.71428571,-0.97014251,0.24253564,0.03681345,-4.08629218 180.00000000,0.31250000,0.75000000,0.00000000,1.00000000,0.06250000,-0.93750000 270.00000000,0.25000000,0.75000000,0.00000000,1.00000000,0.06250000,-0.93750000 345.96375653,0.25000000,0.68750000,-3.15296313,0.24253563,0.02342674,-4.09967889 14.03624347,0.20000000,0.30000000,-0.97014250,0.24253563,0.03171620,-4.09138943 53.13010235,0.23076923,0.30769231,-1.40000000,0.20000000,0.05656109,-4.94343891 123.69006753,0.26470588,0.35294118,-2.21880078,0.27735010,0.02651141,-3.57903987 153.43494882,0.25000000,0.37500000,-1.34164079,0.44721360,0.05590170,-2.18016628 216.86989765,0.20000000,0.40000000,-3.60000000,0.20000000,0.05263158,-4.94736842 284.03624500,0.15789474,0.36842105,-0.97014249,0.24253565,0.03616759,-4.08693803 315.00000000,0.16666667,0.33333333,-0.70710678,0.70710678,0.04714045,-1.36707311 33.69006753,0.75000000,0.33333333,-2.21880078,0.27735010,0.04292323,-3.56262805 153.43494882,0.78571429,0.35714286,-1.34164079,0.44721360,0.03992979,-2.19613819 270.00000000,0.75000000,0.37500000,0.00000000,1.00000000,0.04166667,-0.95833333 63.43494882,0.62500000,0.75000000,-1.34164079,0.44721360,0.09316950,-2.14289848 206.56505118,0.66666667,0.83333333,-0.89442719,0.44721360,0.07453560,-2.16153238 296.56505118,0.60000000,0.80000000,-0.89442719,0.44721360,0.05590170,-2.18016628 26.56505118,0.21428571,0.85714286,-0.89442719,0.44721360,0.03992979,-2.19613819 153.43494882,0.25000000,0.87500000,-1.34164079,0.44721360,0.03105650,-2.20501148 255.96375653,0.22222222,0.88888889,-3.15296313,0.24253563,0.03272306,-4.09038257 0.0,0.25,0.25,0.0,1.0,0.0,-0.25,0.0,-0.75 0.0,0.16666667,0.66666667,0.0,1.0,0.0,-0.5 0.0,0.75,0.5,0.0,1.0,0.0,-1.0 *MOZAIC 26.56505118,0.01118034,0.03354102,0.22360680,0.44721360,0.31299235,-0.80504164 135.00000000,0.29112921,0.17351545,-0.35355339,0.35355339,0.21903559,-1.19517797 63.43494882,0.13624765,0.32839701,0.44721360,0.22360680,0.06755458,-2.16851340 153.43494882,0.16645898,0.38881966,-0.22360680,0.44721360,0.18610680,-0.93192719 206.56505118,0.00000000,0.47204915,0.22360680,0.44721360,0.18610680,-0.93192719 296.56505118,-0.16645898,0.38881966,-0.44721360,0.2236068,0.3972136,-1.83885438 45.00000000,0.25000000,0.28535534,0.35355339,0.35355339,0.30355339,-1.11066017 135.00000000,0.46464466,0.50000000,-0.35355339,0.35355339,0.19268328,-1.22153028 206.56505118,0.32839701,0.63624765,0.22360680,0.44721360,0.30465902,-0.81337497 333.43494882,0.05590170,0.50000000,-0.22360680,0.44721360,0.19860680,-0.91942719 243.43494882,0.23354102,0.41118034,0.44721360,0.22360680,0.08151662,-2.15455136 315.00000000,0.19708568,0.33826966,-0.35355339,0.35355339,0.07483215,-1.33938141 315.00000000,0.28535534,0.25000000,-0.35355339,0.35355339,0.30355339,-1.11066017 45.00000000,0.50000000,0.03535534,0.35355339,0.35355339,0.17601661,-1.23819695 153.43494882,0.62446254,0.15981788,-0.22360680,0.44721360,0.31997337,-0.79806062 225.00000000,0.33826966,0.30291432,0.35355339,0.35355339,0.07483215,-1.33938141 333.43494882,0.37553746,0.34018212,-0.22360680,0.44721360,0.31997337,-0.79806062 45.00000000,0.66173034,0.19708568,0.35355339,0.35355339,0.19966430,-1.21454926 116.56505118,0.80291432,0.33826966,-0.44721360,0.22360680,0.15286917,-2.08319881 180.00000000,0.73454915,0.47500000,0.00000000,0.50000000,0.22419381,-0.77580619 225.00000000,0.51035534,0.47500000,0.35355339,0.35355339,0.19066127,-1.22355229 0.00000000,0.56035534,0.52500000,0.00000000,0.50000000,0.20509551,-0.79490449 296.56505118,0.76545085,0.52500000,-0.44721360,0.22360680,0.10225425,-2.13381373 26.56505118,0.81118034,0.43354102,0.22360680,0.44721360,0.14860680,-0.96942719 153.43494882,0.94409830,0.50000000,-0.22360680,0.44721360,0.30465902,-0.81337497 225.00000000,0.67160299,0.63624765,0.35355339,0.35355339,0.15732794,-1.25688562 333.43494882,0.70887079,0.17351545,-0.22360680,0.44721360,0.26299235,-0.85504164 116.56505118,0.94409830,0.05590170,-0.44721360,0.22360680,0.26299235,-1.97307563 225.00000000,0.82648455,0.29112921,0.35355339,0.35355339,0.16633097,-1.24788260 *PARPING 14.03624347,0.20000000,0.05000000,-0.97014250,0.24253563,0.25196757,-3.87113806 116.56505118,0.44444444,0.11111111,-0.89442719,0.44721360,0.09938080,-2.13668718 206.56505118,0.40000000,0.20000000,-0.89442719,0.44721360,0.07453560,-2.16153238 165.96375694,0.33333333,0.16666667,-3.15296314,0.24253567,0.34359213,-3.77951349 315.00000000,0.00000000,0.25000000,-0.70710678,0.70710678,0.28284271,-1.13137085 0.00000000,0.12500000,0.25000000,0.00000000,1.00000000,0.20833333,-0.79166667 303.69006753,0.33333333,0.25000000,-2.21880078,0.27735010,0.04292323,-3.56262805 63.43494882,0.35714286,0.21428571,-1.34164079,0.44721360,0.09583148,-2.14023649 36.86989765,0.40000000,0.30000000,-3.60000003,0.20000000,0.12500000,-4.87500000 90.00000000,0.50000000,0.37500000,0.00000000,1.00000000,0.12500000,-0.87500000 206.56505118,0.50000000,0.50000000,-0.89442719,0.44721360,0.18633900,-2.04972898 165.96375653,0.33333333,0.41666667,-3.15296313,0.24253563,0.08589803,-4.03720759 216.86989765,0.25000000,0.43750000,-3.60000000,0.20000000,0.19886364,-4.80113635 296.56505118,0.09090909,0.31818182,-0.89442719,0.44721360,0.07622959,-2.15983839 56.30993247,0.07142857,0.35714286,-1.38675049,0.27735010,0.05150788,-3.55404340 75.96375653,0.10000000,0.40000000,-3.15296313,0.24253562,0.04581228,-4.07729337 153.43494882,0.11111111,0.44444444,-1.34164079,0.44721360,0.04436643,-2.19170155 251.56505118,0.07142857,0.46428571,-2.21359436,0.31622777,0.06776309,-3.09451457 296.56505118,0.05000000,0.40000000,-0.89442719,0.44721360,0.04791574,-2.18815224 63.43494882,0.00000000,0.50000000,-1.34164079,0.44721360,0.15971914,-2.07634884 123.69006753,0.07142857,0.64285714,-2.21880078,0.27735010,0.12876969,-3.47678159 345.96375653,0.11764706,0.47058824,-3.15296313,0.24253563,0.08488747,-4.03821816 45.00000000,0.20000000,0.45000000,-0.70710678,0.70710678,0.07071068,-1.34350288 0.00000000,0.25000000,0.50000000,0.00000000,1.00000000,0.12500000,-0.87500000 53.13010235,0.37500000,0.50000000,-1.40000000,0.20000000,0.08928571,-4.91071429 36.86989765,0.42857143,0.57142857,-3.60000000,0.20000000,0.08928571,-4.91071429 90.00000000,0.50000000,0.62500000,0.00000000,1.00000000,0.12500000,-0.87500000 153.43494882,0.50000000,0.75000000,-1.34164079,0.44721360,0.18633900,-2.04972898 225.00000000,0.33333333,0.83333333,0.70710679,0.70710679,0.23570226,-1.17851132 255.96375653,0.16666667,0.66666667,-3.15296313,0.24253563,0.20211302,-3.92099260 333.43494882,0.07142857,0.71428571,-1.34164079,0.44721360,0.07985957,-2.15620841 71.56505118,0.14285714,0.67857143,-2.21359436,0.31622777,0.12320562,-3.03907204 14.03624347,0.18181818,0.79545455,-0.97014250,0.24253563,0.11575564,-4.00734999 104.03624347,0.29411765,0.82352941,-0.97014250,0.24253563,0.18190172,-3.94120391 225.00000000,0.25000000,1.00000000,-0.70710678,0.70710678,0.28284271,-1.13137085 284.03624347,0.05000000,0.80000000,-0.97014250,0.24253563,0.08835226,-4.03475336 14.03624347,0.40000000,0.85000000,-0.97014250,0.24253563,0.10307764,-4.02002798 90.00000000,0.50000000,0.87500000,0.00000000,1.00000000,0.12500000,-0.87500000 206.56505118,0.50000000,1.00000000,-0.89442719,0.44721360,0.18633900,-2.04972898 315.00000000,0.33333333,0.91666667,-0.70710678,0.70710678,0.09428090,-1.31993266 14.03624347,0.47058824,0.11764706,-0.97014250,0.24253563,0.03031695,-4.09278867 345.96375653,0.50000000,0.12500000,-3.15296313,0.24253563,0.10307764,-4.02002798 45.00000000,0.60000000,0.10000000,-0.70710678,0.70710678,0.16162441,-1.25258916 143.13010235,0.71428571,0.21428571,-1.40000000,0.20000000,0.24285714,-4.75714286 233.13010235,0.52000000,0.36000000,-1.40000000,0.20000000,0.13750000,-4.86250000 284.03624347,0.43750000,0.25000000,-0.97014250,0.24253563,0.13642629,-3.98667934 45.00000000,0.75000000,0.00000000,-0.70710678,0.70710678,0.07071068,-1.34350288 345.96375653,0.80000000,0.05000000,-3.15296313,0.24253563,0.20615528,-3.91695034 45.00000000,0.83333333,0.08333333,-0.70710678,0.70710678,0.16499158,-1.24922198 104.03624347,0.95000000,0.20000000,-0.97014250,0.24253563,0.06871843,-4.05438720 165.96375653,0.93333333,0.26666667,-3.15296313,0.24253563,0.22578912,-3.89731651 236.30993247,0.71428571,0.32142857,-1.38675049,0.27735010,0.02575394,-3.57979734 315.00000000,0.70000000,0.30000000,-0.70710678,0.70710678,0.07071068,-1.34350288 270.00000000,0.75000000,0.25000000,0.00000000,1.00000000,0.12500000,-0.87500000 333.43494882,0.75000000,0.12500000,-1.34164079,0.44721360,0.09316950,-2.14289848 26.56505118,0.66666667,0.33333333,-0.89442719,0.44721360,0.09316950,-2.14289848 333.43494882,0.75000000,0.37500000,-1.34164079,0.44721360,0.09316950,-2.14289848 75.96375653,0.83333333,0.33333333,-3.15296313,0.24253563,0.20211302,-3.92099260 165.96375653,0.88235294,0.52941176,-3.15296313,0.24253563,0.24253563,-3.88057000 255.96375653,0.64705882,0.58823529,-3.15296313,0.24253563,0.09095086,-4.03215477 233.13010235,0.62500000,0.50000000,-1.40000000,0.20000000,0.08928571,-4.91071429 315.00000000,0.57142857,0.42857143,-0.70710678,0.70710678,0.13468701,-1.27952656 315.00000000,0.87500000,0.37500000,-0.70710678,0.70710678,0.05892557,-1.35528800 104.03624347,0.91666667,0.33333333,-0.97014250,0.24253563,0.06871843,-4.05438720 225.00000000,0.90000000,0.40000000,-0.70710678,0.70710678,0.03535534,-1.37885822 45.00000000,0.57142857,0.57142857,-0.70710678,0.70710678,0.07576144,-1.33845212 135.00000000,0.62500000,0.62500000,-0.70710678,0.70710678,0.05892557,-1.35528800 243.43494882,0.58333333,0.66666667,-1.34164079,0.44721360,0.08469954,-2.15136843 323.13010235,0.54545455,0.59090909,-1.40000000,0.20000000,0.03246753,-4.96753247 63.43494882,0.80000000,0.60000000,-1.34164079,0.44721360,0.07453560,-2.16153238 135.00000000,0.83333333,0.66666667,-0.70710678,0.70710678,0.06734350,-1.34687006 53.13010235,0.78571429,0.71428571,-1.40000000,0.20000000,0.09398496,-4.90601504 165.96375653,0.84210526,0.78947368,-3.15296313,0.24253563,0.09493993,-4.02816569 90.00000000,0.75000000,0.81250000,0.00000000,1.00000000,0.06250000,-0.93750000 153.43494882,0.75000000,0.87500000,-1.34164079,0.44721360,0.11978936,-2.11627862 213.69006753,0.64285714,0.92857143,-2.21880078,0.27735010,0.12876969,-3.47678159 284.03624347,0.53571429,0.85714286,-0.97014250,0.24253563,0.14725377,-3.97585185 333.43494882,0.57142857,0.71428571,-1.34164079,0.44721360,0.25555063,-1.98051735 165.96375653,1.00000000,0.75000000,-3.15296313,0.24253563,0.11453071,-4.00857491 243.43494882,0.88888889,0.77777778,-1.34164079,0.44721360,0.03105650,-2.20501148 296.56505118,0.87500000,0.75000000,-0.89442719,0.44721360,0.09316950,-2.14289848 255.96375653,0.91666667,0.66666667,-3.15296313,0.24253563,0.11453071,-4.00857491 333.43494882,0.88888889,0.55555556,-1.34164079,0.44721360,0.12422600,-2.11184198 315.00000000,0.75000000,1.00000000,-0.70710678,0.70710678,0.28284271,-1.13137085 75.96375653,0.95000000,0.80000000,-3.15296313,0.24253563,0.20615528,-3.91695034 Données à enregistrer sous le nom du motif avec extension .PAT

Bien que décomposer la polyligne soit une solution, les raccords se feront de 2 façons qui a mon avis ne résoudront rien. Soit tu obtiendras un arc de longueur nulle avec disparitions des arcs raccordés Soit le raccord s'effectueras avec l'arc complémentaire à celui d'origine En effet les arcs dans une polylignes étant généralement tangents, sauf si elles ont été définies avec des DIRECTIONS spécifiques, ils devient impossible à les raccorder avec un arc en gardant la géométrie d'origine.

Bonsoir Tu disais avoir utilisé un nettoyeur de registre, ne cherche pas plus loin, les clés concernant les ExpressTools ont étés virés. J'utilise EasyCleanner et RegSeeker (mon préféré), malheuresement ces nettoyeurs nettoient un peu trop (plus blanc que blanc). Généralement l'utilisation de la commande "_ExpressTools" dans AutoCAD te remettra les clés de registre en place. Ce sont des outils à utiliser avec précautions... Douce nuit comme dirait une certaine gente féminime de ce forum.

Si tu n'arrive plus du tout à l'ouvrir, je te conseille d'utiliser A9CAD (un fil existe a son propos, fait une recherche). Il est fort probable qu'il arrive à lire ton dwg, a ce moment tu n'auras plus qu'a le resauvegarder et à l'ouvrir de nouveau avec AutoCAD. Ce soft m'a permis déjà de faire des conversions et des purges efficaces et de réparer certains fichiers. C'est peut être la solution la plus simple, je te souhaite que cela fonctionne.

Bonjour Je te fais une réponse en essayant de faire une déduction de ton message d'erreur "dblaymgr" "db" DataBase (base de données) "lay" Layers (calques) "mgr" Manager ?? (gestion) Aurais-tu une liaison (OLE ou autre) sur le PC d'origine avec une autre application qui gérerait tes calques? Personellement cela m'est arrivé avec des liens OLE sur des images, impossible d'ouvrir mon fichier sur un autre PC. Il te faudrait, si c'est le cas, supprimer les liens (pas évident) C'est réponse est juste une piste, la raison peut être tout autre. Bonne chance ;)

J'ai bien une routine que j'ai écrite depuis fort longtemps, elle n'est pas à jours pour les versions actuelles, mais je pense qu'elle peut répondre a ton problème pour des entités "INSERT". Essaye, ca ne mange pas de pain! (defun mdf_10 (lst cod / nw_pt) (setq nw_pt (trans (cdr (assoc cod lst)) (cdar lst) 0)) (subst (cons cod (list (car nw_pt) (cadr nw_pt) 0.0)) (assoc cod lst) lst ) ) (defun mdf_210 (lst / ) (subst '(210 0.0 0.0 1.0) (assoc 210 lst) lst ) ) (defun chg_lst (dx_lst dx_cod / ) (while dx_cod (cond ((eq (car dx_cod) 10) (setq dx_lst (mdf_10 dx_lst 10)) ) ((eq (car dx_cod) 11) (setq dx_lst (mdf_10 dx_lst 11)) ) ((eq (car dx_cod) 12) (setq dx_lst (mdf_10 dx_lst 12)) ) ((eq (car dx_cod) 13) (setq dx_lst (mdf_10 dx_lst 13)) ) ((eq (car dx_cod) 210) (setq dx_lst (mdf_210 dx_lst)) ) ) (setq dx_cod (cdr dx_cod)) ) (entmod dx_lst) ) (defun id_ent (name / ) (setq dxflst (entget name)) (setq dxfnam (cdr (assoc 0 dxflst))) (cond ((eq dxfnam "LINE") (chg_lst dxflst '(10 11 210)) ) ((or (eq dxfnam "POINT") (eq dxfnam "CIRCLE") (eq dxfnam "ARC") (eq dxfnam "ATTDEF") (eq dxfnam "SHAPE") ) (chg_lst dxflst '(10 210)) ) ((eq dxfnam "TEXT") (if (assoc 11 dxflst) (chg_lst dxflst '(10 11 210)) (chg_lst dxflst '(10 210)) ) ) ((or (eq dxfnam "TRACE") (eq dxfnam "SOLID") (eq dxfnam "3DFACE") ) (chg_lst dxflst '(10 11 12 13 210)) ) ((eq dxfnam "POLYLINE") (setq s_lst (entget (entnext (cdar dxflst)))) (while (/= (cdr (assoc 0 s_lst)) "SEQEND") (chg_lst s_lst '(10)) (setq s_lst (entget (entnext (cdar s_lst)))) ) (setq dxflst (subst '(10 0.0 0.0 0.0) (assoc 10 dxflst) dxflst)) (entmod dxflst) (chg_lst dxflst '(210)) (entupd (cdar dxflst)) ) ((eq dxfnam "INSERT") (cond ((and (assoc 66 dxflst) (not (zerop (cdr (assoc 66 dxflst))))) (setq s_lst (entget (entnext (cdar dxflst)))) (while (= (cdr (assoc 0 s_lst)) "ATTRIB") (if (assoc 11 s_lst) (chg_lst s_lst '(10 11 210)) (chg_lst s_lst '(10 210)) ) (setq s_lst (entget (entnext (cdar s_lst)))) ) ) ) (chg_lst dxflst '(10 210)) (entupd (cdar dxflst)) ) ((eq dxfnam "VIEWPORT") (prompt "\nNe peut modifier une entitée fenêtre, valeurs inchangées.") ) ((eq dxfnam "DIMENSION") ) ) ) (defun c:3DTO2D () (setq ind 0) (setq js (ssget)) (repeat (sslength js) (setq n_ent (ssname js ind)) (setq ind (1+ ind)) (if (= ind 32768) (setq ind (float ind)) ) (id_ent n_ent) ) (prin1) )

Un exemple vaut mieux qu'un grand discours. C'est une manière simple de procéder! (defun c:menu_contextuel ( / key_w) (initget 1 "Abc Def Ghi Jkl Mno Pqr Stu Vwx Yz") (setq key_w (entsel "\nSélectioner une entité-Choisir une option [Abc/Def/Ghi/Jkl/Mno/Pqr/Stu/Vwx/Yz]: ")) (cond ((eq key_w "Abc") (alert "Abc")) ((eq key_w "Def") (alert "Def")) ((eq key_w "Ghi") (alert "Ghi")) ((eq key_w "Jkl") (alert "Jkl")) ((eq key_w "Mno") (alert "Mno")) ((eq key_w "Pqr") (alert "Pqr")) ((eq key_w "Stu") (alert "Stu")) ((eq key_w "Vwx") (alert "Vwx")) ((eq key_w "Yz") (alert "Yz")) (T (if (eq (type (car key_w)) 'ENAME) (alert (cdr (assoc 0 (entget (car key_w))))) (alert "Selection vide") ) ) ) (prin1) ) Fonction honorant les mots-clé (sauf getstring) getint getreal getdist getangle getorient getpoint getcorner getkword entsel nentsel nentselp Voir l'aide sur (initget) Armer les bits de controle et initialiser les mots-clé entre guillemet dans la fonction initget. Si l'on veut internationaliser le code donner les mots en francais puis en Anglais ex: (initget bit_control "CAlque COuleur Epaisseur _Layer Color Width") dans ce cas les options retournées seront en Anglais faire le test avec ce mot SANS underscore. Notez que seule la 1ere option en Anglais comporte le "_" (underscore) dans initget Dans les fonctions (get?????) ou (?entsel?) le message fourni doit comporter entre [] (crochets) toutes les options séparées par un / (slash) Si la cette syntaxe est bien respecté les options apparaitront dans le menu contextuel (Click-Droit) et pourront être sélectionnées.

Je me sens perdu avec le sens de ta question. Le principe du réacteur, me semble t-il, ne peut avoir lieu que s'il y a une sélection pour pouvoir entrainer une modification réactive. Donc je ne voit pas trop comment mettre une réaction sur le mode de sélection. Mais je me trompe peut être, mais la démarche me parait illogique. L'appui de la touche en mode selection active le "cycle de sélection" même a travers un lisp, mais tu le sais déjà je suppose. Il est vrai que cette façon ne te renseigne aucunement sur l'entité sélectionnéee . Je te propose donc quelques lignes qui font la même chose que l'appui de pendant la sélection, mais le cycle est effectué avec le click-gauche et les informations (type entité et calque) sont affiché dans la barre d'état, Voilà une réponse qui va peut être ne pas te sastifaire, ou te permettrre d'avancer. (defun c:what_select ( / l_ent e_sel pt_sel js l_js l_ent e_sel dxf_ent key) (setq e_sel (entsel)) (cond (e_sel (setq pt_sel (osnap (cadr e_sel) "_nearest") js (ssget "_C" pt_sel pt_sel) l_js (ssnamex js) ) (foreach n l_js (if (eq (type (cadr n)) 'ENAME) (setq l_ent (cons (cadr n) l_ent)))) (setq e_sel (ssadd)) (sssetfirst nil (ssadd (car l_ent) e_sel)) (if (> (length l_ent) 1) (progn (setq dxf_ent (entget (car l_ent))) (grtext -1 (strcat (cdr (assoc 0 dxf_ent)) " " (cdr (assoc 8 dxf_ent)))) (princ "\n[Click+gauche] pour faire défiler entité suivante; [Entrée]/[Espace]/[Click+droit] pour finir!.") (while (and (not (member (setq key (grread T 4 2)) '((2 13) (2 32)))) (/= (car key) 25)) (cond ((eq (car key) 3) (setq l_ent (append (cdr l_ent) (list (car l_ent))) e_sel (ssadd)) (sssetfirst nil (ssadd (car l_ent) e_sel)) (setq dxf_ent (entget (car l_ent))) (grtext -1 (strcat (cdr (assoc 0 dxf_ent)) " " (cdr (assoc 8 dxf_ent)))) ) ) ) (grtext) ) ) ) ) (prin1) )

Merci du retour, Concue sous une 2002, je n'ais pas ce problème, donc difficile d"en identifier la cause. Cependant je penche pour 2 hypothèses, soit 1- (if (not (member "geom3d.arx" (arx))) (arxload "geom3d.arx")) pose problème si la commande "_align" ne fait plus partie d'un ARX. Pour faire le test, virer cette ligne, vérifier que la commande _align est bien effective avant de lancer la routine. 2- Le message d'erreur parlant de caractère, il pourrait s'agir de "*" qui est mal interprété Tu peux alors essayer de faire le test en remplacant les 2 chaines "*0.0,0.0,0.0" par (trans '(0.0 0.0 0.0) 1 0) Si toujours pas concluant, alors pas de solution, il faudrait qu'un lispeur sous 2004 ou 2005 puisse t'aider