[maps899]

Есть ли возможности программирования на Revite?

[Кулик Алексей aka kpblc]

На Revit'e программировать невозможно. Но для Revit'a - возможность есть. Вопросы рассматривались в свое время на arcada.com.ua

[zzzzz-5]

есть ли возможность с микрофи скинуть армирование в ревит и подобрать арматуру в каркаснои доме?

[maps899]

Thanks. На счёт программирование на Revite оговорился.

[Кулик Алексей aka kpblc]

zzzzz-5, ты ничего не перепутал?

[zzzzz-5]

Сообщение от Кулик Алексей aka kpblc zzzzz-5, ты ничего не перепутал?

нет не перепутал , в нашем городе в одной из организаций уже это работает . 1 р.+3п. = 1 мес и проект готов всем грозит безработица . В проектных будут работать только уникумы и блатные....

[tutanhamon]

В Ревит 2009 встроена VSTA - замена устаревшему VBA... Плюс, если скачаешь библиотеки Revit SDK - можно и в Visual Studio функции для Ревита писать.. Там много примеров - но в основном C#, поэтому если ты специализируешся на VB - то эта ссылка на первое время может пригодиться http://www.developerfusion.com/tools.../csharp-to-vb/
Буквально на той неделе возникла производственная необходимость рассчитать фунд. плиту.. Так как - само здание по немецкому проекту, то они предоставили только нагрузки на фундамент от здания с 12 возможных загружений - всего около 6000 точечных нагрузок.. Так как, понимаете сами, довольно эта задача трудоемкая - то попробовал из Excel-я перекинуть в RST 2009 все нагрузки.. Задачу решал с помощью Revit VSTA, вот код:

Код:

[Выделить все]

<CLSCompliant(False)> _
Partial Class ThisDocument
    Public Sub F2A()
        Dim excel As New Microsoft.Office.Interop.Excel.Application
        Dim WS As Microsoft.Office.Interop.Excel.Worksheet
        Dim FileExcelName As String = "D:\Работа\..\ForceMap.xls"

        Dim excWB As Microsoft.Office.Interop.Excel.Workbook = excel.Workbooks.Open(FileExcelName)
        WS = CType(excWB.Worksheets(3), Microsoft.Office.Interop.Excel.Worksheet)

        Dim basePnt As Geometry.XYZ = Me.Application.Create.NewXYZ(0, 0, 0)
        Dim baseFrc As Geometry.XYZ = Me.Application.Create.NewXYZ(0, 0, 0)
        Dim Moment As Geometry.XYZ = Me.Application.Create.NewXYZ(0, 0, 0)
        Dim lenFac As Double = 0.3048
        Dim NumColS As String = InputBox("Номер колонки в листе Excel:")
        Dim NumCol As Integer = CInt(NumColS)
        Dim XStr As String = WS.Cells(3, 1).value
        Dim YStr As String = WS.Cells(3, 2).value
        Dim i As Integer = 1

        While (XStr <> "") And (YStr <> "")
            XStr = WS.Cells(i + 2, 1).value
            YStr = WS.Cells(i + 2, 2).value
            Dim FZStr As String = WS.Cells(i + 2, NumCol).value
            Dim Pnt As Geometry.XYZ = Me.Application.Create.NewXYZ((CDbl(XStr) / 1000) / lenFac, (CDbl(YStr) / 1000) / lenFac, 0)
            Dim Frc As Geometry.XYZ = Me.Application.Create.NewXYZ(0, 0, (CDbl(FZStr) * 1000) / lenFac)
            Dim NewPointLoadX As PointLoad = Me.Create.NewPointLoad(Pnt, Frc, Moment, False, Nothing, Nothing)
            i = i + 1
        End While

        excWB.Close()
        excel.Quit()

    End Sub
End Class

Сразу попрошу гуру программирования не кричать - что не хорошо код написан, да не правильно... Задача эта - одноразовая, и благодоря этим строкам решилась "малой кровью" ...

[Кулик Алексей aka kpblc]

Ты название топика еще разок прочти. Только прочти внимательно. А потом подумай, "в тему" ли высказывания

Сообщение от zzzzz-5 есть ли возможность с микрофи скинуть армирование в ревит и подобрать арматуру в каркаснои доме?

Сообщение от zzzzz-5 нет не перепутал , в нашем городе в одной из организаций уже это работает . 1 р.+3п. = 1 мес и проект готов всем грозит безработица . В проектных будут работать только уникумы и блатные....

[zzzzz-5]

конечно в тему - вот уже господа инженеры задачки подкидывают......
Микрофи армирование перекидывает в dxf , а потом нужна программка в Ревите , что бы обработать эти данные , по простому - КОНВЕРТОР или макрос для передачи армирования в конструкции . За этой программой будущее!!!!
а что Викадо не пример (но там сделано по ломовому)

[Sleekka]

конечно в тему - вот уже господа инженеры задачки подкидывают...... Микрофи армирование перекидывает в dxf , а потом нужна программка в Ревите , что бы обработать эти данные , по простому - КОНВЕРТОР для передачи армирования в конструкции . За этой программой будущее!!!!

Да все это можно правда в автогаде проще, никто ж не финансирует, деньги нужно вкладывать тогда будет работать.

[Makswell]

Сообщение от Кулик Алексей aka kpblc На Revit'e программировать невозможно. Но для Revit'a - возможность есть. Вопросы рассматривались в свое время на arcada.com.ua

Точнее здесь

[zzzzz-5]

спасибо за ссылку , форум двж просто ПЕРВЫЙ . Но...

[Nnaho]

Неумолимый Sett теперь обосновался на http://www.augi.ru/.:) В Ревите бездна недоработок для инженера - конструктора, но будущее - за BIM. Правда,продвижение продукта сильно попахивает сетевым маркетингом... Но, для Америки это - норма...

[Denbad]

Для параметров семейств существуют стандартные функции от других параметров, например sqrt(...). Есть ли возможность создавать свои функции?, т.е. я с помощью VSTA создаю MyFunction(...) и она встраивается в проект или в сам Revit, чтоб можно было её использовать в параметрах семейств.

[John_Galt]

С импортом армирования пока беда, если бы такой модуль был бы на просторах интернета то многие бы знали о нем....
Пока даже бетатестеры такую информацию не давали...