avi from dcl function?

[Patrick_35]

In the simplest

 

(defun c:playAvi (/ video wsh mp run sh dir name time)
 (setq video (findfile "c:/test/volet.avi"))
 (setq wsh (vlax-create-object "WScript.Shell"))
 (setq mp (findfile "C:/program files/windows media player/wmplayer.exe"))
 (setq run (vlax-invoke-method wsh 'exec (strcat mp " " video)))
 (command "_.delay"  6000)
 (vlax-invoke run 'terminate)
 (vlax-release-object wsh)
 (princ)
)

@+

[lee50310]

this test ok

 

(defun C:AVI2 ()

  (setq MEDIA "CLOCK.AVI")

  (setq AVI_LST (list "CLOCK.AVI" "WAITING.AVI"))

  (setq dcl_id (load_dialog "AVI.dcl"))
  (if
    (not
      (new_dialog "AVI" dcl_id)
    )
    (exit)
  )

  (start_list "SEL")
  (mapcar 'add_list AVI_LST)
  (end_list)

  (action_tile "cancel"
 "(done_dialog)(setq button nil)")

  (action_tile "accept"
    (strcat
     "(progn
        (setq MEDIA (atoi (get_tile \"SEL\")))"
       "(done_dialog)(setq button T))"))

  (start_dialog)
  (unload_dialog dcl_id)

  (if button
    (progn
      (setq MEDIA (fix MEDIA))
      (setq MEDIA (nth MEDIA AVI_LST))
      (cond
        ((= MEDIA "CLOCK.AVI"))
        ((= MEDIA "WAITING.AVI"))
      )
      (AVI_SAVI)
    )
  )
  (princ)
)

;;;/////////////////////////////////////////////////////////////////

(defun AVI_SAVI (/ MED)

  (if
    (not
      (setq MED (findfile MEDIA))
    )
    (alert (strcat "\nSorry - "MEDIA" Missing"))
    (startapp "C:/program files/windows media player/wmplayer.exe" MED)
  )
  (princ)
)

;;;/////////////////////////////////////////////////////////////////

 

AVI2.rar