11-07-2017
02:40 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-07-2017
02:40 AM
Hi @GeorgK,
Try the following VBA code to select the UCS and create the same in AssemblyDocument.
Sub Main()
Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument
Dim oDef As AssemblyComponentDefinition
Set oDef = oDoc.ComponentDefinition
Dim oUCS As UserCoordinateSystem
Set oUCS = ThisApplication.CommandManager.Pick(kUserCoordinateSystemFilter, "Select UCS")
Dim oMatrix As Matrix
Set oMatrix = oUCS.Transformation
Dim oUCSDef As UserCoordinateSystemDefinition
Set oUCSDef = oDef.UserCoordinateSystems.CreateDefinition
oUCSDef.Transformation = oMatrix
Dim copiedUCS As UserCoordinateSystem
Set copiedUCS = oDef.UserCoordinateSystems.Add(oUCSDef)
End Sub
Please feel free to contact if there is any queries.
If solves problem, click on "Accept as solution" / give a "Kudo".
Thanks and regards,
CHANDRA SHEKAR G
Developer Advocate
Autodesk Developer Network
