Реклама i
Стань нашим партнером - зарабатывай с нами!
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > .NET > Revit API начертить линии и текст в Sheet(VB.net или С#)

Revit API начертить линии и текст в Sheet(VB.net или С#)

Ответ
Поиск в этой теме
Непрочитано 13.02.2017, 15:19 #1
Revit API начертить линии и текст в Sheet(VB.net или С#)
DEM
 
YngIngKllr
 
СПб
Регистрация: 29.03.2005
Сообщений: 12,968

В модели чертить линии в принципе довольно просто, создаем линии и потом создаем скейтч план.
А вот как на листе начертить линии никак не могу найти, может кто втречал пример на VB.net или С#.
__________________
Работаю за еду.
Working for food.
Für Essen arbeiten.
العمل من أجل الغذاء
Працую за їжу.
Просмотров: 7385
 
Непрочитано 13.02.2017, 15:49
#2
h5r32


 
Регистрация: 28.12.2011
СПб
Сообщений: 843


line1 = Line.CreateBound(base_point, XYZ(0, -15 * f_m, 0))
doc.Create.NewDetailCurve(view, line1)

Таким макаром вроде чертятся где угодно, хоть в модели хоть на листе
h5r32 вне форума  
 
Автор темы   Непрочитано 13.02.2017, 16:10
#3
DEM

YngIngKllr
 
Регистрация: 29.03.2005
СПб
Сообщений: 12,968


Выдают ошибку
Код:
[Выделить все]
 Dim vs As ViewSheet
        vs = ViewSheet.Create(doc, ElementId.InvalidElementId)
        Dim pts As New List(Of XYZ)(5)
        pts.Add(New XYZ(0.0, 0.0, 0.0))
        pts.Add(New XYZ(0.0, 10.0, 0.0))
        Dim baseCurve As Line = Line.CreateBound(pts(0), pts(1))
        doc.Create.NewDetailCurve(vs, baseCurve)
И такой
Код:
[Выделить все]
 Dim vs As ViewSheet
        vs = ViewSheet.Create(doc, ElementId.InvalidElementId)
        Dim pts As New List(Of XYZ)(5)
        pts.Add(New XYZ(0.0, 0.0, 0.0))
        pts.Add(New XYZ(0.0, 10.0, 0.0))
        Dim baseCurve As Line = Line.CreateBound(pts(0), pts(1))
        doc.Create.NewDetailCurve(doc.ActiveView, baseCurve)
Оборачивал в трансзакцию и тоже выдает ошибку....

----- добавлено через ~17 ч. -----
Работает
Код:
[Выделить все]
Dim trans As Transaction = New Transaction(doc)
        trans.Start("Lab")
        Dim view As View
        view = doc.ActiveView
        Dim pts As New List(Of XYZ)(5)
        pts.Add(New XYZ(0.0, 0.0, 0.0))
        pts.Add(New XYZ(0.0, 10.0, 0.0))
        Dim baseCurve As Line = Line.CreateBound(pts(0), pts(1))
        doc.Create.NewDetailCurve(view, baseCurve)
        trans.Commit()
__________________
Работаю за еду.
Working for food.
Für Essen arbeiten.
العمل من أجل الغذاء
Працую за їжу.
DEM вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > .NET > Revit API начертить линии и текст в Sheet(VB.net или С#)

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Последовательность экспорта из Revit Structure в SCAD Арсентьев Евгений SCAD 80 16.10.2020 11:32
Как сделать текст и линии с окантовкой? Denis112 AutoCAD 8 14.02.2013 17:16
Текст размерноу линии zaqwer AutoCAD 1 04.02.2010 11:55
Взорвать текст, сделать тип линии konstruktor AutoCAD 13 31.05.2009 13:38
подскажите как программно начертить линии разных типов Александер Программирование 4 30.06.2005 07:17