Automatic Drawing View Label

Anonymous · ‎12-06-2019

I've been working on getting some code together to automatically call out he drawing view based on the cube. With the help of this fine community, I think I have it finished. I wanted to share it, in case it can be useful to others.

Dim oDoc As DrawingDocument = ThisDoc.Document
Dim oModel = ThisDoc.ModelDocument
Dim oSheets As Sheets = oDoc.Sheets
Dim oSheet As Sheet
Dim oViews As DrawingViews
Dim oView As DrawingView

For Each oSheet In oSheets
	oViews = oSheet.DrawingViews
	For Each oView In oViews
		
		'if viel label is hidden, unhide
		oView.ShowLabel = True

Dim oViewModelDoc As Document
oViewModelDoc = oView.ReferencedDocumentDescriptor.ReferencedDocument

				oView.ShowLabel = True
				Dim orientype As ViewOrientationTypeEnum
 				orientype = oView.Camera.ViewOrientationType
				
				
				'PARTS STANDARD VIEW
				If orientype = 10763 And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"ARBITRARY")

				ElseIf orientype = 10756 And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"BACK")

				ElseIf orientype = 10757  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"BOTTOM")

				ElseIf orientype = 10765  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"CURRENT")

				ElseIf orientype = 10753 And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Label.FormattedText = "SpecElseIfies the Default setting To use. Inquiry methods/properties always Return the more strongly typed values"

				ElseIf orientype = 10773  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FLAT PATTERN")

				ElseIf orientype = 10772  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FLAT PATTERN")

				ElseIf orientype = 10770  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FLAT PATTERN BACK")

				ElseIf orientype = 10769  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FLAT PATTERN")

				ElseIf orientype = 10768  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FLAT PATTERN")

				ElseIf orientype =10767  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FLAT PATTERN")

				ElseIf orientype = 10764  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FRONT")

				ElseIf orientype = 10762  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "ISOMETRIC")

				ElseIf orientype = 10761  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "ISOMETRIC")

				ElseIf orientype = 10760  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "ISOMETRIC")

				ElseIf orientype = 10759   And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "ISOMETRIC")

				ElseIf orientype = 10758   And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"LEFT")

				ElseIf orientype = 10755   And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "ISOMETRIC")

				ElseIf orientype = 10766   And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "ISOMETRIC")
				
				ElseIf orientype = 10754   And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"TOP")
				

				'ASSEMBLYS STANDARD VIEW
				ElseIf orientype = 10763 And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"ARBITRARY")
				
				ElseIf orientype = 10756 And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"BACK")
				
				ElseIf orientype = 10757  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"BOTTOM")
				
				ElseIf orientype = 10765  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"CURRENT")
				
				ElseIf orientype = 10753 And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Label.FormattedText = "SpecElseIfies the Default setting To use. Inquiry methods/properties always Return the more strongly typed values"
				
				ElseIf orientype = 10773  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FLAT PATTERN")
				
				ElseIf orientype = 10772  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FLAT PATTERN")
				
				ElseIf orientype = 10770  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FLAT PATTERN BACK")
				
				ElseIf orientype = 10769  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FLAT PATTERN")
				
				ElseIf orientype = 10768  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FLAT PATTERN")
				
				ElseIf orientype =10767  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FLAT PATTERN")
				
				ElseIf orientype = 10764  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FRONT")
				
				ElseIf orientype = 10762  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "ISOMETRIC")
				
				ElseIf orientype = 10761  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "ISOMETRIC")
				
				ElseIf orientype = 10760  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "ISOMETRIC")
				
				ElseIf orientype = 10759   And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "ISOMETRIC")
				
				ElseIf orientype = 10758   And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "LEFT")
				
				ElseIf orientype = 10755   And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "RIGHT")
				
				ElseIf orientype = 10766   And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "ISOMETRIC")
				
				ElseIf orientype = 10754   And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "TOP")
			
				
				
				'EXPLODEDS STANDARD VIEW
				
				ElseIf orientype = 10763 And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"ARBITRARY EXPLODED")
				
				ElseIf orientype = 10756 And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED BACK")
				
				ElseIf orientype = 10757  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED BOTTOM")
				
				ElseIf orientype = 10765  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED CURRENT")
				
				ElseIf orientype = 10753 And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Label.FormattedText = "SpecElseIfies the Default setting To use. Inquiry methods/properties always Return the more strongly typed values"
				
				ElseIf orientype = 10773  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED FLAT PATTERN")
				
				ElseIf orientype = 10772  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED FLAT PATTERN")
				
				ElseIf orientype = 10770  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED FLAT PATTERN BACK")
				
				ElseIf orientype = 10769  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED FLAT PATTERN")
				
				ElseIf orientype = 10768  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED FLAT PATTERN")
				
				ElseIf orientype =10767  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED FLAT PATTERN")
				
				ElseIf orientype = 10764  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED FRONT")
				
				ElseIf orientype = 10762  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED")
				
				ElseIf orientype = 10761  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED")
				
				ElseIf orientype = 10760  And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED")
				
				ElseIf orientype = 10759   And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED")
				
				ElseIf orientype = 10758   And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED LEFT")
				
				ElseIf orientype = 10755   And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED RIGHT")
				
				ElseIf orientype = 10766   And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"ORTHOGRAPHIC")
				
				ElseIf orientype = 10754   And oView.ViewType = DrawingViewTypeEnum.kStandardDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "EXPLODED TOP")
				
				
				'PARTS PROJECTED VIEW
				
				ElseIf orientype = 10763 And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"ARBITRARY")

				ElseIf orientype = 10756 And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"BACK")

				ElseIf orientype = 10757  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"BOTTOM")

				ElseIf orientype = 10765  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"CURRENT")

				ElseIf orientype = 10753 And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Label.FormattedText = "SpecElseIfies the Default setting To use. Inquiry methods/properties always Return the more strongly typed values"

				ElseIf orientype = 10773  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FLAT PATTERN")

				ElseIf orientype = 10772  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FLAT PATTERN")

				ElseIf orientype = 10770  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FLAT PATTERN BACK")

				ElseIf orientype = 10769  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FLAT PATTERN")

				ElseIf orientype = 10768  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FLAT PATTERN")

				ElseIf orientype =10767  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FLAT PATTERN")

				ElseIf orientype = 10764  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FRONT")

				ElseIf orientype = 10762  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "ISOMETRIC")

				ElseIf orientype = 10761  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "ISOMETRIC")
				
				ElseIf orientype = 10760  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "ISOMETRIC")

				ElseIf orientype = 10759   And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "ISOMETRIC")

				ElseIf orientype = 10758   And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"LEFT")

				ElseIf orientype = 10755   And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"RIGHT")

				ElseIf orientype = 10766   And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "ORTHOGRAPHIC")
				
				ElseIf orientype = 10754   And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPartDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"TOP")
				

				'ASSEMBLYS PROJECTED VIEW
				
				ElseIf orientype = 10763 And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"ARBITRARY")
				
				ElseIf orientype = 10756 And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"BACK")
				
				ElseIf orientype = 10757  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"BOTTOM")
				
				ElseIf orientype = 10765  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"CURRENT")
				
				ElseIf orientype = 10753 And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Label.FormattedText = "SpecElseIfies the Default setting To use. Inquiry methods/properties always Return the more strongly typed values"
				
				ElseIf orientype = 10773  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FLAT PATTERN")
				
				ElseIf orientype = 10772  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FLAT PATTERN")
				
				ElseIf orientype = 10770  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FLAT PATTERN BACK")
				
				ElseIf orientype = 10769  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FLAT PATTERN")
				
				ElseIf orientype = 10768  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FLAT PATTERN")
				
				ElseIf orientype =10767  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FLAT PATTERN")
				
				ElseIf orientype = 10764  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"FRONT")
				
				ElseIf orientype = 10762  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "ISOMETRIC")
				
				ElseIf orientype = 10761  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "ISOMETRIC")
				
				ElseIf orientype = 10760  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "ISOMETRIC")
				
				ElseIf orientype = 10759   And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "ISOMETRIC")
				
				ElseIf orientype = 10758   And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "LEFT")
				
				ElseIf orientype = 10758   And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "LEFT")
				
				ElseIf orientype = 10755   And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "RIGHT")
				
				ElseIf orientype = 10755   And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "RIGHT")
				
				ElseIf orientype = 10766   And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "ORTHOGRAPHIC")
				
				ElseIf orientype = 10754   And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "TOP")
				
				ElseIf orientype = 10754   And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kAssemblyDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"TOP")
				
				
				'EXPLODEDS PROJECTED VIEW
				
				ElseIf orientype = 10763 And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"ARBITRARY EXPLODED")
				
				ElseIf orientype = 10756 And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED BACK")
				
				ElseIf orientype = 10757  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED BOTTOM")
				
				ElseIf orientype = 10765  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED CURRENT")
				
				ElseIf orientype = 10753 And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Label.FormattedText = "SpecElseIfies the Default setting To use. Inquiry methods/properties always Return the more strongly typed values"
				
				ElseIf orientype = 10773  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED FLAT PATTERN")
				
				ElseIf orientype = 10772  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED FLAT PATTERN")
				
				ElseIf orientype = 10770  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED FLAT PATTERN BACK")
				
				ElseIf orientype = 10769  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED FLAT PATTERN")
				
				ElseIf orientype = 10768  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED FLAT PATTERN")
				
				ElseIf orientype =10767  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED FLAT PATTERN")
				
				ElseIf orientype = 10764  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED FRONT")
				
				ElseIf orientype = 10762  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED")
				
				ElseIf orientype = 10761  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED")
				
				ElseIf orientype = 10760  And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED")
				
				ElseIf orientype = 10759   And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED")
				
				ElseIf orientype = 10758   And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED LEFT")
				
				ElseIf orientype = 10755   And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"EXPLODED RIGHT")
				
				ElseIf orientype = 10766   And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name,"ORTHOGRAPHIC")
				
				ElseIf orientype = 10754   And oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType And oViewModelDoc.DocumentType = kPresentationDocumentObject Then
				oView.Name = oView.Name.ToUpper.Replace(oView.Name, "EXPLODED TOP")
				
			End If
				
		Next
