AutoCAD视图播放系统功能

AutoCAD视图汇报系统

AutoCAD视图播放系统开发需求说明书

——像PPT那样播放视图

1. 综述

目前AutoCAD2014有视图播放showmotion，如下图：

视图管理器如下图：

新建视图：

存在的问题：（不知道新版有没有改动）

1)       新建视图的时候cad是无法操作的；

2)       大批量新建视图的时候，一个个去点击新建按钮，弹出一个框，非常不方便，应该简易地改个名称就能保存新的视图；

3)       播放的时候是自动的，无法设置播放时间，而且有缩放动画的效果——不好；

4)       播放应该像ppt那样，能够按回车就播放下一个视图；

5)       在播放的过程中，可以随意在cad视图中操作。完成操作命令结束后，可以继续播放；

……

2. 功能需求

1)        视图管理界面和功能——类似showmotion

2)        新建视图，界面如下，要求新建视图过程中，可操作cad内容，比如缩放，关闭图层等。连续建立视图。

3)        播放的时候只有上部工具条，如下图，下部的list部分折叠隐藏。要求按照回车键来播放下一个视图。在这个视图中可以操作cad，操作命令结束后，可继续播放视图。播放的时候能够有autocad2008版那样，之间有平滑过渡就更好。

3. 其他

注重实用，其次界面比较美观。

以下代码摘自明经autocad vba

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