---

hallo leute,

ich sollte via lisp eine datei von "test.ncd" nach "test.dxf" umbenennen. ist dies möglich?
info: die .ncd wird in einem anderen programm automatisch generiert und wird von der nc programmierung verendet, ist aber vom inhalt eine eindeutige dxf datei. ich will diese nun in eine vorhandene zeichnung einfügen und muss diese deshalb in eine "echte" dxf datei umwandeln.

autocad 2002 mpp6 + autocad lt 2002 toolkit

gruss bu

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

schau in die entwicklerhilfe , Stichwort "File-Handling Functions "

da findest du zB auch die "vl-file-rename Function"

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

..etwas vollständiger, da Sebastians Hinweis zwar die wesentliche Funktion nennt, aber sonst...

(defun FILENAME->DXF (FILENAME / PATH NEWNAME)
  (if(and(=(type FILENAME)'STR)
        (setq FILENAME(findfile FILENAME))
        (setq PATH(fnsplitl FILENAME))
        (setq NEWNAME(strcat(car PATH)(cadr PATH)".DXF"))
        (not(findfile NEWNAME))     
    )
    (vl-file-rename FILENAME NEWNAME)                 
  ) 
)

Aufruf dann z.b:
(FILENAME->DXF "D:\\TESTDIR\\TEST.ncd")

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

CADmium, 10 units !

gruss bu

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

zu früh gefreut,
ich muss natürlich die datei zuerst in ein tmp-verzeichnis kopieren da ich das original-file nicht ändern darf
zu meiner verteidigung: ich habe in der autocad hilfe nachgeschaut, jeoch ist das die entwicklerhilfe von der cadffm schreibt?
vielleicht hat mir noch jemand einen tip für ein handbuch zu den vlax-befehlen wenn es den sowas gibt.

gruss bu

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

<dream> dann nimm doch das :
(defun FILENAME->DXF (FILENAME / PATH NEWNAME)
  (if(and(=(type FILENAME)'STR)
        (setq FILENAME(findfile FILENAME))
        (setq PATH(fnsplitl FILENAME))
        (setq NEWNAME(strcat(car PATH)(cadr PATH)".DXF"))
        (not(findfile NEWNAME))     
    )
    (vl-file-copy FILENAME NEWNAME)                 
  ) 
)

Aufruf bleibt der gleiche

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo bu,

copy test.ncd *.dxf

tut es auch
oder

copy *.ncd *.dxf

Kopiert Dir gleich alle NCD-Dateien.

Oder ist das zu einfach?

Gruß
Theodor Schönwald

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

weil "via Lisp"

dann so (command "shell" "copy c:\\*.ncd c:\\*.dxf")

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP