[
code]
;;; this function will prompt the user with a dialog box
;;; to select an existing file to open
;;;
;;; returns the open file handle or nil
;;;
;;; usage
;;; (setq open_file (open_file))
(defun C:FO (/ file_select open_file)
(if (setq file_select (getfiled "Select File to Read" "" "txt" 8))
(setq open_file (open file_select "r"))
) (princ)
)
[/code
]
Got that far
,I'm still coming to terms with it all
.So heres my miserable effort
.Saved the file to my CDrive as a lisp file and apploaded it.Changed around the FO so that it follows the defun,also added a C: (so that the function acts as a command when I enter it into the command line).The mods I've done now bring up the open file dialog box.Have'nt got time to finish the rest of it,might not even know how to
.Think the princ goes at the end to finish it off and exit cleanlyIt would be really cool if when you reveal a solution to your question you could run through it and explain why you altered each part.