We're trying to copy the Displayset but having trouble. Has anyone been able to get this to work? Here's a snippet of one attempt:
Public Shared Sub CopyMEPDisplaySet2(ByVal FileDB As Database, ByVal SourceDB As Database)
Using acTrans As Transaction = FileDB.TransactionManager.StartTransaction()
Dim dds1 As New Autodesk.Aec.DatabaseServices.DictionaryDisplaySet(FileDB, True)
Dim dds2 As New Autodesk.Aec.DatabaseServices.DictionaryDisplaySet(SourceDB, True)
For Each OID As ObjectId In dds1.Records
Dim ds As Autodesk.Aec.DatabaseServices.DisplaySet = TryCast(acTrans.GetObject(OID, OpenMode.ForRead, True, True), Autodesk.Aec.DatabaseServices.DisplaySet)
If ds IsNot Nothing Then
Dim dssID As ObjectId = dds2.GetAt(ds.Name)
If dssID.IsNull = False Then
Dim dss As Autodesk.Aec.DatabaseServices.DisplaySet = TryCast(dssID.GetObject(OpenMode.ForRead, True, True), Autodesk.Aec.DatabaseServices.DisplaySet)
ds.UpgradeOpen()
ds.CopyFrom(dss)
ds.DowngradeOpen()
End If
End If
Next
acTrans.Commit()
End Using
End Sub This fails to successfully copy. Here's a couple other attempts:
Public Shared Sub CopyMEPDisplaySet1(ByVal FileDB As Database, ByVal SourceDB As Database)
Using acTrans As Transaction = FileDB.TransactionManager.StartTransaction()
Dim dds1 As New Autodesk.Aec.DatabaseServices.DictionaryDisplaySet(FileDB, True)
Dim dds2 As New Autodesk.Aec.DatabaseServices.DictionaryDisplaySet(SourceDB, True)
dds1.CopyFrom(dds2)
acTrans.Commit()
End Using
End Sub
Public Shared Sub CopyMEPDisplaySet3(ByVal FileDB As Database, ByVal SourceDB As Database)
Dim objColIDS As New ObjectIdCollection()
Using acTrans As Transaction = FileDB.TransactionManager.StartTransaction()
Dim dds1 As New Autodesk.Aec.DatabaseServices.DictionaryDisplaySet(FileDB, True)
Dim dds2 As New Autodesk.Aec.DatabaseServices.DictionaryDisplaySet(SourceDB, True)
For Each OID As ObjectId In dds2.Records
objColIDS.Add(OID)
Next
Dim helpme As New Autodesk.Aec.ApplicationServices.Utility.CloningHelper
' uncomment one of these if you want to have a behavior other than default (i.e., overwrite).
'helpme.MergeType = Autodesk.Aec.OmfSamples.DictionaryRecordMergeBehavior.Unique; // rename
helpme.MergeType = Autodesk.Aec.ApplicationServices.Utility.DictionaryRecordMergeBehavior.Overwrite
' no overrite + add overlapping ones as anonymous name (probably internal use only.)
'helpme.MergeType = Autodesk.Aec.OmfSamples.DictionaryRecordMergeBehavior.Normal; // no overrite.
' finally call clone.
helpme.UseTransactions = True
helpme.IncludeDefaultDisplaySystem = True
helpme.OverwriteDependentAutoCADObjects = True
helpme.Clone(SourceDB, FileDB, objColIDS, dds1.GetRXClass, True)
acTrans.Commit()
End Using
End Sub
Craig
