10-03-2016
05:17 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
10-03-2016
05:17 PM
That is what I needed. Here's a more complete post on the matter: https://forums.autodesk.com/t5/forums/forumtopicprintpage/board-id/120/message-id/59347/print-single...
Here's some example code:
Sub DrawingView_ChangeLOD()
'active drawing doc
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
'active sheet
Dim oSheet As Sheet
Set oSheet = oDrawDoc.ActiveSheet
'the 1st drawing view
Dim oView As DrawingView
Set oView = oSheet.DrawingViews.Item(1)
'specify the custom LoD by its name
oView.ActiveLevelOfDetailRepresentation = "ONE"
oSheet.Update
Beep
End SubThanks!