Running a Command at Drawing Startup

[douglas_sellars]

I have a LISP script that is set to automatically run when each drawing is opened through acaddoc. This LISP basically adds a command for me to use as needed in Civil3D. But it would be beneficial if when opening a drawing, after loading the LISP, it automatically ran the command and answered all the prompts, as it should be exactly the same for every project I am working on. I'm not fluent whatsoever in LISP language so how would I go about adding these prompts to my acaddoc document?

[hippe013]

Can you post your lisp? And also post what the answer would be for each prompt? Maybe it can be re-written without any prompts at all. 

[douglas_sellars]

I've attached the lisp file. This was received by another member today so I'm not familiar with the coding portion. The process I would like it to perform:

Run "QALL"

Enter Quantize Value: 0.001

Quantize objects even on locked layers?: Y

[hippe013 · Accepted solution]

Add the following to the very bottom of the script that you posted.

(vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "QALL 0.001 YES ")

[douglas_sellars]

Perfect. Thanks so much for your help. 

[hippe013]

Happy to help.