dol

merci pour ces conseils,mais j'ai déja fait tout ça. je que je voudrai ces une variable ou une commande pour que a l'ouverture du ou des plans il vire tous les calques comme le chinois sur l'image 2 et qui ne servent a rien

bonjour a tous . Voila mon problème : quand j'ouvre un plan j'ai des calque inutiles. j'ai des calques chinois voici l'exemple: http://www.ekrutz.com/imgs/d/dol/th-autocad.jpg et celle ci: http://www.ekrutz.com/imgs/d/dol/th-autocad1.jpg mes plans font 1M au lieu de 250KO y a t-il une variable ou une commande pour que cet calque ne revienne plus a chaque fois. Je connais la commande purger et ou les supprimés dans la gestion des calque. merci de votre aide. [Edité le 23/10/2006 par dol]

merci a toi

merci a toi pour la version demo

merci a toi

c'est de l' HPGL ou HPGL 2 merci a tous

salut a tous je voudrais savoir si il existe un logiciel gratuit pour lire les PLT qui ont ete crée par autocad version 2005 et 2006. merci pour la reponse . c'est pour mon boulot

salut a tous je voudrais savoir si il existe un logiciel gratuit pour lire les PLT qui ont ete crée par autocad version 2005 et 2006. merci pour la reponse . c'est pour mon boulot

salut a tous je suis sur autocad 2005 ce lisp sert a transformer un dxf en dwg automatiquement qq1 peux m'aider sur ce lisp il ne marche pas. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (defun NOEXT(chaine) ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (setq ct 1 len (strlen chaine)) (while (and (/= "." (substr chaine ct 1)) (<= ct len) );fin and (setq ct (1+ ct)) );fin while (substr chaine 1 (- ct 1)) );fin defun ;**************************************************************************************** ;************** PERMET DE CHANGER DES FICHIERS ***************************** ;************* DXF EN DWG **************************** ;************ *************************** ;*********** ************************* ;**************************************************************************************** ;------------------------------------------------------------------------ (defun C:chdxf();/ rep dos s f ligne lst nom ;------------------------------------------------------------------------ (initget "Oui Non") (setq choix (getkword "\nVoulez-vous un repertoire specifique (Oui ou Non) : ")) (if (= choix "Oui") (progn (setq rep (getstring T "\nRépertoire de recherche: ") ) );fin progn (progn (setq rep (getvar "dwgprefix") lg (strlen rep) rep (substr rep 1 (- lg 1)) ) );fin progn );fin de if (dos_command (strcat "dir " rep "\\*.dxf/b/on>" rep "\\listdxf") 8) (princ) (setq lst nil s (open (strcat rep "\\dxf.scr") "w") f (open (strcat rep "\\listdxf") "r") );fin setq (while (setq ligne (read-line f)) (setq lst (append lst (list ligne))) );fin while (foreach x lst (setq nom (NOEXT x)) (write-line "_NEW" s) (write-line (strcat nom "=") s) (write-line "_DXFIN" s) (write-line (strcat rep "\\" nom) s) (write-line "zoom et" s) (write-line "FILEDIA 1" s) (write-line "CMDDIA 1" s) (write-line "CMDECHO 1" s) (write-line "ATTREQ 1" s) (write-line "SAUVENOM 2000" s) ;(write-line "2000" s) (write-line (strcat rep "\\" nom) s) );fin foreach (princ "\n") (close s) (close f) (setq ecr (strcat rep "\\dxf")) (command "script" ecr) (princ) );fin defun

a transformer des dxf en dwg automtiquement

salut a tous je suis sur autocad 2005 ce lisp sert a transformer un dxf en dwg automatiquement qq1 peux m'aider sur ce lisp il ne marche pas. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (defun NOEXT(chaine) ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (setq ct 1 len (strlen chaine)) (while (and (/= "." (substr chaine ct 1)) (<= ct len) );fin and (setq ct (1+ ct)) );fin while (substr chaine 1 (- ct 1)) );fin defun ;**************************************************************************************** ;************** PERMET DE CHANGER DES FICHIERS ***************************** ;************* DXF EN DWG **************************** ;************ *************************** ;*********** ************************* ;**************************************************************************************** ;------------------------------------------------------------------------ (defun C:chdxf();/ rep dos s f ligne lst nom ;------------------------------------------------------------------------ (initget "Oui Non") (setq choix (getkword "\nVoulez-vous un repertoire specifique (Oui ou Non) : ")) (if (= choix "Oui") (progn (setq rep (getstring T "\nRépertoire de recherche: ") ) );fin progn (progn (setq rep (getvar "dwgprefix") lg (strlen rep) rep (substr rep 1 (- lg 1)) ) );fin progn );fin de if (dos_command (strcat "dir " rep "\\*.dxf/b/on>" rep "\\listdxf") 8) (princ) (setq lst nil s (open (strcat rep "\\dxf.scr") "w") f (open (strcat rep "\\listdxf") "r") );fin setq (while (setq ligne (read-line f)) (setq lst (append lst (list ligne))) );fin while (foreach x lst (setq nom (NOEXT x)) (write-line "_NEW" s) (write-line (strcat nom "=") s) (write-line "_DXFIN" s) (write-line (strcat rep "\\" nom) s) (write-line "zoom et" s) (write-line "FILEDIA 1" s) (write-line "CMDDIA 1" s) (write-line "CMDECHO 1" s) (write-line "ATTREQ 1" s) (write-line "SAUVENOM 2000" s) ;(write-line "2000" s) (write-line (strcat rep "\\" nom) s) );fin foreach (princ "\n") (close s) (close f) (setq ecr (strcat rep "\\dxf")) (command "script" ecr) (princ) );fin defun merci a vous [Edité le 27/11/2004 par dol]