topic Re: Lisp expression for OPEN or INSERT in Visual LISP, AutoLISP and General Customization Forum

Lisp expression for OPEN or INSERT

tmccar — Fri, 10 Apr 2015 06:49:38 GMT

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?

Re: Lisp expression for OPEN or INSERT

hmsilva — Fri, 10 Apr 2015 07:52:41 GMT

@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

Re: Lisp expression for OPEN or INSERT

tmccar — Fri, 10 Apr 2015 08:40:08 GMT

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.

Re: Lisp expression for OPEN or INSERT

hmsilva — Fri, 10 Apr 2015 08:58:42 GMT

@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

Re: Lisp expression for OPEN or INSERT

tmccar — Fri, 10 Apr 2015 09:48:34 GMT

Thanks Henrique - I had forgotten to set TEXTEVAL to 1

Re: Lisp expression for OPEN or INSERT

hmsilva — Fri, 10 Apr 2015 15:33:24 GMT

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

Henrique