Topic: SAving to .WMF

[lispman21]

I have some dxf files and i know in order to save them as wmf files you can either export them or use the wmfout command.  Is there a way to get a lisp program to open up files in a directory and save them as wmf's.  All I need is save all the dxf files to wmf files.

[nivuahc]

Why not just script it?

[lispman21]

Script will work too.  Here is the script I have but it doesn't work.  Feel free to change waht you need.

Code: [Select]

(defun c:GenScr (/ dwgPath dwgList dwgName numDwgs count scrFile)
;;; Path should be like "c:\\projects\plots\\" or "c:/projects/plots/"
;;; Substitute your path here.
(setq dwgPath "C:\\Documents and Settings\\laoom\\Desktop\\New Folder\\" ; sets the path
dwgList (vl-directory-files dwgPath "*.Dxf") ; get the list of all the dxf's
)
(if dwgList ; if dwg files exists there
(progn
(setq numDwgs (length dwgList) ; number of drawings
count 0 ; initiate counter
scrFile (open (strcat dwgPath "Runme.scr") "w") ; open a script file in the same folder
)
(repeat numDwgs ; for all the drawings
(setq dwgName (strcat "\"" dwgPath (nth count dwgList) "\""))  
(write-line ".Open" scrFile) ; write to script file
(write-line dwgName scrFile)  
;;;
;;; Preset the dxf file format before you proceed.
;;; May require minor modification depending on you
;;; AutoCAD version Notice the two spaces after dxfout
;;; in the following line acts like <enter>.This will
;;; accept the default file name and default format
(write-line ".wmfout  " scrFile)
  (write-line "ALL" scrFile)
;;; Better to save the drawing for uninterrupted scripting
;(write-line ".Qsave" scrFile)
  (write-line ".close" scrFile)
(setq count (1+ count)); next dwg
)
(close scrFile); close when done
;;; Make sure that the current dwg won't prompt for
;;; save changes!
(command ".script" (strcat dwgPath "Runme.scr")); run the script
); progn
); if
(princ)
); defun

[nivuahc]

Code: [Select]

(defun c:GenScr (/ dwgPath dwgList dwgName numDwgs count scrFile)
;;; Path should be like "c:\\projects\plots\\" or "c:/projects/plots/"
;;; Substitute your path here.
  (setq dwgPath "C:\\test\\"
; sets the path
dwgList (vl-directory-files dwgPath "*.Dxf")
; get the list of all the dxf's
  )
  (if dwgList ; if dwg files exists there
    (progn
      (setq numDwgs (length dwgList) ; number of drawings
    count   0 ; initiate counter
    scrFile (open (strcat dwgPath "Runme.scr") "w")
; open a script file in the same folder
      )
      (repeat numDwgs ; for all the drawings
(setq dwgName (strcat "\"" dwgPath (nth count dwgList) "\""))
(write-line ".Open" scrFile) ; write to script file
(write-line dwgName scrFile)
;;;
;;; Preset the dxf file format before you proceed.
;;; May require minor modification depending on you
;;; AutoCAD version Notice the two spaces after dxfout
;;; in the following line acts like <enter>.This will
;;; accept the default file name and default format
(write-line ".wmfout " scrFile)
(write-line "ALL " scrFile)
;;; Better to save the drawing for uninterrupted scripting
;(write-line ".Qsave" scrFile)
(write-line ".close" scrFile)
(write-line "Y" scrFile)
(setq count (1+ count)) ; next dwg
      )
      (close scrFile) ; close when done
;;; Make sure that the current dwg won't prompt for
;;; save changes!
      (command ".script" (strcat dwgPath "Runme.scr")) ; run the script
    ) ; progn
  ) ; if
  (princ)
) ; defun
EDIT: oops, posted too soon

[lispman21]

The code did not save as wmf and not sure why.  It really didn't do anything.  Stioll only showed one file and that was a dxf.

[nivuahc]

Sorry 'bout that, it had a tiny typo. I edited it and it should work just fine now.

[nivuahc]

And, in case you're wondering, the only lines I changed were:

Code: [Select]

(write-line ".wmfout " scrFile)

(write-line "ALL " scrFile)

(write-line "Y" scrFile)

[lispman21]

Works perfectly now.  Thanks for your help.

[nivuahc]

My pleasure.

'tweren't nothin'