Could someone help me out with the following.....I am writing to a script file like so:
(setq scrfile "T:\\Acad_Autolisps\\Scripts\\New_Project_Scripts\\ai_insert.scr")
(setq scr (open scrfile "w"))
(write-line (strcat "_open\n\"" ai_dwgname "\"") scr)
The next line i am having issues with. I need to write the following line exactly as is to the script file. I have tried a couple of different ways but it will execute the command instead of writing to the script file. If i copy and paste the following directly into the script, and run the script, it works fine.
(c:wd_inplc_nd (list 26.5 20.5 0.0) "8" "00.00.00" nil nil 1 18 1 "V" (c:wd_find_sel_plc "1756-if16") nil)
How would i do this?
Thanks...
Solved! Go to Solution.
Solved by hmsilva. Go to Solution.
Try
(write-line (strcat "(c:wd_inplc_nd (list 26.5 20.5 0.0) \"8\" \"00.00.00\" nil nil 1 18 1 \"V\" (c:wd_find_sel_plc \"1756-if16\") nil)") scr)
HTH
Henrique