;Edit raster image by double-clicking (in your default editor)
;CAD Studio, 2019 - www.cadstudio.cz
(vl-load-com)
(defun C:IMGEDIT ( / ss ent fn xn cmde Shell)
 (if (setq ss (ssget "_:S" '((0 . "IMAGE"))))(progn
  (setq ent (ssname ss 0)
        ent (vlax-ename->vla-object ent)
        fn (vl-catch-all-apply 'vlax-get-property (list ent 'ImageFile))
        xn (vl-catch-all-apply 'vlax-get-property (list ent 'Name))
        cmde (getvar "cmdecho")
  )
  (setvar "cmdecho" 0)
  (command "_-IMAGE" "_Unload" xn)
  (setq Shell (vlax-get-or-create-object "Wscript.Shell"))
  (vl-catch-all-apply 'vlax-invoke-method (list Shell "Run" fn 1 :vlax-true)) ; start and wait
  (vlax-release-object Shell)
  (command "_-IMAGE" "_Reload" xn)
  (setvar "cmdecho" cmde)
 ))
 (princ)
)