Next

WCrihfield · ‎12-06-2019

Wow! It looks like you put a lot of typing work into that. Good idea.

I'm not sure why you iterated through the different DocumentTypes, or DrawingViewTypes though.

There are likely several ways to code this to get similar results including, Select Case tree method, using actual kType names instead of numbers, defining a couple more variables at the top to save typing down below, and all, but nice.

I also created similar iLogic code that does it very similar, but instead of specifying a custom string for each possible ViewOrientation there is, I made use of the Enum name, converted to a String. Then used the String manipulator methods to eliminate the "k" at the beginning of each name, and the "ViewOrientation" off the end of each name.

Then just did an equals statement, instead of Replace, and put the "ToUpper" after it.

Check this out.

Dim oDoc As DrawingDocument = ThisDrawing.Document
Dim oViews As DrawingViews
Dim oOrientType As ViewOrientationTypeEnum
Dim oOrigViewName As String
Dim oNewViewName As String

For Each oSheet As Sheet In oDoc.Sheets
	oViews = oSheet.DrawingViews
	For Each oView As DrawingView In oViews
		oOrientType = oView.Camera.ViewOrientationType
		oOrigViewName = oView.Name
		oNewViewName = Mid(oOrientType.ToString, 2, Len(oOrientType.ToString) -16)
		oView.ShowLabel = True
		oView.Name = oNewViewName.ToUpper
	Next
