判断是否是主视图

工程图可以添加各种类型的视图，而最基本的是主视图。基于它，可以创建投影视图，局部视图，剖视图等。DrawingView.ViewType可以告诉类型。ViewType是个枚举值。其中kStandardDrawingViewType 表示主视图。

Public Enum DrawingViewTypeEnum
  kStandardDrawingViewType = 10501
  kDetailDrawingViewType = 10502
  kSectionDrawingViewType = 10503
  kAuxiliaryDrawingViewType = 10499
  kProjectedDrawingViewType = 10504
  kDraftDrawingViewType = 10505
  kAssociativeDraftDrawingViewType = 10506
  kOverlayDrawingViewType = 10507
End Enum

     

       SubgetViewType()

 

            DimoApp As Inventor.Application= m_inventorApplication

            DimoDoc As DrawingDocument= oApp.ActiveDocument

 

            '遍历每个视图

            DimoView As DrawingView

            ForEach oView InoDoc.oViews

 

                SelectCase oView.ViewType

                    CaseDrawingViewTypeEnum.kAssociativeDraftDrawingViewType

                        MsgBox("关联草图视图")

                    CaseDrawingViewTypeEnum.kAuxiliaryDrawingViewType

                        MsgBox("辅助视图")

                    CaseDrawingViewTypeEnum.kCustomDrawingViewType

                        MsgBox("自定义视图")

                    CaseDrawingViewTypeEnum.kDefaultDrawingViewType

                        MsgBox("缺省视图")

                    CaseDrawingViewTypeEnum.kDetailDrawingViewType

                        MsgBox("详细视图")

                    CaseDrawingViewTypeEnum.kDraftDrawingViewType

                        MsgBox("草图视图")

                    CaseDrawingViewTypeEnum.kOLEAttachmentDrawingViewType

                        MsgBox("OLE附着视图")

                    CaseDrawingViewTypeEnum.kOverlayDrawingViewType

                        MsgBox("覆盖视图")

                    CaseDrawingViewTypeEnum.kProjectedDrawingViewType

                        MsgBox("投影视图")

                    CaseDrawingViewTypeEnum.kSectionDrawingViewType

                        MsgBox("局部视图")

                    CaseDrawingViewTypeEnum.kStandardDrawingViewType

                        MsgBox("主视图")

                EndSelect

              

            Next

 

        End Sub