Почему не работает создание типов линий по шаблонному семейству?

Автор Тема: Почему не работает создание типов линий по шаблонному семейству?  (Прочитано 1545 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Пашин ЕвгенийАвтор темы

  • ADN PRO
  • *
  • Сообщений: 662
  • Карма: 12
  • Skype: pashin.evgeniy
Добрый день, коллеги.

Подскажите,  с чем может быть связано то, что в одни семейства мне удаётся скопировать типы линий и штриховок от шаблонного семейства, а в другие - нет.

Может у семейств есть какие-то свойства, которые этому процессу мешают?


Этот код работает, но не для всех семейств:
Код - vb.net [Выбрать]
  1.     Public Sub Create_Copy_LinePattern(ByVal myLinePattern As Autodesk.Revit.DB.LinePattern, ByVal path As String)
  2.         ' Пытаемся закрыть неактивные документы
  3.         Dim App As Autodesk.Revit.UI.UIApplication = myCD.Application
  4.         Dim UIDoc As UIDocument = App.ActiveUIDocument
  5.         Dim Doc As Document = App.ActiveUIDocument.Document
  6.         myCD.Application.OpenAndActivateDocument(path)
  7.         ' Копируем свойства из шаблона в текущий проект семейства
  8.         Dim tr As New Transaction(Doc, "Copy properties from template *.rfa ")
  9.         tr.Start()
  10.         'Try
  11.         LinePatternElement.Create(Doc, myLinePattern)
  12.         'Catch ex As Exception
  13.         '    MsgBox(ex.Message)
  14.         'End Try
  15.         tr.Commit()
  16.         tr.Dispose()
  17.     End Sub
  18.  
  19.     Public Sub Create_Copy_FillPattern(ByVal myFillPattern As Autodesk.Revit.DB.FillPattern, ByVal path As String)
  20.         ' Пытаемся закрыть неактивные документы
  21.         Dim App As Autodesk.Revit.UI.UIApplication = myCD.Application
  22.         Dim UIDoc As UIDocument = App.ActiveUIDocument
  23.         Dim Doc As Document = App.ActiveUIDocument.Document
  24.         myCD.Application.OpenAndActivateDocument(path)
  25.         ' Копируем свойства из шаблона в текущий проект семейства
  26.         Dim tr As New Transaction(Doc, "Copy properties from template *.rfa ")
  27.         tr.Start()
  28.         'Try
  29.         FillPatternElement.Create(Doc, myFillPattern)
  30.         'Catch ex As Exception
  31.         '    MsgBox(ex.Message)
  32.         'End Try
  33.         tr.Commit()
  34.         tr.Dispose()
  35.     End Sub