[原创] LISP 音乐播放器 V2.0 更新 打破CAD无声世界

xiaoliang200

nonsmall

谢谢你的指点

nonsmall

2.0版本已经更新

这回就像个音乐播放器了

不过要连续听的话需要新开个cad工作

它山之石

3. (defun playwav (wavfile / WAV)
4.   (vl-load-com)
5.   (if (and (findfile wavfile)
6.     (= (strcase (vl-filename-extension wavfile)) ".WAV")
7.     (setq WAV (vlax-create-object "Wscript.Shell"))
8.       )
9.     (progn
10.       (vlax-invoke
11. WAV
12. "run"
13. (strcat "sndrec32 /play /close "" " wavfile)
14. T
15.       )
16.       (vlax-release-object WAV)
17.     )
18.   )
19. )

(defun playwav (wavfile / WAV)   (vl-load-com)   (if (and (findfile wavfile)     (= (strcase (vl-filename-extension wavfile)) ".WAV")     (setq WAV (vlax-create-object "Wscript.Shell"))       )     (progn       (vlax-invoke WAV "run" (strcat "sndrec32 /play /close "" " wavfile) T       )       (vlax-release-object WAV)     )   ) )

nonsmall

不错

播放器1.0版本确实用过这句

(if (findfile (setq file "C:\\WINDOWS\\Media\\Windows XP 启动.wav"))
    (vlax-invoke ob 'run (strcat "sndrec32 /play /close " file) 0)
)

caoyin

顶一下，后台播放是有难度的

xiaoliang200

为什么

(vlax-invoke
  WAV
  "run"
  (strcat "Storm.exe /play /close \"\" " wavfile)
  t       )会发生意外错误

zctao1966

呵呵，谢谢分享！

simon21

顶一个

carrot1983

16335181发表于2008-12-2 14:59:00我没有音箱  没有耳机   也帮我创造个有声世界吧  水个沙发  奈何公司是无声世界  下下来看看  支持

好像也可以用主板的嘀嘀来叫。。。

我冲

好像很神奇的，顶！