make script lisp-write-line error

Discussion of other Lisp dialects (Arc, Clojure, AutoLisp, XLISP, etc.)
Post Reply
Posts: 2
Joined: Tue May 12, 2009 1:17 am

make script lisp-write-line error

Post by au-s » Tue May 12, 2009 1:40 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"))
      (foreach n
          (strcat "open \"" rfile "\" (load \"mylsip.lsp\") (c:mylisp) close \"Y\"")
      (close ofile)
      (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

Re: make script lisp-write-line error

Post by Harleqin » Tue May 12, 2009 7:01 pm

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

Re: make script lisp-write-line error

Post by findinglisp » Wed May 13, 2009 9:19 am

Cheers, Dave
Slowly but surely the world is finding Lisp.

Post Reply