用什么方法使曲柄连杆机构转动？

mimimao383 · 发表于 2008-9-7 12:18:05

此时滑块的运动方向是X方向，见笑了。我将细品22#教诲。

woaishuijia · 发表于 2008-9-7 15:44:41

用vbaman命令或者在工具菜单下打开VBA管理器，其中的“工程”列表框中就有你的宏，选择它使其高亮，再点右面一排按钮中的“嵌入”，程序就和文件“绑”到一起了。

mimimao383 · 发表于 2008-9-8 01:31:11

加载完，不知道能否运行。

woaishuijia · 发表于 2008-9-8 06:43:41

你的文件中没有嵌入程序。
根据你这个帖子的图形，我把你在24楼帖的程序稍做修改嵌入进去了，你看一下，和你的是否有区别。见附件1。

加载了VBA程序的曲柄连杆机构[1].dwg (97.08 KB, 下载次数: 44)

mimimao383 · 发表于 2008-9-8 09:02:27

本帖最后由 woaishuijia 于 2012-3-30 20:14 编辑

是两种赋值方法，还是存在优劣？

For Each Obj In SS
, x y- E- N7 s, j9 S1 y( o) F
' Obj.Delete! f- N7 N6 q: p, J* G q
Select Case Obj.Name '用多重条件语句select case挑选被选中的块参照并赋值+ m0 L% B3 F9 R: N- x8 k
Case Is = "l" '如果块参照的名字是l; y7 l% I2 P# P# Q4 v
Set Bl = Obj '把该块参照赋值给Bl
& z+ ]% Y0 _5 z3 D" G3 ^) X3 S
Case Is = "m" '如果该块参照的名字是m# E7 r5 \* I Y" ^3 F, x
Set Bm = Obj '把该块参照赋值给Bm& L0 q- o4 s% A
Case Is = "n" '如果该块参照的名字是n+ M1 d2 ~1 M4 P- m9 T1 Z
Set Bn = Obj '把该块参照赋值给Bn/ l9 ~8 A% \! a" S9 E; `
End Select '结束select case语句2 i5 c1 u2 }' c/ Q$ W7 P0 F& o
Next
( s: }- l A% C% }4 p) B5 U0 v1 @- @
SS.Delete' I6 S9 v0 N" G" O
' .SendCommand "ucs w "
: a9 r3 u) P% Z- h- k% T/ R6 P. W
' Set Bl = .ModelSpace.InsertBlock(P1, "L", 1, 1, 1, 0)
9 L+ w; G% `' G6 \6 {9 W
' P1(2) = 50
6 y8 m1 L1 A; h1 d8 i; b
' Set Bm = .ModelSpace.InsertBlock(P1, "M", 1, 1, 1, 0)
7 [% g" f8 |" z* y; |
' Set Bn = .ModelSpace.InsertBlock(P2, "N", 1, 1, 1, 0)

复制代码

mimimao383 · 发表于 2008-9-8 09:10:48

我又加载了一次，试一试。

在滑块上加两个沿Z轴运动的圆柱，但我在帮助中搜索，没有找到相关命令。
这应该是一个牵连运动，是否应该加子程序呢？

[ 本帖最后由 mimimao383 于 2008-9-8 09:40 编辑 ]

mimimao383 · 发表于 2008-9-8 09:31:17

可能还是没有加载上

mimimao383 · 发表于 2008-9-8 09:38:13

滑块上面的孔，就是期望沿Z轴的运动体位置。它应该是P2（1）的函数还是应该是Ag的函数，实在弄不清楚。

[ 本帖最后由 mimimao383 于 2008-9-8 09:44 编辑 ]

muhdi · 发表于 2008-9-8 10:11:38

SOLIDWORK&UG&PROE&INVENTOR&CATIA都可以吧

woaishuijia · 发表于 2008-9-8 11:17:09

你在27楼上传的文件没有嵌入VBA工程
30楼的文件嵌有VBA工程（有声明的模块级变量），但没有宏（就是没有sub...end sub过程），应该是你误删除了。
子程序的用途是在需要重复使用某一段代码时，把这段代码写成子程序由其它程序反复调用（也可以自己调用自己，这在编程上叫做递归调用），以减少编程工作量，同时也减少错误的发生。就这个程序而言，用子程序的意义似乎不大。
我不知道你的圆柱体的运动规律具体与什么有关，但从你的问题分析应该也与主动轮的转动角度(Ag)及滑块的位置(P2)有关，而P2(0)又是Ag的函数，所以，具体是用Ag做自变量还是是P2(0)做自变量计算圆柱的位置只取决于用哪个更方便。就是一个数学关系式，怎么算简单就怎么算。
比如在你的程序中
P1(0) = 200# * Cos(Ag)
P1(1) = 200# * Sin(Ag)
P2(0) = P1(0) + Sqr(500# ^ 2 - P1(1) ^ 2)
其实P2(0)也是Ag的函数，但我们并没有写成P2(0) = 200# * Cos(Ag) + Sqr(500# ^ 2 - (200# * Sin(Ag)) ^ 2)

woaishuijia · 发表于 2008-9-8 13:23:38

还有两种赋值方法的问题。
第一方法用来对新添加的图元赋值，第二种方法是对现有的图元赋值。并没有明确的优劣之分，看在什么情况下使用。
这两种都是直接用赋值语句，还有一种方法是利用过程或函数的参数传递。比如用鼠标在屏幕上选择一个对象并对其赋值：
Dim Obj as acadEntity,P as Variant
ThisDrawing.Utility.GetEntity Obj,P
运行上述代码后屏幕上十字光标会变成拾取框，等待使用者选择一个对象。选择后变量Obj就被赋值为被选择的对象，变量P就是拾取点的坐标数组

mimimao383 · 发表于 2008-9-9 09:09:20

能否给我指点一本VBA的教材，我应该系统的去努力了。
网上的一个练习：
“选择一个要移动的对象，然后定位起点和终点，程序会慢慢地把对象移动。
移动方法：object.move 起点坐标,端点坐标
Sub testmove()
Dim p0 As Variant'起点坐标，po p1 pc pe movx movy getobj都是变量命。
Dim p1 As Variant'终点坐标Variant是数据类型，最普通的一种。
Dim pc As Variant'移动时起点坐标
Dim pe As Variant'移动时终点坐标
Dim movx As Variant'x轴增量
Dim movy As Variant'y轴增量
Dim getobj As Object'移动对象
Dim movtimes As Integer '移动次数不知道integer 是整数变量？不能用Variant型吗？
ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"“获得实体，怎么是这么复杂的语句”，还是不知道从哪获得实体。
p0 = ThisDrawing.Utility.GetPoint(, "起点:")
p1 = ThisDrawing.Utility.GetPoint(p0, "终点:")
pe = p0
pc = p0
motimes = 3000‘运动次数？
movx = (p1(0) - p0(0)) / motimes‘X方向每次的运动量？
movy = (p1(1) - p0(1)) / motimes‘Y方向，motimes的数值决定速度？
For i = 1 To motimes
pe(0) = pc(0) + movx
pe(1) = pc(1) + movy
getobj.Move pc, pe'移动一段
getobj.Update'更新对象运动结束不再返回？
Next
End Sub
结束”

[ 本帖最后由 mimimao383 于 2008-9-9 09:11 编辑 ]

mimimao383 · 发表于 2008-9-9 09:22:14

如果运行这段代码，则指出变量未定义，这是为什么呢？
Sub testmove()
Dim p0 As Variant    '起点坐标
Dim p1 As Variant    '终点坐标
Dim pc As Variant    '移动时起点坐标
Dim pe As Variant    '移动时终点坐标
Dim movx As Variant    'x轴增量
Dim movy As Variant    'y轴增量
Dim getobj As Object '移动对象
Dim movtimes As Integer '移动次数
ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"
p0 = ThisDrawing.Utility.GetPoint(, "起点:")
p1 = ThisDrawing.Utility.GetPoint(p0, "终点:")
pe = p0
pc = p0
motimes = 3000
movx = (p1(0) - p0(0)) / motimes
movy = (p1(1) - p0(1)) / motimes
For i = 1 To motimes
  pe(0) = pc(0) + movx
  pe(1) = pc(1) + movy
  getobj.Move pc, pe '移动一段
  getobj.Update       '更新对象
Next
End Sub

[ 本帖最后由 mimimao383 于 2008-9-9 09:23 编辑 ]

woaishuijia · 发表于 2008-9-9 13:08:59

Dim movtimes As Integer '移动次数不知道integer 是整数变量？不能用Variant型吗？
Variant型是变体变量，是能够根据首次使用自动适应数据类型的，在这里使用完全可以。不支持使用的理由是影响运行速度，支持的理由是这个小程序没关系。
ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"“获得实体，怎么是这么复杂的语句”，还是不知道从哪获得实体。
我在35楼恰巧提到了这个方法，不同之处在于我的帖子里省略了它的第三个参数－－命令行提示。对照我35楼的文字说明看看。
movx = (p1(0) - p0(0)) / motimes‘X方向每次的运动量？
是的。
movy = (p1(1) - p0(1)) / motimes‘Y方向，motimes的数值决定速度？
严格说motimes是移动的次数而不管P0和P1之间的距离有多远。是它们共同决定了运动速度。
getobj.Update'更新对象运动结束不再返回？
这下面还有个Next，它和前面的For i = 1 To motimes构成了固定循环次数的循环语句。这个语句的完整格式是
For 循环变量=初始值 To 结束值 Step 步长
在循环中执行的代码
Next 循环变量
其中，步长可以是正数和负数，不能是0。程序首次运行到循环语句时，循环变量=初始值，运行完中间的代码来到Next 这一行，循环变量=循环变量+步长，然后检查循环变量是否大于结束值（如果步长为正。若步长为负，就看是否小于结束值），如果不是，返回重新执行中间的代码；如果是，不再返回，转向执行后面的语句。
这个循环语句中，Next这一行的循环变量可以省略；如果步长为1，For那一行的“Step 步长”也可以省略。
For i = 1 To motimes
Next
这段代码要执行3000次，首次进入时i=1，到Next这一行时i变成2，小于motimes（3000），回去重新执行中间的代码，再来到Next这一行时i变成3，还是小于motimes，再回去......直到第3000次来到Next这一行，i变成3001，大于motimes，不再返回，向下执行End Sub

回复 37# 的帖子
ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"
这句中的po没有声明
Dim movtimes As Integer '移动次数
这句声明的movtimes变量在后面代码中成了motimes，少了个v
For i = 1 To motimes
For...Next循环语句的循环变量i没有声明

woaishuijia · 发表于 2008-9-9 13:31:31

对于初学CAD的VBA的朋友来说，目前较好的入门教材主要有Autocad VBA初级教程，Autocad vbA 初级教程(13) 块操作，AutoCAD VBA从入门到精通，AutoCADVBA开发精彩实例教程+源代码。特别是Autocad VBA初级教程是网上目前最热的入门教材。可以从这里起步，基本入门后再去找些VB的书（比如《中文VisualBasic 6.0傻瓜书》、《vb6.0开发宝典》等）看，结合学习CAD帮助文件中的《ActiveX 和 VBA 开发人员手册》，加宽、加深知识面。
主要的工具手册一个是Visual Basic 语言参考-函数速查，再一个就是CAD帮助文件的《ActiveX and VBA Reference》。后者是英文版。网上有一个翻译成中文的版本，但人家说明不让传播，我也就不好意思往三维网上传。如果你需要，我可以单独给你。
还有一个学习CAD的VBA的非常好的工具，一个高手编的“宏记录器”，适合2004（或2005）以前版本，可以自动把画图过程记录为VBA代码，就像在Word和Excel软件中录制宏一样。我在本版块上传过，在一个别人的求助帖里，我现在找不到了，我时间有限，你可以先自己找找看。
最后一本书是成为高手的必经之路，《windows32API函数大全》

[ 本帖最后由 woaishuijia 于 2008-9-9 14:02 编辑 ]

mimimao383 · 发表于 2008-9-10 09:30:23

我先去买相关的VB6.0傻瓜书，入门的，基础的是现在所需要的。但每次买的计算机方面的书都沙漠的感觉，收获不多，前两天买了一本美国人编著的“AUTO CAD2007宝典” 108元，涉及到VBA的内容十分空泛，令人失望。
我上边拷的程序就出自“Autocad VBA初级教程”感觉它有些粗糙，我根据你上面指出的错误进行了修改，目前可以移动了，但感觉很别扭，肯定不是最佳。

mimimao383 · 发表于 2008-9-10 09:53:37

移动代码理解:
Sub testmove()
Dim po As AcadBlockReference '增加了块的定义
  Dim p As AcadBlockReference'相对于运动对象的块
Dim p0 As Variant    '起点坐标
Dim p1 As Variant    '终点坐标
Dim pc As Variant    '移动时起点坐标
Dim pe As Variant    '移动时终点坐标
Dim movx As Variant    'x轴增量
Dim movy As Variant    'y轴增量
Dim getobj As Object '移动对象
Dim movtimes As Integer '移动次数
Dim i As Integer
ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象" 不明白这里,为什么不能在这里直接选,期望直接选择PO,
p0 = ThisDrawing.Utility.GetPoint(, "起点:")       '起点和终点要人工选择,如何靠条件触发?
p1 = ThisDrawing.Utility.GetPoint(p0, "终点:")
pe = p0
pc = p0
movtimes = 100 改变数值,使运动通畅
movx = (p1(0) - p0(0)) / movtimes
movy = (p1(1) - p0(1)) / movtimes
For i = 1 To movtimes
  pe(0) = pc(0) + movx
  pe(1) = pc(1) + movy  '如果需Z轴移动,语句是否为  movz=(p1(2)-p0(2))/movtimes,    Pe(2)=Pc(2)+movy
  getobj.Move pc, pe '移动一段
  getobj.Update       '更新对象    '如果没有这一句,移动后将有拖影
Next
End Sub
我目前思索的问题,
1\移动的对象在语句中确定,我们就可以将这段程序移植到我们先前调节好的程序中
2\触发移动根据条件,不要人去干预.
3\起点和终点在程序中确定
4\我想返回的过程应该也可在这段程序中完成

woaishuijia · 发表于 2008-9-10 13:05:32

Dim po As AcadBlockReference '增加了块的定义
错了，后面使用的po是一个点而不是块参照。这里应该用dim po as variant

ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"
这行中，getobj是对象型变量，就是在屏幕上用鼠标选的对象，在楼上程序中是在第十行用dim getobj as object声明的；而po是一个点坐标变量，就是选择对象时鼠标所在的点，在原来的程序中没有声明，我们修改原来的程序，应该用dim po as variant。
有以前我们讨论的程序中，点坐标都是用dim po(2) as double声明的，而这次是用dim po as variant声明，这是因为以前我们在程序中都是从一开始就用常数或算式分别给点的三维坐标赋值，必须让电脑知道这是个有三个元素的数组。而这个程序中是在屏幕上用鼠标选点，要用变体变量，这是规定。还有，如果把一条直线的端点坐标赋值给一个变量，也是用变体变量。总之，只要是用CAD对象的方法、属性给点坐标变量赋值，就要用变体变量。变体变量的点坐标被赋值后，就自动变成数组，这时就可以用常数或算式分别给点的三维坐标赋值，就象用dim po(2) as double声明的一样。

dim ** as acadblocdreference 是声明一个块参照对象变量，dim ** as acadline 是声明一个直线对象变量，dim ** as acadlayer 是声明一个图层对象变量。。。。。。这些都是对象型变量，它们是有层级结构的。比如块参照和直线都是图元（也叫实体，但不一定是三维的），都是acadentity对象，也就是说，可以把一个准备用到的块参照变量这样声明：dim ** as acadentity，直线、圆、三维实体等图元（实体）对象变量都可以这样声明。图元对象和非图元对象（包括图层、颜色、线型以及CAD文档等）都是object对象。object是对象的总称，任何对象型变量都可以声明为object，这个程序中，作者就是把下一步准备移动的图元对象变量声明为object。
如果你能够确定下步要用到的变量具体是什么类型，还是用具体的类型声明为好。你可以在VBA编辑器中试一下，如果你是用dim ** as acadblocdreference 声明的变量，在编写代码时输入“**.”，界面上就会弹出下拉列表，提示块参照对象可供选择的属性和方法。如果你是用dim ** as acadentity声明，就提示图元对象共有的属性和方法，而用dim ** as object声明，就没有提示，因为电脑只知道它是个对象，而不知道具体是什么对象，都有哪些可用的方法、属性。
在这个程序中，合理的对象变量声明应该是dim getobj as acadentity，而不是Dim getobj As Object ，你总不至于试图用鼠标选择并移动一个颜色吧？呵呵。

ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"
这个方法是用鼠标选择一个对象。它的赋值方法和你刚刚学到的用赋值语句赋值不一样。这个方法叫参数传递。其中有三个参数，第一个是准备赋值的对象型变量，第二个是选择对象时鼠标左键按下时的点坐标变量，第三个是命令行提示字符串（可有可无的）。当程序运行到这一行的时候，程序会停下来等待用户选择对象，选择后会同时给两个变量赋值，把被选择的对象赋值给对象型变量，把点坐标变体型变量变成含有三个元素的数组，并把鼠标位置赋值给数组。

到目前为止，我们共讨论了三种选择运动对象的方法：第一种是删除图元，重新插入块参照并顺便给变量赋值；第二种是用选择集选择现有图元，再根据被选择对象不同的特点（包括使用过滤器使选择时只选择块参照对象和根据块名称的不同区分块参照）分别向不同的变量赋值；第三种就是这种，在屏幕上选择单个对象并向变量赋值。还有其它方法，就是第二种方法的变种。在前面的讨论中，我们向选择集添加对象用的是“全选”，其实也可以用鼠标或不用鼠标在屏幕上选择部分对象，这涉及到选择集对象的多种选择方法，以后你会逐渐遇到并掌握。

p0 = ThisDrawing.Utility.GetPoint(, "起点:" )       '起点和终点要人工选择,如何靠条件触发?
这是由用户在屏幕上指定点的方法。向点坐标变量赋值不一定要由用户在屏幕上选，我们前几天的讨论就没用这种方法而是分别用常数或算式向坐标数组赋值，还有我在这个帖子前面提到的，用图元特定的点向点坐标赋值。具体用什么方法根据需要而定。

Dim p As AcadBlockReference'相对于运动对象的块
这一行不知道你要做什么用，后面的程序中也没有用到p变量。

其它你对原来程序的修改都是对的，包括沿Z轴移动的方法。

这段程序和我们以前讨论的不同的是，它用了for i=1 to movtimes......next循环。这是一个固定循环次数的循环语句。而我们以前用的是do......loop循环语句，如果不按下esc键就会无休止地运动下去。

以前的程序完全可以改成用for......next语句

for ag=0 to 总转动角度 step 每循环一次转动的角度
P1(0) = 200# * Cos(Ag)
P1(1) = 200# * Sin(Ag)
P2(0) = P1(0) + Sqr(500# ^ 2 - P1(1) ^ 2)
Bl.Rotation = Ag
Bm.InsertionPoint = P1
Bm.Rotation = .Utility.AngleFromXAxis(P1, P2)
Bn.InsertionPoint = P2
Bl.Update
Bm.Update
Bn.Update
If GetAsyncKeyState(27) = -32767 Then Exit for
DoEvents
next

这样这个运动部分就成了指定循环次数、转动总角度后会自动停止的循环形式。每循环一次，角度ag增加一个步长，直到ag等于总角度。在这段程序中，检测esc键的API函数和DoEvents可有可无了，反正它运动一段时间后自己会停下来。

如果不想让它自己停止，也可以把两种循环一起用

do
for ag=0 to 总转动角度 step 每循环一次转动的角度
      P1(0) = 200# * Cos(Ag)
      P1(1) = 200# * Sin(Ag)
      P2(0) = P1(0) + Sqr(500# ^ 2 - P1(1) ^ 2)
      Bl.Rotation = Ag
      Bm.InsertionPoint = P1
      Bm.Rotation = .Utility.AngleFromXAxis(P1, P2)
      Bn.InsertionPoint = P2
      Bl.Update
      Bm.Update
      Bn.Update
      If GetAsyncKeyState(27) = -32767 Then Exit do
      DoEvents
next
loop

进入do循环后又进入for循环，for循环执行指定的次数后出来还是在do循环里面，回去再重新for循环。。。。。。直到esc键被按下，直接退出两层循环。

mimimao383 · 发表于 2008-9-14 10:08:05

我在考虑滑块上的圆柱体的Z轴方向运动，但不得要领。圆柱体现在跟随滑快运动，期望在弧度等于2时，圆柱体开始向上运动200，怎样设计语句一筹莫展，大师有时间时请指点。下图显示圆柱体的位置，两个圆柱体是一个块。

mimimao383 · 发表于 2008-9-14 10:28:34

这是修改后的程序，我已经找到“函数速查”手册，但是我对函数的理解总是和在程序使用的情况出入很大，弄来弄去头都大了。

Option Explicit

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim V As Double, Ag As Double
Sub qubingliangan()
Dim SS As AcadSelectionSet, Obj As Object
Dim Bl As AcadBlockReference, Bm As AcadBlockReference, Bn As AcadBlockReference, Bo As AcadBlockReference
Dim P1(2) As Double, P2(2) As Double, P3(2) As Double
Dim P4(2) As Double'滑块上圆柱体的终点坐标
Dim Bq As AcadBlockReference'滑块上的圆柱体块参照
Dim movtimes As Integer'滑块上圆柱体的移动次数
Dim movz As Variant'在Z轴方向上移动
Dim i As Double'声明变量
V = 20'暂时关掉速度选择
'If V < 1# Then V = 10#
'V = Val(InputBox("输入速度1~100", "autoCAD", V))
'If V > 100# Then V = 100#
'If V < 1# Then V = 1#
With ThisDrawing
Set SS = .SelectionSets.Add("SS")
SS.Select acSelectionSetAll
For Each Obj In SS
Obj.Delete
Next
SS.Delete
'.SendCommand "ucs w "
Set Bl = .ModelSpace.InsertBlock(P1, "L", 1, 1, 1, 0)
' P2(0) = 100
Set Bm = .ModelSpace.InsertBlock(P1, "M", 1, 1, 1, 0)
Set Bn = .ModelSpace.InsertBlock(P2, "N", 1, 1, 1, 0)
P1(0) = 200
Set Bo = .ModelSpace.InsertBlock(P1, "O", 1, 1, 1, 0)
P3(0) = 1000'滑块上圆柱体的初始相对坐标
Set Bq = .ModelSpace.InsertBlock(P3, "q", 1, 1, 1, 0)
'P3(2) = 0
P4(2) = 200'圆柱体的终点坐标
Do
P1(0) = 200# * Cos(Ag)
P1(1) = 200# * Sin(Ag)
P2(0) = P1(0) + Sqr(500# ^ 2 - P1(1) ^ 2)
Bl.Rotation = Ag
Bm.InsertionPoint = P1
Bm.Rotation = .Utility.AngleFromXAxis(P1, P2)
Bn.InsertionPoint = P2
P3(0) = P2(0) + 300

Bq.InsertionPoint = P3
P2(2)=200'圆柱体的高度坐标
If Ag = 2 Then'期望在AG等于2时触发圆柱体运动,这个语句问题很大
'For i = 1 To movtimes'循环
movtimes = 100'通过100次运动结束
movz = (P4(2) - P3(2)) / movtimes'每次平均位移
P4(2) = P3(2) + movz
Next
（这一段应该怎么考虑：不知道如何下手，不知道用什么语句，不知道该将其插到什么地方。
Bl.Update
Bm.Update
Bn.Update
Bq.Update
If GetAsyncKeyState(27) = -32767 Then Exit Do
DoEvents
Ag = ((Ag * 500# / V + 1#) Mod Int(3.14159265358979 * 1000# / V)) / 500# * V
                                 '为什么选择500这些参数,mod和前面的运算关系如何?

  Loop
   End with
   end sub

woaishuijia · 发表于 2008-9-15 12:41:05

Option Explicit

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim V As Double, Ag As Double

Sub qubingliangan()
Dim SS As AcadSelectionSet, Obj As Object
Dim Bl As AcadBlockReference, Bm As AcadBlockReference, Bn As AcadBlockReference, Bo As AcadBlockReference
Dim P1(2) As Double, P2(2) As Double, P3(2) As Double
Dim Bq As AcadBlockReference '滑块上的圆柱体块参照
Dim P4(2) As Double '滑块上圆柱体的终点坐标
Dim deltaV As Double '每次循环Ag的增量
Dim V2 As Double '圆柱体相对于主动轮转速的垂直运动速度，即Ag每增加或减少1弧度时圆柱体的运动距离
Dim deltaV2 '每次循环圆柱体Z轴增量

'If V < 1# Then V = 10#
'V = Val(InputBox("输入速度1~100", "autoCAD", V))
'If V > 100# Then V = 100#
'If V < 1# Then V = 1#
V = 10 '暂时关掉速度选择
deltaV = 3.14159265358979 * 2 / 1000 * V '每次循环主动轮转动圆周的1/1000*V
V2 = 200
deltaV2 = deltaV * V2
P4(2) = 200 '圆柱体的终点坐标

With ThisDrawing
      Set SS = .SelectionSets.Add("SS" )
      SS.Select acSelectionSetAll
      For Each Obj In SS
         Obj.Delete
      Next
      SS.Delete

      '.SendCommand "ucs w "
      Set Bl = .ModelSpace.InsertBlock(P1, "L", 1, 1, 1, 0)
      Set Bm = .ModelSpace.InsertBlock(P1, "M", 1, 1, 1, 0)
      Set Bn = .ModelSpace.InsertBlock(P2, "N", 1, 1, 1, 0)
      P1(0) = 200
      Set Bo = .ModelSpace.InsertBlock(P1, "O", 1, 1, 1, 0)
      P3(0) = 1000 '滑块上圆柱体的初始相对坐标
      Set Bq = .ModelSpace.InsertBlock(P3, "q", 1, 1, 1, 0)

      Do
         P1(0) = 200# * Cos(Ag)
         P1(1) = 200# * Sin(Ag)
         P2(0) = P1(0) + Sqr(500# ^ 2 - P1(1) ^ 2)
         P3(0) = P2(0) + 300
         If Ag >= 2 And Ag < 4 Then
            If P3(2) < P4(2) Then
                  P3(2) = P3(2) + deltaV2
            Else
                  P3(2) = P4(2)
            End If
         Else
            If P3(2) > 0 Then
                  P3(2) = P3(2) - deltaV2
            Else
                  P3(2) = 0
            End If
         End If
         Bl.Rotation = Ag
         Bm.InsertionPoint = P1
         Bm.Rotation = .Utility.AngleFromXAxis(P1, P2)
         Bn.InsertionPoint = P2
         Bq.InsertionPoint = P3
         Bl.Update
         Bm.Update
         Bn.Update
         Bq.Update
         DoEvents
'          Ag = ((Ag * 500# / V + 1#) Mod Int(3.14159265358979 * 1000# / V)) / 500# * V
'                                     为什么选择500这些参数,mod和前面的运算关系如何?
'这个式子看起来复杂，其实核心就是Ag=Ag+增量，就是每次循环让Ag增加一点点。
'但这个式子有个问题，就是如果用户不停止，Ag将无限制地增大，这可能造成数据溢出（尽管对于本程序恐怕直到地球毁灭也不会溢出，但不能那样编程）
'于是我要限制Ag在0到2π范围内变化
'方法通常有两种：一是取余运算，二是条件判断。先说取余运算Mod
'取余运算是整数运算，前面是被除数，后面是除数，结果是余数，都是整数
'取余运算的优先级高于加、减、乘、除、乘方，被除数和除数要用括号括起来
'现在我们尝试用取余运算来限制Ag的大小: Ag = (Ag + 增量) Mod (3.14159265358979 * 2)
'这个式子在计算的时候，除数将被化为整数，也就是6；被除数也将被化为整数，由于首次进入循环时Ag=0，而增量肯定会小于0.5
'所以被除数会被化为0，结果余数是0。无论循环多少次，Ag永远等于0。失败。
'假设增量为0.01，我们把除数和被除数都乘以100，式子变成：Ag = ((Ag + 0.01)*100) Mod (3.14159265358979 * 2*100)
'化简一下: Ag = (Ag * 100 + 1) Mod (3.14159265358979 * 2 * 100)
'运算时除数会化为整数628，首次循环时被除数化为整数1，余数为1，下一次为2，以此类推，直到627，再下一次归0
'我们把除数、被除数都乘以100，实际上是把余数乘100了，所以还要被100除一下才是我们要的在0到2π范围内变化的Ag
'式子变成Ag = ((Ag * 100 + 1) Mod (3.14159265358979 * 2 * 100)) / 100
'进入循环时Ag=0，首次循环后Ag=0.01，下一次为0.02，以此类推，直到6.27，再下一次归0
'这个式子是针对增量为0.01的，当增量不是0.01时我们可以扩展一下
'Ag = ((Ag / 增量 + 1) Mod (3.14159265358979 * 2 / 增量)) * 增量
'我不打算让使用者在输入框中输入一个小数来决定角度增量，因为输入正整数形式的速度会让人更舒服
'把使用者输入的速度化为小数增量的工作由我在程序中完成: 增量 = 速度 / 常数
'于是式子变成了: Ag = ((Ag / (速度 / 常数) + 1) Mod (3.14159265358979 * 2 / (速度 / 常数))) * (速度 / 常数)
'在程序调试中认为常数=500比较合适，所以式子最终变成了
'Ag = ((Ag * 500# / V + 1#) Mod Int(3.14159265358979 * 1000# / V)) / 500# * V

'第二个方法是条件判断，下面的两行代码就是
         Ag = Ag + deltaV
         If Ag > 3.14159265358979 * 2 Then Ag = 0 '当Ag>2π时归0
      Loop Until GetAsyncKeyState(27) = -32767
End With
End Sub

mimimao383 · 发表于 2008-9-15 15:54:35

1、关于 Ag = ((Ag * 500# / V + 1#) Mod Int(3.14159265358979 * 1000# / V)) / 500# * V
您讲的很清楚。通过观察Ag的增量为0.02，在（0，2π）之间循环。为了构成这样一种运动，需要做的工作太有创造性了，也太复杂了。
2、随着Ag的不断增大，最终使得除数和被除数相等，余数等于零，则Ag等于零，循环重新开始。这里的方法太巧妙。
3、为什么对其Int(3.14159265358979 * 1000# / V)，又为什么PI的小数位这么多？
4、在VBA中有没有这样的语句或命令，它可以直接使某物体旋转，呵呵。
5、如果最初你给定的程序是Ag=Ag+0.02，也可能完成旋转，但却少了精彩。
6、过程太曲折了，看起来完成圆柱体沿Z轴这样一个看似简单的运动，起编程可能比较复杂。

woaishuijia · 发表于 2008-9-15 16:23:31

3、这里的INT()可有可不用。用，就是我主动把它变成整数；不用，反正用MOD运算它会自己变整数，还省了输入的麻烦。但为了提高程序的可读性，也为了避免意外错误，还是写上比较好。其实我的程序中有些地方写得比较简略，别人看着就费劲。
PI是我在windows计算器中复制，在VBA编辑器中粘贴的，习惯了。如果不是双精度数的位数有限，电脑自动删掉了后面的，要有几十位呢，呵呵。
4、有啊。所有的图元对象都有Rotate（旋转）方法，就像画图一样，只要指定基点和要旋转的角度就行了。比如
Dim P0(2) as Double
Bl.Rotate P0,Ag
6、我说其实不复杂，只是你刚刚开始接触这东西，还没有真正入门，或者说还没有学会用电脑的方式去思维。多练习，熟能生巧。

mimimao383 · 发表于 2008-9-15 16:39:25

正如你所说，的确不易进入到VBA的思维方式中去。
比如：
Ag = Ag + Δ
If Ag > 2PI Then Ag = 0 ''当Ag>2π时归0
这种形式就比较好理解。

mimimao383 · 发表于 2008-9-16 15:30:44

这不是期望的直线运动

		自动登录	找回密码
密码			注册

通知

[讨论] 用什么方法使曲柄连杆机构转动？

回复 24# 的帖子

回复 27# 的帖子

重新加载，存在一个直线运动的问题。

回复 36# 的帖子

评分

谢谢