The Lisp File
1 messages in this thread
(setq #b (strcase (strcat (getvar "dwgname") ".doc"))) (if (open #b "r")
(princ)
(progn
;begin dummy file prep to extract complete dir list
(setq #dum (strcase (strcat (getvar "dwgname") ".dwg")))
(setq #a (open #dum "w"))
(write-line "null stuff only" #a)
(close #a)
(setq #dee (strcase (strcat "del " #dum)))
;end prep
(setq #d (strcase (strcat "dir " (getvar "dwgname") ".dwg > " #b)))
(command "shell" #d);get dir list
(command "shell" #dee);delete dummy .dwg file
(textscr)
(setq #c "not enough")
(while (< (strlen #c) 20)
(prompt "\nPlease enter a description similar to the next")
(prompt " line. [20 char min, 50 max]")
(prompt "\nTO-C00607, assy fixture, 933 bulkhead ………")
(prompt " end here.\007")
(terpri)
(setq #c (getstring T))
(if (< (strlen #c) 20)(prompt "\007Sorry, not enough!\n"))
);end while
(setq #a (open #b "a"))
(write-line #c #a)
(close #a)
);end progn );end if (terpri) (cond
((= s# "S")
(princ "Now ready to SAVE \n")
(command "save")
)
((= s# "E")(command "end")
) );end cond