Page 1 of 1

make script lisp-write-line error

Posted: Tue May 12, 2009 1:40 am
by au-s
Hello,

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"))
	  )
    (progn
      (setq ofile (open wfile "w"))
      (foreach n
        '(write-line
          (strcat "open \"" rfile "\" (load \"mylsip.lsp\") (c:mylisp) close \"Y\"")
          ofile))
      (close ofile)
      (command "script" wfile))
    (princ "\n<!> File Selection Error <!>"))
  (princ))
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...

Re: make script lisp-write-line error

Posted: Tue May 12, 2009 7:01 pm
by Harleqin
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.

Re: make script lisp-write-line error

Posted: Wed May 13, 2009 9:19 am
by findinglisp
Moved.