vla-sendcommand in a script

[gcsjlewis]

Can someone help me with the following:

;;file#1 is a notepad document

(princ   (strcat "\"" (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "resume") "\"") File#1)

I'm getting an error for a bad string, what i want to see in my script file is:

....

open
"T:\Acad_Autolisps\Testing\Test_project\000-00-10.dwg"
(c:120vac2)

(vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "resume")
audit
Y
_.qsave
_.close

....

[hencoop · Accepted solution]

You need to quote the (vlax.... stuff and show the internal quotes as \".

i.e. (princ   "(vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) \"resume\")" File#1)