Autocad VBA初級教程 (第十一課:動畫基礎)

    說實話，用ACAD玩動畫絕對比不上專業(yè)的三維動畫軟件，不過這年頭自稱精通CAD的工程師太多了，而學會用ACAD玩動畫一定能提高您的競爭實力， 想象一下您用ACAD動畫向老板演示零件的裝配方法……

    下面的例題是一個最簡單的動畫，由用戶選擇一個要移動的對象，然后定位起點和終點，程序會慢慢地把對象移動。

    移動方法：object.move 起點坐標,端點坐標

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 '移動次數(shù)

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

先讓用戶選擇移動的對象、起點、終點，motimes動畫是設置動畫幀數(shù)，這個例程是讓對象移動3000小段，movx和movy是每一段移動的距離，然后進行一個3000次的循環(huán)，每一次循環(huán)移動一小段距離。

看第二個例題：做一個小輪子在一條山坡上運動的動畫，山坡為正弦曲線。請注意，應該用偏移法獲得輪圓心的軌跡才是正確的。編程思路：先畫好圓和橫軸，然后畫山坡，偏移獲得移動軌跡線，放到隱藏圖層中，然后根據(jù)軌跡線移動圓和軸，在移動之前先旋轉軸線。

旋轉方法：object. rotate 基點,角度
偏移方法： object.offset(偏移量)

Sub moveball()

Dim ccball As Variant '圓
Dim ccline As Variant '圓軸
Dim cclinep1(0 To 2) As Double '圓軸端點1
Dim cclinep2(0 To 2) As Double '圓軸端點2
Dim cc(0 To 2) As Double '圓心
Dim hill As Variant '山坡線
Dim moveline As Variant '移動軌跡線
Dim lay1 As AcadLayer '放軌跡線的隱藏圖層
Dim vpoints As Variant '軌跡點
Dim movep(0 To 2) As Double '移動目標點坐標

cclinep1(0) = -0.1: cclinep2(0) = 0.1 '定義圓軸坐標
Set ccline = ThisDrawing.ModelSpace.AddLine(cclinep1, cclinep2) '畫直線
Set ccball = ThisDrawing.ModelSpace.AddCircle(cc, 0.1) '畫半徑為0.1的圓

Dim p(0 To 719) As Double   '申明正弦線頂點坐標
For i = 0 To 718 Step 2 '開始畫多段線
    p(i) = i * 3.1415926535897 / 360  '橫坐標
    p(i + 1) = Sin(p(i)) '縱坐標
Next i
 
Set hill = ThisDrawing.ModelSpace.AddLightWeightPolyline(p) '畫正弦線即山坡曲線
hill.Update '顯示山坡線

moveline = hill.Offset(-0.1) '球心運動軌跡線
vpoints = moveline(0).Coordinates '獲得規(guī)跡點

Set lay1 = ThisDrawing.Layers.Add("hidelay") '創(chuàng)建名為"hidelay"的圖層
lay1.LayerOn = False '關閉圖層
moveline(0).Layer = "hidelay" '將軌跡線放到關閉的圖層中
ZoomExtents '顯示整個圖形

For i = 0 To UBound(vpoints) - 1 Step 2
  movep(0) = vpoints(i) '計算移動的軌跡
  movep(1) = vpoints(i + 1)
  ccline.Rotate cc, 0.05 '旋轉直線
  ccline.Move cc, movep '移動直線
  ccball.Move cc, movep '移動圓
  cc(0) = movep(0) '把當前位置作為下次移動的起點
  cc(1) = movep(1)
  For j = 1 To 50000 '這次循環(huán)的目的是讓小球移動得慢一點,循環(huán)量應根據(jù)自已的電腦速度設置
   j = j * 1
  Next j
  ccline.Update '更新
Next i

End Sub

本課結束，請做思考題：在一條直線上畫兩個同樣大小的圓，然后讓這兩個圓沿直線相向而行，到互換位置后停下來，尺寸自定.