[分享][原创]趣味开发的东西[支持创建列表]8.21更新

aicr317

根据明经提供的源码（感谢xshrimp），改编了一个趣味开发，给CAD加了一个支持后台播放的控制器，如图！

 

可自动创建播放列表，并播放！

 

使用方法：

1点击“创建播放列表”，选择MP3所在文件夹！
2再点击“播放列表”即可按列表顺序自动播放，要编辑播放列表请点击“编辑播放列表”！

 

 

 

mccad

用winRAR分卷压缩，即可上传

aicr317

此文件加载后，会在C盘根目录创建：MP3文件；菜单MNU文件；DLL文件。并自动添加C:\为支持文件搜索路径！！！

 

 

hao3ren

这个有点意思了，只不过得先在C盘下运行下，在cad中才可以正确播放，你是怎么把歌曲和dll文件打包进去的编译成fas文件的呢？

xzqk132

我也想知道原理！

display18

楼主厉害啊，有意思

aicr317

hao3ren发表于2010-8-20 14:10:00这个有点意思了，只不过得先在C盘下运行下，在cad中才可以正确播放，你是怎么把歌曲和dll文件打包进去的编译成fas文件的呢？

 

其实不是说在C盘下运行，只是说加载后，把所需文件释放到C盘的一个过程！

liuyj

穿上来的文件好像没有创建列表的功能，老是一首歌在哪里放啊放

aicr317

liuyj发表于2010-8-21 10:55:00穿上来的文件好像没有创建列表的功能，老是一首歌在哪里放啊放

1楼已更新！！！

zxdcad

网上代码，在CAD里可以听音乐：

 

;;;播放音乐
(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
  )
)