06-16-2020
03:01 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-16-2020
03:01 PM
Another way to do it manually is to open the assembly file with the same (View, Position, LOD) representations as the base view in the .idw. Edit the iproperties I want and they will automatically update in the idw. So I guess I could do is the following:
1) query the names of the (View, Position, LOD) representations in the base view of the .idw.
2) Open the assembly with the proper representations
3) Populate my iproperties. (This should automatically update my title block)
So far I've gotten this: but returns a blank if the name is anything other than "Default" or "Master"
Can anybody tell me if I'm going in the right direction on this?
'active drawing doc
Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument
'active sheet
Dim oSheet As Sheet
oSheet = oDrawDoc.ActiveSheet
'the 1st drawing view
Dim oView As DrawingView
oView = oSheet.DrawingViews.Item(1)
Dim oDesign, oLOD, oPosition As String
oDesign = oView.ActiveDesignViewRepresentation
MessageBox.Show(oDesign, "Design")
oLOD = oView.ActiveLevelOfDetailRepresentation
MessageBox.Show(oLOD, "Level Of Detail")
oPosition = oView.ActivePositionalRepresentation
MessageBox.Show(oPosition, "Position")Thanks!
Rockie