11-11-2015
10:15 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-11-2015
10:15 AM
Try this. Pay attention to the :1 after your assembly name as it needs to be exactly the occurrence name as it shows up in the browser.
Dim ocomp As ComponentOccurrence
For Each ocomp In ThisApplication.ActiveDocument.ComponentDefinition.Occurrences
If ocomp.Name = "00001 - Main:1" Then
ocomp.SetDesignViewRepresentation ("CW Draadmodel", True)
Exit For
End If
Next ocomp
Cheers
Bob

Bob Van der Donck
Principal UX designer DMG group