AutoCAD視圖播放系統功能

AutoCAD視圖彙報系統

AutoCAD視圖播放系統開發需求說明書

——像PPT那樣播放視圖

1. 綜述

目前AutoCAD2014有視圖播放showmotion，如下圖：

視圖管理器如下圖：

建立視圖：

存在的問題：（不知道新版有沒有改動）

1)       建立視圖的時候cad是無法操作的；

2)       大批量建立視圖的時候，一個個去點選建立按鈕，彈出一個框，非常不友善，應該簡易地改個名稱就能儲存新的視圖；

3)       播放的時候是自動的，無法設定播放時間，而且有縮放動畫的效果——不好；

4)       播放應該像ppt那樣，能夠按回車就播放下一個視圖；

5)       在播放的過程中，可以随意在cad視圖中操作。完成操作指令結束後，可以繼續播放；

……

2. 功能需求

1)        視圖管理界面和功能——類似showmotion

2)        建立視圖，界面如下，要求建立視圖過程中，可操作cad内容，比如縮放，關閉圖層等。連續建立視圖。

3)        播放的時候隻有上部工具條，如下圖，下部的list部分折疊隐藏。要求按照Enter鍵來播放下一個視圖。在這個視圖中可以操作cad，操作指令結束後，可繼續播放視圖。播放的時候能夠有autocad2008版那樣，之間有平滑過渡就更好。

3. 其他

Sub Example_SetView()

    ' This examplecreates a new view.

    ' It thenchanges the active viewport to

    ' the newlycreated view.

   

    ' First, open asample drawing.

   ThisDrawing.Application.Documents.Open"C:\AutoCAD\Sample\campus.dwg"

   

    ' Create a newview

    Dim viewObj AsAcadView

    Set viewObj =ThisDrawing.Views.Add("TESTVIEW")

   

    ' Set the viewcharacteristics

   viewObj.center(0) = 374: viewObj.center(1) = 313

    viewObj.width =450

    viewObj.height= 354

   

    ' Get thecurrent active viewport

    Dim viewportObjAs AcadViewport

    Set viewportObj= ThisDrawing.ActiveViewport

    MsgBox"Change to the saved view.", , "SetView 示例"

      

    ' Set the viewin the viewport

   viewportObj.SetView viewObj

   ThisDrawing.ActiveViewport = viewportObj

       

   ThisDrawing.Regen True

   

End Sub

 

Sub Example_Views()
    ' This example finds the current views collection and
    ' adds a new view to that collection.
    
    Dim viewColl As AcadViews
    Set viewColl = ThisDrawing.Views
    
    ' Create a view named "TEST" in the current drawing
    Dim viewObj As AcadView
    Set viewObj = viewColl.Add("TEST")
    MsgBox "A new view called " & viewObj.name & " has been added to the views collection.", vbInformation, "Views 示例"
End Sub