12-28-2015
11:01 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
12-28-2015
11:01 AM
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