Need to print dwg's from text file list R14

[Anonymous]

Help!!!!!!

I need an autolisp routine to print dwg,s from a text file.

The text file contains each dwg's full path, such as

d:\acad\my\5678.dwg
c:\test\r&d\77999.dwg
f:\art\stuff\junk\mine\99990000.dwg
.......


this text file contains any where from 3 to 500 lines

needs to open dwg, plot dwg, open next dwg, plot next dwg ect......

I have been working on a autolisp routine but now I just feel like a
DIMASO!!!!


Any help would be greatly appreciated


ThankVance J. Matz
Manufacturing Engineer
Oliver Products Co.
445 Sixth ST NW
Grand Rapids, MI 49504

Phone 616-456-7711
Fax 616-456-1332

[BillZ]

Why not use the BATCHPLT utility that comes with R14?
BillZ

[Anonymous]

Hello, this is what I use when I deal with lot of files

(defun kuvakuntoon (kuvanimi); prepare drawing
; to manipulate your drawing as needed
(command "insert" kuvanimi "0,0,0" "1" "" "")
(command "zoom" "e")
(command "explode" "l")
; (command "saveas" "" kuvanimi "Y")
; (command "plot" ...... what ever
(command "u")
(command "u")
(command "u")
(command "u")

) ;end defun


(defun C:SU ()

(setq filename nil)
(while (= filename nil)
(setq filename (getstring"\Filename of your list "))
);endwhile
(setq filepointer (open filename "r"))
(setq frivi (read-line filepointer))

(if (= frivi "") (setq frivi (read-line filepointer)))
(while frivi
(if (/= frivi "")
( progn
(if (/= frivi nil)
( progn
(setq
frivi (read-line filepointer)
)
(kuvakuntoon frivi)
) ; endprogn
) ; endif
) ; endprogn
; elseif
(setq frivi nil)
) ; endif

) ; endwhile
(close filepointer)

(print "Ready")
)


This is partly using Finnish, but you sure can read it.
Rivi is row in english.

You simply start an empty drawing and start this lisp.
Before that you prepare listfile on Command Window
by "dir *.dwg /B >listfilename" and you have the list.

Regards Matti Pitkanen