Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

Hi tonychristman4915,

 

Here's a quick example based on the one at the link you provided.

 

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

 

 

Dim oDrawDoc As DrawingDocument
 oDrawDoc = ThisApplication.ActiveDocument

Dim oSheet As Sheet
oSheet = oDrawDoc.ActiveSheet

' select drawing views on active sheet
Dim oDrawView As DrawingView

For Each oDrawView In oSheet.DrawingViews	
	'adjust drawing view
	If oDrawView.ViewType = DrawingViewTypeEnum.kDetailDrawingViewType Then
		'toggle detail view fence visiblility
		If oDrawView.DisplayDefinitionInBase = False Then
		oDrawView.DisplayDefinitionInBase = True
		Else
		oDrawView.DisplayDefinitionInBase = False
		End If
	End If
Next

' **** DrawingViewTypeEnums ****
'	kAssociativeDraftDrawingViewType = 10506 
'	kAuxiliaryDrawingViewType = 10499 
'	kCustomDrawingViewType = 10498 
'	kDefaultDrawingViewType = 10497 
'	kDetailDrawingViewType = 10502  
'	kDraftDrawingViewType = 10505 
'	kOLEAttachmentDrawingViewType = 10500  
'	kOverlayDrawingViewType = 10507 
'	kProjectedDrawingViewType = 10504 
'	kSectionDrawingViewType = 10503 
'	kStandardDrawingViewType = 10501