[编程交流] 在cad中播放mp3

;;;xshrimp 2010.8.16
(defun gps->wmplayer (filename / w)
 (vl-load-com)    
 (if (findfile filename)
    (progn
      (setq #wmplayer# (cond (#wmplayer#)((vlax-create-object "wmplayer.ocx"))))
      (vlax-put-property #wmplayer# 'URL filename)
    )
 )  
)
;;;播放,暂停,停止等.
(defun gps->wmplayercontrols (cont)
 (vlax-invoke-method  
 (vlax-get-property #wmplayer# 'controls) 
 cont
 )
) 
;;;声音控制.
;;;volume 取值0-100 
(defun gps->wmplayervolume (volume)
 (vlax-put-property 
   (vlax-get-property #wmplayer# 'settings) 
   'volume
   volume
 ) 
)

 
（gps->wmplayer“D:\\mp3\\09.mp3”）
（gps->WMPlayerControl的暂停）；暂停
（gps->WMPlayerControl的播放）；播放
（gps->WMPlayerControl的停止）；停止
（gps->wmplayervolume 50）；控制音量
;;;（vlax释放对象#wmplayer#）
 
 
（gps->wmplayer“D:\\123.m3u”）；播放列表
 
#EXTM3U
d： \mp3\06。mp3
d： \mp3\09。mp3
d： \mp3\19。mp3