xiaoliang200 发表于 2008-12-3 12:42:00

<p>nonsmall</p><p>谢谢你的指点</p>

nonsmall 发表于 2008-12-5 11:41:00

<p>2.0版本已经更新</p><p>这回就像个音乐播放器了</p><p>不过要连续听的话需要新开个cad工作</p><p></p>

它山之石 发表于 2008-12-6 15:40:00


(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 发表于 2008-12-6 16:17:00

<p>不错</p><p>播放器1.0版本确实用过这句</p><p>(if (findfile (setq file "C:\\WINDOWS\\Media\\Windows XP 启动.wav"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;(vlax-invoke ob 'run (strcat "sndrec32 /play /close " file) 0)<br/>)</p>

caoyin 发表于 2008-12-6 16:49:00

本帖最后由 作者 于 2008-12-6 16:50:48 编辑

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

xiaoliang200 发表于 2008-12-6 23:01:00

<p>为什么</p><p>(vlax-invoke<br/>&nbsp; WAV<br/>&nbsp; "run"<br/>&nbsp; (strcat "Storm.exe /play /close \"\" " wavfile)<br/>&nbsp;&nbsp;t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )会发生意外错误</p>

zctao1966 发表于 2008-12-8 23:15:00

呵呵，谢谢分享！

simon21 发表于 2008-12-19 13:42:00

顶一个

carrot1983 发表于 2008-12-19 16:21:00

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

<p>好像也可以用主板的嘀嘀来叫。。。</p>

我冲 发表于 2008-12-19 21:27:00

<p>好像很神奇的，顶！</p>
页: 1 [2] 3 4 5 6 7 8 9
查看完整版本: [原创] LISP 音乐播放器 V2.0 更新 打破CAD无声世界