Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
ron.c
in reply to: Jef_E

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 Sub

Thanks!