probleme sur ce lisp

[dol]

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]

[Oli553]

A quoi est il destiné?

Merci

[dol]

a transformer des dxf en dwg automtiquement

[rebcao]

Bonjour Dol,

 

j'ai un peu de mal à comprendre l'intérêt !!! :casstet:

 

Tu peux ouvrir un DXF et l'enregistrer sous DWG sans faire de bidouille LISP :P

 

Où il manque quelques explications...

 

Merci de ta réponse

 

Christian

[Maximilien]

en visualisant 5 sec j'ai cru comprendre

qu'il cherche à lister les dxf d'un dossier

qu'il créé un scrip qui les ouvre un à un et

qu'il les sauve en dwg 2000.

 

Perso "dos_command" je ne connais pas

[rebcao]

si c'est effectivement ça ! il y aurait moyen d'utiliser le générateur de SCRIPT de ce sujet...

 

Il y a juste à aller dans le dossier concerné, un double clic sur un fichier et dans AutoCAD on lance le SCRIPT...

 

à voir...

 

Christian