Next

I know you weren't asking for anyone to solve a problem or provide a solution, but a 'Like' would be appreciated.

Hope this helps you and others accomplish similar feats.

Wesley Crihfield

(Not an Autodesk Employee)

Anonymous · ‎12-30-2019

Thank you for looking at this.

You option is much cleaner than mine and if I can use that, I will. The reason I have everything broken down by file type and view type is because not doing so causes "Detail A" to become "Detail Left" and "Exploded View" called out as the orientation without the "Exploded added to the label.

EDIT:

One thing that isn't working is the flat pattern call out. I'm not sure how to differentiate between Folded Front View and Flat Pattern Front View. it's all called out as Front View.

GosponZ · ‎08-24-2022

Hi WCrihfield,

this post little old but I'm looking something you did (which work fantastic) but i need to show view labels like front view top view isometric and end view without scale. Would it be possible to make like that.

Thank you much

WCrihfield · ‎08-24-2022

Hi @GosponZ. In order to show the view's label, and have that label not contain the view's scale, you would either have to edit/customize the DrawingViewLabel object's FormattedText value (complicated String, which includes XML tags/code), or you would have to change the settings within your DrawingStandardStyle. If you go the DrawingStandardStyle route, you can either do it manually, or by code, but if you want to keep these settings for use in other documents, and do not want to go through the confusion of messing around with FormattedText, I would recommend doing the edits manually (within the Styles & Standards Editor dialog), then saving them to the style library. The DrawingStandardStyle object has two methods pertaining to these settings (GetViewLabelDefaults & SetViewLabelDefaults). However, when interacting with them by code, you still have to deal with FormattedText to make the changes you want to make.

Manually:

Open your Styles Editor dialog
Select existing/active Standard style, or create a new Standard style
On the right, select the View Preferences tab
Select the View Type(s) (from the drop-down list) you want your edits to effect
Make the edits to the Display text to suit your needs (like removing the SCALE stuff)
Click the Save button at the top of the dialog (not the Save and Close button at the bottom)
Right-click on the Standard style you are editing (on the left), and choose Save to Style Library (if you want to keep it for use in other drawings)

Wesley Crihfield

(Not an Autodesk Employee)

GosponZ · ‎08-24-2022

Thank you for detailed answer but now when I run rule it make only front view label without scale but projected views are still turned off. What would cause that?

GosponZ · ‎08-24-2022

OK never mind it left in base view and i switched to projected and it is working. Thank you for your help.

WCrihfield · ‎08-24-2022

Within the Style Editor, while you have the Standard style selected, and are looking at the View Preferences tab on the right, you will need to select other view types within the View Type drop-down list, then apply the same settings to those as you did for the 'Base' view type. The 'Base' view type is usually the one shown by default in that list. This allows for different settings for different types of views. Other view types to choose from are: Auxiliary, Detail, Draft, Projected, & Section.

Wesley Crihfield

(Not an Autodesk Employee)

Community

Automatic Drawing View Label

Automatic Drawing View Label

Automatic Drawing View Label