[
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
![Sad :(](http://www.theswamp.org/Smileys/black/sad.gif)
,I'm still coming to terms with it all
![shocked :shock:](http://www.theswamp.org/Smileys/black/shocked.gif)
.So heres my miserable effort
![Smiley :)](http://www.theswamp.org/Smileys/black/smiley.gif)
.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
![Smiley :)](http://www.theswamp.org/Smileys/black/smiley.gif)
.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.