Lisp expression for OPEN or INSERT

[tmccar]

If I enter Lisp expressions on the command line, they get evaluated ok, but not where a filename is required (e.g. for OPEN or INSERT). I get "Invalid file name" when I try to use a "strcat" expression. Is there a way around this?

[hmsilva]

---

@tmccar wrote:

If I enter Lisp expressions on the command line, they get evaluated ok, but not where a filename is required (e.g. for OPEN or INSERT). I get "Invalid file name" when I try to use a "strcat" expression. Is there a way around this?

---

Hi tmccar,

your explanation is vague, could you please show an specific example.

Using a path in 'LISP', you'll have to enter two backslashes "\\" or a single slash "/"

i.e.

(strcat "c:\\test\\test\\" "test.dwg")
;; or
(strcat "c:/test/test/" "test.dwg")

Hope this helps,
Henrique

[tmccar]

For instance, I can enter this expression at the command line:

(setenv "filedir" "C:/dwgs/")

and then

(strcat (getenv "filedir") "Folder1/cover1.dwg")

and it will corrrectly evaluate the full path so:

C:/dwgsFolder1/cover1.dwg

But I would like to enter the expression (strcat (getenv "filedir") "Folder1/cover1.dwg") in response to the Open or Insert command.

[hmsilva]

---

@tmccar wrote:

But I would like to enter the expression (strcat (getenv "filedir") "Folder1/cover1.dwg") in response to the Open or Insert command.

---

???

Try

(defun c:demo (/ file)
  (setenv "filedir" "C:/dwgs/")
  (setq file (strcat (getenv "filedir") "Folder1/cover1.dwg"))
  (if (findfile file)
    (command "_.-insert" file "_S" 1 "_R" 0 '(0.0 0.0 0.0))
    (prompt (strcat "\n" file " was not found! "))
  )
  (princ)
)

Hope this helps,
Henrique

[tmccar]

Thanks Henrique - I had forgotten to set TEXTEVAL to 1

[hmsilva]

You're welcome, tmccar.
Glad you got it sorted!

Henrique