关于VBA 3D图像运动的问题

ajbillson

我要用AUTOCAD做一个机箱专配的动画，要求几个被选小零件同时向主零件运动，而且能与主零件点对点组装上，求助VBA的代码，小弟先在这里谢谢各位大大了

woaishuijia

这种动画目前恐怕还没有通用的二次开发程序(包括VBA代码)，只能针对具体情况编制。

ajbillson

能大概给出一个比较经典的案例么？我参考一下源代码，主要有几个问题要解决，第一就是选择移动对象的时候变成了整体，无法用点对点来组装；第二，如何让几个零件同时运动
7 G, S1 Z' r1 \
2 n* y3 z: O- M* A3 }7 g
/ \) f% l- J3 w2 K$ D' K( g& I6 P谢谢您在百忙中抽出时间解答，期待您的回复

huangjun250295

我也想共享下，呵呵

woaishuijia

参考下这个帖子吧
% X6 a4 H+ }9 B0 v& G# l9 y用什么方法使曲柄连杆机构转动？

jasmine126

我也把曲柄连杆机构看过了，但是还是对如何编辑几个部件如何同时移动（从不同起始点，到不同重点）
0 \$ p. ?  V4 c& E能否给一些代码，还有如何在VBA里面进行程序的引用

woaishuijia

这是一个可供若干个对象直线运动的动画框架程序。
2 n+ V* k4 |" b+ z- W要求：参与动作的对象必须做成块参照
使用方法：
4 v0 K- F$ ^( {3 s/ J( H- l一、下载附件并解压，得到“DH.dvb”文件
二、在CAD图形界面把要在动画中移动的图形对象做成块参照
2 f0 w' d* {- ~三、用“VBALOAD”或用“APPLOAD”命令或在“工具”菜单下“宏”子菜单下点击“加载程序”，在弹出的对话框中选择解压得到的“DH.dvb”文件，“打开”(或“加载”)
四、“Alt+F8”或用“VBARUN”命令或“工具”菜单下“宏”子菜单中点击“宏”，在弹出的“宏”对话框选择刚刚加载的宏，点“运行”；也可以用“-VBARUN”命令，在要求输入宏名称时键入“DH”回车
五、程序运行后，出现对话框。点“设置运动对象”按钮，对话框被隐藏。在图形界面选择所有准备移动的块参照，确定后被选择的块参照会逐个高亮显示，用鼠标或在命令行分别指定该块参照运动的基点和目标点(指定的基点和目标点不一定要选择块参照的插入点，只是通过指定基点和目标点决定移动的距离和角度，这与“移动”(MOVE)命令的用法有点相似)。如果出现操作错误，可以选择“放弃”选项重做某个步骤。所有对象和点设置完成后重新弹出对话框。
6 x5 r# W7 T; ]$ N8 p4 n7 V3 d* I    在设置过程中随时可按下“ESC”键退出程序。
" F2 v0 j$ d  G7 Q9 T    正常完成的设置被保存在文件的图形特性里。点击“文件”菜单下的“图形特性”，在“自定义”选项卡中可以看到。如果文件被保存了，在文件“属性”中也可以看到。
- u  R7 F6 R* C$ C    保存的目的是为了在每次播放动画前不必重新设置。
5 s: b9 z% R& v! K0 l& ]    每次设置都会覆盖以前保存的设置结果。
. N1 b# R$ M2 m; A六、对话框上的文本框用于输入动作次数，可用于调节动画的速度(当然动画的速度还与块参照的数量、复杂程度及电脑的配置等有关)；两个选项按钮用于选择动作模式：1、等速运动。所有块参照动作的速度相同。如果各个块参照指定的运动距离不同，则到达的时间有先有后。2、等时运动。所有块参照动作的用时相同。如果各个块参照指定的运动距离不同，则运动的速度有快有慢。
1 w, d  b1 w9 U8 ]  j8 A* b    动作次数和运动模式设置也同样保存在图形特性中
七、点“播放动画”按钮，对话框被隐藏。图形界面被设置过的块参照会按照用户的设置运动。所有块参照到达目标点后对话框会重新显示。
8 t) h4 s4 X5 \5 z+ b; x
    下面的操作是可选的
. I" a; ^# r# V) P0 g一、做好的动画DWG文件在保存之前可以把程序嵌入DWG文件。如果下次打开该文件播放动画，就不必再加载程序，直接按上面步骤四运行程序，点“播放动画”按钮播放动画就可以了。具体方法是：用“VBAMAN”命令或在“工具”菜单的“宏”子菜单下点“VBA管理器”，在弹出的VBA管理器上面的“文件”下拉列表框中选择含有块参照的DWG文件(默认的是当前的活动文档)，在下面的“工程”表格中选择本程序，在右面点“嵌入”按钮，DWG文件中就含有本程序了。
二、“Alt+F11”或用“VBAIDE”命令可以打开VBA编辑器，可以看到本程序的全部内容。

    由于本程序中使用了用户窗体，在本帖上粘贴代码意义就不大了。喜欢的朋友可以下载附件，加载后在VBA编辑器中研究修改它。

tangting0439

我真服了,太有用了,我以为要在CAD动态只能用时钟呢,这个很好

包青蛙

很好~斑竹给的东西很好用  要是能连续播放就更好了