版权声明:本文为博主原创文章,未经博主允许不得转载。 https://cloud.tencent.com/developer/article/1334576
AutoCAD视图播放系统开发需求说明书
——像PPT那样播放视图
目前AutoCAD2014有视图播放showmotion,如下图:
视图管理器如下图:
新建视图:
存在的问题:(不知道新版有没有改动)
1) 新建视图的时候cad是无法操作的;
2) 大批量新建视图的时候,一个个去点击新建按钮,弹出一个框,非常不方便,应该简易地改个名称就能保存新的视图;
3) 播放的时候是自动的,无法设置播放时间,而且有缩放动画的效果——不好;
4) 播放应该像ppt那样,能够按回车就播放下一个视图;
5) 在播放的过程中,可以随意在cad视图中操作。完成操作命令结束后,可以继续播放;
……
1) 视图管理界面和功能——类似showmotion
2) 新建视图,界面如下,要求新建视图过程中,可操作cad内容,比如缩放,关闭图层等。连续建立视图。
3) 播放的时候只有上部工具条,如下图,下部的list部分折叠隐藏。要求按照回车键来播放下一个视图。在这个视图中可以操作cad,操作命令结束后,可继续播放视图。播放的时候能够有autocad2008版那样,之间有平滑过渡就更好。
注重实用,其次界面比较美观。
以下代码摘自明经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