ADN Club > Civil 3D API

Копирование PropertySet

<< < (3/3)

Захаров Максим:
Вроде все работает, нужно подключить 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)
--- Конец цитаты ---
где то тут ошибка...

Захаров Максим:
Исправил

Навигация

[0] Главная страница сообщений

[*] Предыдущая страница