Topic: Open DWGVersion.exe from a command in a custom menu [resolved]

[nini007]

Hello forum,
I need your lights.
I created a personal menu and I would like to open from this menu a "DWGVersion" application   
I have this code below that works to open a lisp but unfortunately does not work for an exe, I have this message: "; error: incorrect read character (octal): 0 » 
Does someone have an idea ?

Code: [Select]

^C^C((lambda ( exe ) (if (findfile exe) (load exe nil) (princ (strcat (chr 10) exe " not found.")))) "C:/Program Files/Autodesk/AutoCAD 2018/Support/DWGVersion/DWGVersion.exe")

thank you in advance
Best regards

[ribarm]

What does this do :

Code: [Select]

^C^C(startapp "C:/Program Files/Autodesk/AutoCAD 2018/Support/DWGVersion/DWGVersion.exe")


[nini007]

Hello ,

Thanks super it works flawless 

Best regards

[maicy]

(defun xxx_dos_execute ( exefile fullsreen wait / exec )
  (and (setq exec (vlax-create-object "wscript.shell"))
       (progn
          (vlax-invoke exec
                      'run
                      exefile
                      (if fullsreen 3 5)  ; 2 runs in the background. 3 fullsreen 5 windows
                      (if wait 1 0)       ; 1 Wait until the end of operation
          )
          (vlax-release-object exec)
       )
  )
  (princ)
)
;(xxx_dos_execute "c:\\windows\\notepad.exe" T nil)
;(xxx_dos_execute "c:\\windows\\notepad.exe d:\\1.txt" T nil)
;(xxx_dos_execute "\"C:\\Program Files\\paint.net\\PaintDotNet.exe\" \"d:\\1.jpg\"" T nil)
;(xxx_dos_execute "regedit" T T)
;(xxx_dos_execute "\"C:/Program Files/Autodesk/AutoCAD 2018/Support/DWGVersion/DWGVersion.exe\"" nil T)