08-28-2017
02:36 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
08-28-2017
02:36 AM
Hi @navbor,
Try the following VBA code.
Sub Main()
Dim oDef As ComponentDefinition
Set oDef = ThisApplication.ActiveDocument.ComponentDefinition
Dim baseView As DesignViewRepresentation
Dim targetView As DesignViewRepresentation
Set copyDesign = oDef.RepresentationsManager.DesignViewRepresentations.Item("Bottom") ' View1
Set oView = oDef.RepresentationsManager.DesignViewRepresentations.Item("Left") ' View 3
Call CopyDesignView(copyDesign, oView)
End Sub
Sub CopyDesignView(ByVal baseView As DesignViewRepresentation, ByVal targetView As DesignViewRepresentation)
Dim targetViewName As String
targetViewName = targetView.Name
Call targetView.Delete
Call baseView.Copy(targetViewName)
End Sub
Please feel free to contact if there is any doubt.
If solves problem, click on "Accept as solution" / give a "Kudo".
Thanks and regards,
CHANDRA SHEKAR G
Developer Advocate
Autodesk Developer Network
