ADN Club > Civil 3D API
Копирование PropertySet
Захаров Максим:
Вроде все работает, нужно подключить 2 dll (AecCoreMgd.dll и AecPropDataMgd.dll)
'=================================================================================================================================
'функция копирует PropertySET из другого чертежа (1-Полный путь к файлу-шаблону .dwg, 2-имя таблицы)
--- Код - vb.net [Выбрать] --- 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
trir:
--- Цитировать ---нужно подключить 2 dll (AecPropDataMgd.dll и AecPropDataMgd.dll)
--- Конец цитаты ---
где то тут ошибка...
Захаров Максим:
Исправил
Навигация
Перейти к полной версии