Matersammichman 发表于 2006-10-26 17:39:04

vba中CAD的媒体播放器

它可以在vba工具中使用，所以有没有人尝试过编写代码使其正常工作
在ADT2005中，信息很少。
**** Hidden Message *****

mohnston 发表于 2006-10-26 20:21:28

你说的“可用”是什么意思
请记住，因为可以将工具（引用、控件等）添加到项目中，并不意味着这是一个好主意
有些东西不应该添加到VBA项目中，会破坏这些东西
此外，如果您要分发dvb项目，并且这些项目引用了目标计算机未安装和注册的工具，则您将遇到问题。

Keith™ 发表于 2006-10-26 21:52:56

我已经成功开发了一个程序，可以通过AutoCAD接口播放mp3、wav和midi文件。该计划被称为CadAMP，可以在这个论坛的其他地方找到。它尚未针对较新版本的AutoCAD进行更新，因此可能会出现一些问题。
在A2k和A2k2中，它将成功地连续播放多个文件，在A2k4中，它仅适用于单个文件(除非有人更新了它)
尝试了播放列表，但由于有太多不同的格式，我放弃了它。你可能知道，像这样的球员没有市场，这就是为什么我没有进一步修饰它。
顺便说一句，因为它使用独立于AutoCAD的API调用和VBA调用，所以只需少量调整，它也应该能够在Microstation中播放。

Matersammichman 发表于 2006-10-30 15:21:11

实际上，这是我想出来的——简单，容易，而且有效。Private Sub command button 1 _ Click()
Me。hide
Dim RetVal
RetVal = Shell(" C:\ Program Files \ Windows Media Player \ WM Player . exe "，1)" Shell to path
' ' '这将加载完整大小的WM。去掉"，1 "使负载最小化。
结束Sub

Keith™ 发表于 2006-10-30 15:37:07

使用CadAMP不需要使用任何媒体播放器。相反，在AutoCAD进程中创建了一个新线程，因此AutoCAD正在播放mp3文件。您对AutoCAD的媒体播放器的兴趣激发了我的兴趣，以便重新访问它。我现在已经纠正了A2k2 +中多个文件的问题。
我会上传最新的，包括工具栏和菜单，只要我有时间。

Matersammichman 发表于 2006-10-30 15:44:06

为什么不使用桌面上的快捷方式或工具栏链接呢？？为什么必须启动AutoCAD才能启动媒体播放器？
只是好奇...
作为补充说明...有人知道如何从快捷方式自动加载播放列表吗？？

Keith™ 发表于 2006-10-30 15:44:47

太棒了
现在，如果它只能播放M4a文件。。。

Keith™ 发表于 2006-10-30 18:25:58

来回答你的第一个问题。您不必启动AutoCAD来听mp3(即启动媒体播放器)，但是，由于这里的大多数人都使用AutoCAD或其他形式的支持VBA的设计软件，因此利用现有线程(即AutoCAD)来执行播放媒体文件所需的命令更有意义。不要困惑。CadAMP不是启动任何媒体播放器的手段，而是将AutoCAD(或Microstation、Excel、Word等)转变为媒体播放器，并且它使用有限数量的资源来实现这一点。更少的处理器时间，更少的内存需求等。因此，它更有效地利用计算机资源，对于那些不允许安装媒体播放器的人来说，它完全与AutoCAD合并，成为它的一部分。当您关闭AutoCAD时，播放器会停止。
现在...我不知道你需要做什么来加载一个快捷方式中的播放列表，我怀疑你需要编辑快捷方式来指向作为参数的播放列表。
页: [1]
查看完整版本: vba中CAD的媒体播放器