在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
页:
[1]