Topic: lisp on command line?

[mohobrien]

I'm trying to loop through a series of queries in A2Kmap and am having a problem with one of the loops. The problem is a lisp problem, nothing to do with map so that's why it's here. I'm reading a series of text files, each of which is a lisp function. I want to read the file and then run it.

Code: [Select]

   
....
    (ade_qryclear)
    (ade_qrysettype "draw")
    (qryd)
    (command(eval qtrun))
    (ade_qrydefine
      '("AND"
""
""
"Property"
("layer" "=" "Lake,MarshLine,River")
""
       )
    )
....
and the qryd routine is

Code: [Select]

(defun qryd (/ byline fn)
  (setq
    fn (open (strcat "c:\\Drawings\\querytest\\" query_to_run ".qry")
    "r"
       )
  )
  (setq qtrun "")
  (while (setq byline (read-line fn))
    (setq qtrun
  (strcat
    qtrun
    byline
  )
    )
  )
  (close fn)
  qtrun
)
This is the error message
(ade_qrydefine '("" "" "" "Location" ("polyline" "polygon" "crossing"  
1 (0 0 1) 0.000000 (562958 6.23358e+006 0) 0.000000 (563171 6.22527e+006 0)
0.000000 (571373 6.22485e+006 0) 0.000000 (571799 6.23241e+006 0))"")) LISP
command is not available. :cry:Any suggestions?

[Keith™]

Never saw any functions like those in Lisp  .. are they a subset of lisp commands defined locally? From the error it appears as though they are not loaded.

[LE]

  (command(eval qtrun))

No good.....

I think we need more input....

[mohobrien]

ade_qrydefine is a function in the map api. The functions are working fine if typed in the lisp. What I want to do is dynamically (is that a word?) change the routine by evaluating the contents of a text file.
The contents of qtrun are like this: (ade_qrydefine '("" "" "" "Location" ("polyline" "polygon" "crossing"  1 (0 0 1) 0.000000 (562958 6.23358e+006 0) 0.000000 (563171 6.22527e+006 0) 0.000000 (571373 6.22485e+006 0) 0.000000 (571799 6.23241e+006 0))""))
If typed into the lisp, it runs fine. I'm trying to find how to evaluate the contents of the text file.

[Jeff_M]

Does this help?

Code: [Select]


(setq test "(command \"line\" pause pause \"\")")
(eval (read test))

This works, so I think you just need to replace:
(command(eval qtrun))
with:
(eval (read qtrun))

[mohobrien]

Thank you all. Yes Jeff that worked perfectly.