Topic: HOW TO WRITE MY DRAWING LIST IN DIRECT NOTEPAD

[Sam]

Dear all,

HOW TO WRITE MY DRAWING LIST IN DIRECT NOTEPAD

[irneb]

Where do you get this drawing list? Are you using Sheet Sets? Do you want a list stating all the values from your title blocks (i.e. in excel rather than NotePad)? Or are you only interested in a list of DWG files in a folder?

All those are possible, but each has a different answer. Could you please elaborate?

[Sam]

Where do you get this drawing list? Are you using Sheet Sets? Do you want a list stating all the values from your title blocks (i.e. in excel rather than NotePad)? Or are you only interested in a list of DWG files in a folder?

All those are possible, but each has a different answer. Could you please elaborate?

dear sir,
thx for reply
only interested in a list of DWG files in a folder & subfolder
i create menu with sld lisp required txt file so many block in my folder i don't written all path in text file
D:\Block\Kitchen\Refrigerator\FRIDGE-1

[Lee Mac]

Look into the vl-directory-files function

[CAB]

One thread, and there are more just no time to look.
http://www.theswamp.org/index.php?topic=3499.0

[irneb]

If you really do want them in a text file, then the old DOS command-line may be of service:

• Open a command console (CMD.exe in windows 7). Press WinKey+R, type cmd & Enter.
• Browse to the folder using dos command CD (for change directory). This is the hard part  :ugly:
• Type the DIR command with /B switch to show "bare-bones-list" and wildcard only DWG files. Then redirect the output into a text file. E.g.:

Code: [Select]

DIR /B *.DWG > MyList.txt
If you want each to have the path as well and also have all subfolders under the current, then include the /S switch thus:

Code: [Select]

DIR /B /S *.DWG > MyList.txt
Edit: Nearly forgot, there' is a new thing in Vista & Win7. While browsing to a folder (any explorer window, including acad's open dialog) hold down the Shift button & Right-Click on the folder - you should now have a "Open command window here" option in the popup menu. That way you can omit steps 1 & 2 above.

[Lee Mac]

If you really do want them in a text file, then the old DOS command-line may be of service:

1+ much easier than writing a LISP program 

[irneb]

I'm in agreement there. Unless this folder gets added to constantly, in which case I'd start looking at dynamically creating the menu (but that's a whole other ball game).

[alanjt]

Code: [Select]

dir %1 /-p /a /o /b>"%temp%\file list"
notepad "%temp%\file list"


[deegeecees]

Here's something that may work for you. Study it very carefully.

Code: [Select]

(DEFUN C:dir_list ()

;;;;;;;;;;;;;;;;;;;;;;;;;Select directory to be processed

(setq dfil (getfiled "Select a **FILE** in the directory you want to list, then click on OPEN" "D:/" "*" 0))
(setq wutdir (vl-filename-directory dfil))
(setq wutfiles (vl-directory-files wutdir "*.dwg" 1))
(setq dwglistfile (strcat wutdir "\\dir_list.txt"))
(SETQ dwgfiler (OPEN dwglistfile "w"))
(WRITE-LINE wutdir dwgfiler)

(foreach n wutfiles
(WRITE-LINE n dwgfiler)
(princ)
)
(alert "\n***File DIR_LIST.TXT has been created in the directory you chose.***")
(CLOSE dwgfiler)
(startapp "notepad" dwglistfile)


(princ)


);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;DEFUN

[Sam]

Dear all sir,

thx for reply & sorry for delay

lee sir (vl-directory-files) thx for good suggestion
irneb sir look very nice but result not match my lisp
Plankton sir nice code thx  i will study & get back for suggestion thx
cab sir & alanjt also thx

some link found me i archive my list at this software
http://www.infonautics.ch/directorylistprint/