Public Shared Function FuncCreateTablePSDestDraw(ByVal PathDraw As String, ByVal NamePSTable As String) As Boolean
FuncCreateTablePSDestDraw = False
Dim sourceDb As Database = New Database(False, True)
sourceDb.ReadDwgFile(PathDraw, FileShare.Read, True, String.Empty)
Dim sourceTr As Transaction = sourceDb.TransactionManager.StartTransaction()
Using sourceTr
Dim dictPropSetDef = New Autodesk.Aec.PropertyData.DatabaseServices.DictionaryPropertySetDefinitions(sourceDb)
If dictPropSetDef.Has(NamePSTable, sourceTr) Then
Dim IDPSTable As ObjectId = dictPropSetDef.GetAt(NamePSTable)
Dim CollDictPropSet As ObjectIdCollection = New ObjectIdCollection
CollDictPropSet.Add(IDPSTable)
Dim acDoc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
Dim destDb As Database = acDoc.Database
Dim destTr As Transaction = destDb.TransactionManager.StartTransaction()
Using destTr
Dim dictPropSetDefTemp = New Autodesk.Aec.PropertyData.DatabaseServices.DictionaryPropertySetDefinitions(destDb)
If dictPropSetDefTemp.Has(NamePSTable, destTr) = False Then
Dim helpme As Autodesk.Aec.ApplicationServices.Utility.CloningHelper = New Autodesk.Aec.ApplicationServices.Utility.CloningHelper
Dim RXClassPS As RXClass = RXClass.GetClass(GetType(Autodesk.Aec.PropertyData.DatabaseServices.PropertySet))
helpme.Clone(sourceDb, destDb, CollDictPropSet, RXClassPS, True)
FuncCreateTablePSDestDraw = True
End If
destTr.Commit()
End Using
End If
End Using
End Function