Discussion of other Lisp dialects (Arc, Clojure, AutoLisp, XLISP, etc.)
- Posts: 2
- Joined: Tue May 12, 2009 1:17 am
I have a lisp from original author, LEEMAC on CADTutor...
I recoded it and used DOSLib.
Here is the code:
Code: Select all
(defun c:rscr (/ wfile rfile ofile n)
(if (and (setq wfile "C:\\test.scr")
(setq rfile (dos_getfilem "Select Drawings"
"" "DWG Files (*.dwg)|*.dwg"))
(setq ofile (open wfile "w"))
(strcat "open \"" rfile "\" (load \"mylsip.lsp\") (c:mylisp) close \"Y\"")
(command "script" wfile))
(princ "\n<!> File Selection Error <!>"))
The lisp creates the scr file allthough it do not write lines into it.
Can someone help me please..
I think its wrong with foreach and write-line functions...
- Posts: 71
- Joined: Wed Dec 17, 2008 5:18 am
- Location: Bonn, Germany
I think that this is AutoLisp, not Common Lisp.
You should post this to "Other dialects", or a moderator might be able to move it there.
Anyway, it seems to me as if your write-line statement is quoted, thus not doing anything. I may be wrong, though, I am not familiar with AutoLisp.
"Just throw more hardware at it" is the root of all evil.
- Posts: 447
- Joined: Sat Jun 28, 2008 7:49 am
- Location: Austin, TX