-
Compteur de contenus
1 489 -
Inscription
-
Dernière visite
-
Jours gagnés
19
Type de contenu
Profils
Forums
Calendrier
Blogs
Tout ce qui a été posté par zebulon_
-
Bonjour, Si ce comportement est normal, alors à quoi peut bien servir vla-sendcommand ? Si c'est juste pour remplacer (command ...) dans le fichier en cours, c'est un peu dommage. Je pencherai plutôt à dire qu'il s'agit d'un comportement anormal, voire d'un bug. C'est quand même rageant de ne pas arriver à faire avec vlisp ce qu'un vulgaire script sait faire sans problème. Amicalement Zebulon_ [Edité le 7/12/2006 par zebulon_]
-
On avait déjà parlé d'un soucis de cotation oblique sur la version 2004 ici. C'est pire sur la 2007. Quand on est dans un scu tourné par rapport au scu général, l'angle de l'oblique respecte l'angle du scu général et pas du scu local. Donc, à ce niveau, ça n'a pas évolué par rapport à la version 2004. Là où il y a un progrès dans le bug, c'est quand vous copiez la cote oblique créée : l'angle de la cote copiée change... Pire : quand vous faites un COTEDIT Oblique et que vous choisissez plusieurs cotes, ça donne n'importe quoi (toujours quand le scu local est tourné par rapport au scu général). Quelqu'un a déjà fait la même expérience ? Amicalement Zebulon_ [Edité le 22/11/2006 par zebulon_]
-
On est deux a ne pas comprendre. Je pense que dans son fichier il y a des bouts de lignes, des arcs qui devraient faire partie d'un polyligne, mais qui sont des lignes et des arcs, tous seuls dans leur coin. Alors, bien sûr, si on fait juste "clore", ça donne de la daube. Si c'est ça, il pourra peut être s'en sortir en isolant le calque sur lequel se trouve les objets à analyser (pour autan qu'ils sont sur un calque à part ?), puis en lançant la commande PEDIT Multiple et sélectionner les objets à transformer en polylignes. Donc en faisant un Joindre (avec une distance de 0.00, ou un peu plus si c'est vraiment mal dessiné) avant de faire le Clore. Amicalement Zebulon_
-
bienvenu dans la secte CADxp qui, par la prière, le jeûne, la pénitence, la solitude et dans l'état de célibat, recherche l'union avec la divinité Autocad. Mais CADxp n'est pas monothéiste, tu trouveras aussi des adeptes d'autres chapelles : Catia, MicroStation, Revit etc... et les plus dangereux : les adeptes de LISP et VLISP. Tu ne pourras pas dire que tu n'as pas été prévenu :) Amicalement Zebulon_
-
... ou sur un calque non imprimable Amicalement Zebulon_
-
bonjour, tu sélectionnes toutes tes polylignes avec _qselect (ou menu contextuel : sélection rapide ...) Dans _qselect, tu choisis : - Appliquer à : dessin entier - Type d'objet : Polyligne - Propriétés : fermée - Opérateur : = égal à - Valeur : Non mode d'application : inclure dans le nouveau jeu de sélection puis OK Toutes tes polylignes non fermées sont sélectionnées. Il suffit de lancer la commande _properties (ou menu contextuel : Propriétés ...) et changer la ligne Fermée : Non en Fermée : Oui. Amicalement Zebulon_
-
Je suis quelqu'un de fidèle, que voulez-vous, on ne se refait pas. Ma première copine, je l'ai épousée et je lui ai fait 2 enfants. Quant à mon premier lisp, je lui ai aussi fait quelques enfants.. qui ont souvent été aussi d'affreuses bidouilles, si ça peut te rassurer usegomme. Mais bon, comme on dit, au royaume des aveugles les borgnes sont rois et entre celui qui ne sait rien faire du tout et celui qui sait pondre une bidouille qui fonctionne, je préfère le deuxième. Quant à Patrick_35, je te rassure. Mon premier lisp a failli partir aux oubliettes aussi (le premier qui dit "comme ta première copine" ...) puisque je l'ai retrouvé sur une vieille disquette 3"1/2 planqué au fond d'un tiroir. Le plus difficile c'est de retrouver un ordinateur avec un lecteur de disquette. Heureusement ce n'étais pas une disquette 5"1/4. Ah nostalgie... Mais ce qui est rassurant, c'est que je me sers toujours de ce lisp sous cette forme ; entrée données (defun lire_BP (/ TEMP DEP FIN X1 X2 Y1 Y2 OldOS OldPlinewid) (if (not BP_EP) (setq BP_EP 0.10) ) (setq DEP nil FIN nil ) (prompt (strcat "\nEpaisseur : " (rtos BP_EP 2 3))) (while (/= (type DEP) 'LIST) (initget 1 "Epaisseur") (setq DEP (getpoint "\nPoint gauche semelle ou [Epaisseur] ")) (if (= DEP "Epaisseur") (setq BP_EP (getdist "\nEpaisseur : ")) ) ) (setq FIN (getpoint DEP "\nPoint droit semelle : ")) (if (> (car DEP) (car FIN)) (progn (setq TEMP DEP) (setq DEP FIN) (setq FIN TEMP) ) ) ) ; dessiner polyligne béton de propreté (defun dess_BP () (setq X1 (- (car DEP) BP_EP)) (setq Y1 (cadr DEP)) (setq X2 (+ (car FIN) BP_EP)) (setq Y2 (- (cadr FIN) BP_EP)) (setq OldOS (getvar "OSMODE")) (setvar "OSMODE" 0) (setq OldPlinewid (getvar "PLINEWID")) (setvar "PLINEWID" 0) (command "_PLINE" DEP (list X1 Y1) (list X1 Y2) (list X2 Y2) (list X2 Y1) FIN "" ) (setvar "OSMODE" OldOS) (setvar "PLINEWID" OldPlinewid) ) (defun C:BP () (lire_BP) (dess_BP) (princ) ) Amicalement Zebulon_
-
On s'en fout peut être de sa première chemise, mais pas de son premier lisp . J'ai fait un peu de rangement, et je suis tombé sur le premier lisp que j'ai écrit il y a ... longtemps. ; entrée données (defun lire_BP () (setq DEP (getpoint "\nPoint gauche semelle : ")) (setq FIN (getpoint "\nPoint droit semelle : ")) (setq EP (getdist "\nEpaisseur : ")) ) ; dessiner rectangle béton de propreté (defun dess_BP () (setq X1 (- (car DEP) EP)) (setq Y1 (cadr DEP)) (setq X2 (+ (car FIN) EP)) (setq Y2 (- (cadr FIN) EP)) (command "POLYLIGN" (list X1 Y1) (list X2 Y1) (list X2 Y2) (list X1 Y2) "C" ) ) (defun C:BP () (lire_BP) (dess_BP) ) ça dessine un rectangle de béton de propreté sous une semelle (uniquement si les accroches objets sont inactifs : à l'époque ça n'existait pas ou alors je ne savais pas que ça existait et je ne m'en servais pas) Amicalement Zebulon_ PS : à vous de publier les vôtres, qu'on s'amuse un peu :)
-
Commande _SOLPROF EN LISP
zebulon_ a répondu à un(e) sujet de Virgile_69 dans Pour aller plus loin en LISP
et en utilisant la syntaxe _SOLPROFIL ou SOLPROFIL (sans E) ? ou, peut-être faut faire une (arxload ...) de quelque chose ? Amicalement Zebulon_ -
ça sert à grouper toutes les commandes faites dans le lisp en une seule, par rapport à la commande ANNULER. Tu n'as qu'a essayer. Tu lances ton lisp qui te crée plusieurs objets, puis tu tapes U pour annuler : tous les objets créés disparaissent en un coup. Après, tu mets des ; devant les 2 lignes (command ...), tu recharges ton lisp et tu le réexécute. Tu verras que pour annuler, il faudra taper U des dizaines de fois avant que tout ne soit annulé. C'est pas top comme ça ;) Amicalement Zebulon_
-
(defun c:dess() (command "_.undo" "_group") ;Mentant Gauche (setq HSMG (getreal "\entrez une valeur_HSMG:")) (setq BSMG (getreal "\entrez une valeur_BSMG:")) (setq EPMG (getreal "\entrez une valeur_EPMG:")) (setq HMTG (getreal "\entrez une valeur_HMTG:")) (setq OLDOS (getvar "OSMODE")) (setvar "OSMODE" 0) ;; enlever les accroches objet ;Mentant Gauche (setq ptG0 '(0 0)) (setq ptG1 (list BSMG 0)) (setq ptG2 (list BSMG HMTG)) (setq ptG3 (list 0 HMTG)) (setq ptG4 (list 0 0)) (setq ptG5 (list (- BSMG EPMG) 0)) (setq ptG6 (list (- BSMG EPMG) HMTG)) (setq ptG7 (list EPMG 0)) (setq ptG8 (list EPMG HMTG)) (command "POLYLIGN" ptG0 ptG1 ptG2 ptG3 ptG4 "") (command "ligne" ptG5 ptG6 "") (command "chprop" (entlast) "" "co" 2 "") (command "chprop" (entlast) "" "T" "CACHE" "") (command "ligne" ptG7 ptG8 "") (command "chprop" (entlast) "" "co" 2 "") (command "chprop" (entlast) "" "t" "CACHE" "") ;Section Mentant Gauche (setq ptSMG0 (list 0 (/ HMTG 2.0))) (setq ptSMG1 (list (- BSMG ) (/ HMTG 2.0))) (setq ptSMG2 (list (- BSMG ) (+ (/ HMTG 2.0) HSMG))) (setq ptSMG3 (list (- (- BSMG) BSMG) (+ (/ HMTG 2.0) HSMG))) (setq ptSMG4 (list (- (- BSMG) BSMG) (/ HMTG 2.0))) (setq ptSMG5 (list (- BSMG) (/ HMTG 2.0))) (setq ptSMG6 (list (- (- BSMG ) EPMG) (+ (/ HMTG 2.0) EPMG))) (setq ptSMG7 (list (- (- BSMG ) EPMG) (- (+ (/ HMTG 2.0) HSMG) EPMG))) (setq ptSMG8 (list (+ (- (- BSMG ) BSMG) EPMG) (- (+ (/ HMTG 2.0) HSMG) EPMG))) (setq ptSMG9 (list (+ (- (- BSMG ) BSMG) EPMG) (+ (/ HMTG 2.0) EPMG))) (command "POLYLIGN" ptSMG1 ptSMG2 ptSMG3 ptSMG4 ptSMG5 "") (command "ligne" ptSMG6 ptSMG7 ptSMG8 ptSMG9 ptSMG6 "") ;;Flèche partie Mentant Gauche (setq L1 (list (- (/ BSMG 2.0)) (/ HMTG 2.0))) (setq L2 (list (- (/ BSMG 2.0)) (+ (/ HMTG 2.0) (/ BSMG 2.0)))) (setq L3 (list (+ (- (/ BSMG 2.0)) 46) (+ (/ HMTG 2.0) (/ BSMG 2.0)))) (setq L4 (list (- (- (/ BSMG 2.0)) 46) (+ (/ HMTG 2.0) (/ BSMG 2.0)))) (setq L5 (list (- (/ BSMG 2.0)) (+ (+ (/ HMTG 2.0) (/ BSMG 2.0)) 105))) (setq L6 (list (+ (- (/ BSMG 2.0)) 80) (+ (+ (/ HMTG 2.0) (/ BSMG 2.0)) 105))) (setq L7 (list (- (- (/ BSMG 2.0)) 80) (+ (+ (/ HMTG 2.0) (/ BSMG 2.0)) 105))) (setq L8 (list (+ (/ BSMG 2.0) BSMG) (/ HMTG 2.0))) (setq L9 (list (+ (/ BSMG 2.0) BSMG) (+ (/ HMTG 2.0) (/ BSMG 2.0)))) (setq L10 (list (+ (+ (/ BSMG 2.0) BSMG) 46) (+ (/ HMTG 2.0) (/ BSMG 2.0)))) (setq L11 (list (- (+ (/ BSMG 2.0) BSMG) 46) (+ (/ HMTG 2.0) (/ BSMG 2.0)))) (setq L12 (list (+ (/ BSMG 2.0) BSMG) (+ (+ (/ HMTG 2.0) (/ BSMG 2.0)) 105))) (setq L13 (list (+ (+ (/ BSMG 2.0) BSMG) 80) (+ (+ (/ HMTG 2.0) (/ BSMG 2.0)) 105))) (setq L14 (list (- (+ (/ BSMG 2.0) BSMG) 80) (+ (+ (/ HMTG 2.0) (/ BSMG 2.0)) 105))) (command "ligne" L1 L2 "") (command "ligne" L3 L4 "") (command "ligne" L5 L4 "") (command "ligne" L5 L3 "") (command "ligne" L6 L7 "") (command "SOLIDE" L4 L3 L5 "" "") (command "ligne" L8 L9 "") (command "ligne" L10 L11 "") (command "ligne" L12 L11 "") (command "ligne" L12 L10 "") (command "ligne" L13 L14 "") (command "SOLIDE" L11 L10 L12 "" "") (setq StyTxName "MonStyle") ;; le nom du nouveau style de texte (if (not (tblsearch "STYLE" StyTxName)) ;; s'il n'existe pas (command "_style" StyTxName "arial.ttf" "0.0" "1.00" "0.00" "_N" "_N") ;; je le crée (command "_textstyle" StyTxName) ;; sinon je l'active ) (command "_text" L7 "30" "0" "Mon texte") (setvar "OSMODE" OLDOS) ;; remettre les anciens accroche objets (command "_.undo" "_end") (princ) ) La variable HHMTG n'était pas initialisée et ça plantait tout ton programme. Je l'ai remplacée par la variable HMTG qui, elle, était initialisée. Il faut faire attention aux accroches objets et les désactiver quand on dessine avec des "command", sinon ça donne des choses assez originales mais pas forcément ce à quoi on s'attend (OSMODE) Enfin, on peut aussi rajouter un undo au début et à la fin pour grouper toutes les actions du lisp dans un seul undo. Amicalement Zebulon_
-
Tu n'as qu'a publier tout ton programme, comme ça on y verra plus clair. S'il n'est pas trop long. Amicalement Zebulon_
-
Bonjour, (defun c:testext () (setq F7 (getpoint "\nPoint d'insertion : ")) (setq StyTxName "MonStyle") ;; le nom du nouveau style de texte (if (not (tblsearch "STYLE" StyTxName)) ;; s'il n'existe pas (command "_style" StyTxName "arial.ttf" "1.5" "1.00" "0.00" "_N" "_N") ;; je le crée (command "_textstyle" StyTxName) ;; sinon je l'active ) ;; comme ça tu maîtrise le style utilisé par la commande _text ;; et comme le disait Didier plus haut, tu sauras si le texte ;; a une hauteur définie ou non ;; ;; puis tu crées ton texte (command "_text" "_non" F7 "0" "Mon texte") ;; sans indiquer de hauteur, puisque le style créé ci dessus ;; a une hauteur prédéfinie (princ) ) Si tu préfères un style de texte avec une hauteur à 0, il faut changer (command "_style" StyTxName "arial.ttf" "0.0" "1.00" "0.00" "_N" "_N") Mais après, la commande _text demandera un hauteur à la création, donc il faut en indiquer une dans la ligne : (command "_text" "_non" F7 "1.5" "0" "Mon texte") Amicalement Zebulon_
-
Gestion des images et Transparence...
zebulon_ a répondu à un(e) sujet de AlCapoon dans AutoCAD LT 2005
Si ça marche aussi avec du TIFF couleur. Amicalement Zebulon_ -
Gestion des images et Transparence...
zebulon_ a répondu à un(e) sujet de AlCapoon dans AutoCAD LT 2005
Bonjour Al, La commande Transparence contrôle si les pixels du fond d'une image sont transparents ou opaques. Donc uniquement les pixels de fond. Il faut donc avoir à l'origine un format d'image qui sait gérer le transparence. (le TIFF par exemple, pas le JPG) Par contre, je n'ai pas de LT et je ne sais pas si cette commande existe ou non dans cette version. Il te suffit de taper la commande TRANSPARENCE et s'il te dit Commande inconnue, tu seras vite fixé. Sinon, avec la commande ORDRETRACE en sélectionnant l'image et en la mettant en ARrière ? Ce n'est pas tout à fait pareil, mais ça peut peut-être le faire. Amicalement Zebulon_ -
Bonjour, ( defun c:clot () ; Caractéristiques de la clothoide (setq R (getdist "\n Rayon final de la clothoide : ")) (setq L (getdist "\n Longueur de la clothoide : ")) (setq P (getdist "\n Pas de la clothoide : ")) (setq Ls 0) (setq S '(0 0)) (setq A (sqrt (* R L))) (command "_pline") (command "_non" S) ; Boucle (setq sortie nil) (while (not sortie) (setq Ls (+ Ls P)) (if (> Ls L) (progn (setq Ls L) (setq SORTIE T) ) ) (setq Rs (/ (* A A) Ls)) (setq Ns (/ Ls Rs)) (setq Xs (* Ls (- 1 (* Ns (/ Ns 40))))) (setq Ys (* Ls (- (/ Ns 6) (* Ns Ns (/ Ns 336))))) (setq S (List Xs Ys)) (command "_non" S) ) (command "") (princ) ) C'est ce dont je me sers pour tracer des clothoïdes. Je ne sais pas qui en est l'auteur. J'en profite pour lancer un appel à tout ceux qui font du tracé routier. Merci de tenir compte, dans vos tracés, de la présence éventuelle d'ouvrages d'art et d'éviter de mettre des clothoïdes et des variations de dévers juste à cet endroit. Je parle de petits ouvrages d'art, pas des viaducs bien entendu. Parce que c'est trop bête d'avoir un petit PS de 40 ou 50m de portée et de se colletiner une cloth + variation de dévers. Un ouvrage sur un alignement droit avec des dévers constants, c'est quand même plus simple pour tout le monde quand on fait du béton-armé (du dessinateur au maçon-coffreur) Merci pour eux... Amicalement Zebulon_
-
cour de lisp ! (pas a pas avec exemple !)
zebulon_ a répondu à un(e) sujet de kenny31 dans CADxp, vos souhaits
Kenny, si tu comprends l'anglais, il y a Kenny qui pourra sans doute t'aider. Amicalement Zebulon_ -
Bonjour, Quand on reste dans le même fichier, sendcommand marche bien. (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "_-insert ") et peut remplacer (command ...) du lisp. Sinon, dans ton cas, le fonctionnement est effectivement surprenant. On dirait que sendcommand est "asynchrone" et qu'il ne s'exécute que quand tout est bien terminé, c'est à dire quand tu reviens au fichier de départ ??? J'ai eu un jour un problème du même ordre et je suis passé par un fichier script (qui contient la commande open et le load) créé par le lisp et lancé à la fin du lisp. Un peu lourd, mais c'est tout ce que j'ai trouvé. (defun openlisp () (setq SCRFILE (strcat (getvar "TEMPPREFIX") "temp.scr")) (setq F (open SCRFILE "w")) (princ (strcat "_open \"c:\\temp\\toto.dwg\"") F) (princ "\n(load \"mon_lisp\")" F) (princ "\nmon_lisp " F) (close F) (command "_script" SCRFILE) ) Notez que tempprefix renvoie "C:\\Documents and Settings\\USERNAME\\Local Settings\\Temp\\" et existe dans la version 2004. Pas forcément les précedentes. Amicalement Zebulon_
-
Création de type de ligne sans command ni fichier *.lin
zebulon_ a répondu à un(e) sujet de DenisHen dans Débuter en LISP
Quand tu fais la création de type de ligne avec entmake, autocad ne te demande PAS de fichier lin. C'était le but non ? Tu fais un truc du style : (defun c:makeltype (/ LT TYPLIG) (setq LT '( (0 . "LTYPE") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLinetypeTableRecord") (2 . "toto") (70 . 0) (3 . "Description") (72 . 65) (73 . 4) (40 . 25.0) (49 . 10.0) (74 . 0) (49 . 5.0) (74 . 0) (49 . 5.0) (74 . 0) (49 . 5.0) (74 . 0) ) ) (if (setq TYPLIG (tblobjname "ltype" "toto")) ;; pour voir si le type de ligne "toto" existe (entmod (cons (car (entget TYPLIG)) LT)) ;; tu modifies le type de ligne existant avec un entmod (entmake LT) ;; tu le crées avec entmake ) ;; fin si ) Amicalement Zebulon_ -
Création de type de ligne sans command ni fichier *.lin
zebulon_ a répondu à un(e) sujet de DenisHen dans Débuter en LISP
En principe, tu n'as pas forcément besoin de te colletiner les codes dxf. tu crée un style de ligne avec la commande typeligne avec les paramètres A,1.5,-0.5,0,-0.5,0.5,-0.5,0,-0.5 dans un fichier .dwg quelconque et sauvegardé dans fichier .lin quelconque. une fois ce type de ligne créé, tu récupères les codes dxf créés par la commande typeligne en tapant : (entget (tblobjname "ltype" "toto")) où toto est le nom du type de ligne créée. Autocad t'affiche dans une liste les codes dxf créés par la commande typeligne et il suffit de repomper la liste tellle quelle dans ton lisp (en enlevant les codes -1 330 et 5, comme dit ci-dessus) en faisant un copier coller à partir de la fenêtre de texte autocad (appuyer sur F2) Voilà, c'est tout. Tu n'as pas besoin de savoir comment c'est codé en dxf puisque tu ne fais que repomper... sauf si tu es curieux;) Amicalement Zebulon_ -
Création de type de ligne sans command ni fichier *.lin
zebulon_ a répondu à un(e) sujet de DenisHen dans Débuter en LISP
Regarde aussi les codes dxf dans l'aide, ça peut t'aider. Amicalement Zebulon_ -
Création de type de ligne sans command ni fichier *.lin
zebulon_ a répondu à un(e) sujet de DenisHen dans Débuter en LISP
Re, J'ai trouvé une combine pour créer un style de ligne en se passant, a terme, d'un fichier .lin. Cela consiste à créer classiquement un style de ligne (que j'appelle "toto") dans un fichier lambda.lin (on pourra effacer lambda.lin après), puis d'utiliser la commande (entget (tblobjname "ltype" "toto")) qui renvoie ((-1 . < Nom d'entité: 7efcd230 >) (0 . "LTYPE") (330 . < Nom d'entité: 7efc8c28 >) (5 . "1B1E") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLinetypeTableRecord") (2 . "toto") (70 . 0) (3 . "Description") (72 . 65) (73 . 4) (40 . 25.0) (49 . 10.0) (74 . 0) (49 . 5.0) (74 . 0) (49 . 5.0) (74 . 0) (49 . 5.0) (74 . 0)) Puis je copie tout ça dans mon lisp en enlevant les codes -1, 330, et 5 qui sont créés par le entmake et ça donne (entmake '( (0 . "LTYPE") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLinetypeTableRecord") (2 . "toto") (70 . 0) (3 . "Description") (72 . 65) (73 . 4) (40 . 25.0) (49 . 10.0) (74 . 0) (49 . 5.0) (74 . 0) (49 . 5.0) (74 . 0) (49 . 5.0) (74 . 0) ) ) Le entmake se fera bien entendu après avoir vérifié que "toto" n'existe pas avec tblsearch. A partir de maintenant, on n'a plus besoin du fichier lambda.lin A voir si ça marche aussi avec des types de lignes plus complexes contenant des textes ?? Amicalement Zebulon_ [Edité le 24/10/2006 par zebulon_] -
Création de type de ligne sans command ni fichier *.lin
zebulon_ a répondu à un(e) sujet de DenisHen dans Débuter en LISP
Bonjour, (if (not (tblsearch "LTYPE" STY)) (command "_linetype" "_l" STY "acadiso" "") ) La variable STY contiendra "cache", "axes" ou "bordure" etc... Donc, d'abord tu regardes si le type de ligne est déjà chargé avec tblsearch. S'il ne l'est pas tu le charges (et là il faut bien donner un fichier .lin), sinon tu ne fais rien. Pour ce qui est des type de lignes perso, créer un fichier .lin perso que tu pourras utiliser à la place de acadiso.lin Il y a sans doute un moyen de se passer d'un fichier .lin et créer le style de ligne directement dans la table "LTYPE". Amicalement Zebulon_ -
Extrusion d\'objets clos avec une hauteur en texte
zebulon_ a répondu à un(e) sujet de lecrabe dans Routines LISP
Bonjour didier 2 petites choses : La variable calque n'est pas initialisée ? D'autre part, ce que tu proposes revient un peu à ce que j'avais fais au début en utilisant la commande _bpoly et a le même défaut : quand le texte est dans un ilôt d'une région, la routine crée quand même un solide parce que la commande "contour" crée quelque chose avec le contour de l'ilôt. D'ailleurs, pourquoi y a-t-il dans autocad 2 commandes FPOLY(_bpoly) et CONTOUR(_boundary) qui font la même chose ? Amicalement Zebulon_ -
Bonjour, je pense que tu pourras t'en sortir avec un script. Il y a des spécialistes, sur ce forum, en matière de script qui vont sans doute être beaucoup plus complet que moi. Donc un script, c'est un tout bête fichier texte créé avec notepad et dont l'extension est .scr et ce fichier contient chronologiquement toutes les commandes à exécuter. Dans ton cas, ouvrir un fichier1, éditer les attributs, enregister, fermer, ouvrir fichier2, éditer les attributs, enregistrer, fermer etc ... Pour éditer les attributs, il y a la commande _-attedit et ton fichier .scr pourrait ressembler à quelque chose comme ça _open c:\temp\dessin1.dxf _-attedit _n _n NOMDUBLOC ETIQUETTEATTRIBUT * ANCIEN_NOM NOUVEAU_NOM _saveas _close _open c:\temp\dessin2.dxf _-attedit _n _n NOMDUBLOC ETIQUETTEATTRIBUT * ANCIEN_NOM NOUVEAU_NOM _saveas _close _open c:\temp\dessin3.dxf _-attedit _n _n NOMDUBLOC ETIQUETTEATTRIBUT * ANCIEN_NOM NOUVEAU_NOM _saveas _close Il faut remplacer dessin.dxf, NOMDUBLOC, ETIQUETTEATTRIBUT, ANCIEN_NOM et NOUVEAU_NOM par ce qui va bien dans ton cas. Tu obtiendras une copie du dxf en un dwg avec le même nom. En gros... Tu n'oublieras pas de passer à la caisse , si ça t'a permis de réaliser ta prestation dans de meilleures conditions. Amicalement Zebulon_
