Добрый день, коллеги.
Подскажите, с чем может быть связано то, что в одни семейства мне удаётся скопировать типы линий и штриховок от шаблонного семейства, а в другие - нет.
Может у семейств есть какие-то свойства, которые этому процессу мешают?
Этот код работает, но не для всех семейств:
Public Sub Create_Copy_LinePattern(ByVal myLinePattern As Autodesk.Revit.DB.LinePattern, ByVal path As String)
' Пытаемся закрыть неактивные документы
Dim App As Autodesk.Revit.UI.UIApplication = myCD.Application
Dim UIDoc As UIDocument = App.ActiveUIDocument
Dim Doc As Document = App.ActiveUIDocument.Document
myCD.Application.OpenAndActivateDocument(path)
' Копируем свойства из шаблона в текущий проект семейства
Dim tr As New Transaction(Doc, "Copy properties from template *.rfa ")
tr.Start()
'Try
LinePatternElement.Create(Doc, myLinePattern)
'Catch ex As Exception
' MsgBox(ex.Message)
'End Try
tr.Commit()
tr.Dispose()
End Sub
Public Sub Create_Copy_FillPattern(ByVal myFillPattern As Autodesk.Revit.DB.FillPattern, ByVal path As String)
' Пытаемся закрыть неактивные документы
Dim App As Autodesk.Revit.UI.UIApplication = myCD.Application
Dim UIDoc As UIDocument = App.ActiveUIDocument
Dim Doc As Document = App.ActiveUIDocument.Document
myCD.Application.OpenAndActivateDocument(path)
' Копируем свойства из шаблона в текущий проект семейства
Dim tr As New Transaction(Doc, "Copy properties from template *.rfa ")
tr.Start()
'Try
FillPatternElement.Create(Doc, myFillPattern)
'Catch ex As Exception
' MsgBox(ex.Message)
'End Try
tr.Commit()
tr.Dispose()
End Sub