Программа для расчёта конструкций RFEM 6 является основой нашей модульной системы программного обеспечения. Основная программа RFEM 6 используется для задания конструкций, материалов и нагрузок плоских и пространственных конструктивных систем, состоящих из плит, стен, оболочек и стержней. Программа также позволяет создавать комбинированные конструкции, а также моделировать тела и контактные элементы.
RSTAB 9 - это мощная программа для расчёта и проектирования 3D конструкций балок, каркасов или ферм, которая которая помогает инженерам-строителям соответствовать современным требованиям и отражает последние тенденции в области строительного проектирования.
Вы часто тратите слишком много времени на расчёт сечений? Программное обеспечение Dlubal и автономная программа RSECTION облегчают вашу работу, определяя характеристики и выполняя расчёт напряжений для различных сечений.
Вы всегда знаете, откуда дует ветер? Конечно, со стороны инноваций! RWIND 2 - это программа, которая использует цифровую аэродинамическую трубу для численного моделирования потоков ветра. Программа моделирует эти потоки вокруг зданий любой геометрической формы и определяет ветровые нагрузки на поверхности.
Вам нужен обзор зон снеговой, ветровой и сейсмической нагрузок? Тогда вы находитесь по адресу. Используйте инструмент Geo-Zone Tool для быстрого и лёгкого определения снеговых нагрузок, скоростей ветра и данных по сейсмике в соответствии с ASCE 7‑16 и другими нормативами различных стран.
Хотите попробовать в работе функции программ Dlubal Software? У вас есть такая возможность! Бесплатная полная версия на 90 дней позволяет вам в полной мере попробовать в работе все наши программы.
Примечание: Die Aktivierung des NET-Softlocks muss mit Administratorrechten erfolgen.
Установка драйвера ключа
Installieren Sie den aktuellen Dongletreiber auf dem Server. Sie können ihn unter folgenden Links herunterladen:
Nach dem Entpacken kann das Softwarepaket über die Kommandozeile mit dem Befehl haspdinst -i installiert werden.
Запуск ключа активации
Laden Sie die Datei "ActivationKey.zip" über folgenden Link herunter:http://download.dlubal.com/?file=ActivationKey.zip
Speichern Sie diese Datei auf dem Server und entpacken die ZIP-Datei. Starten Sie die Datei "ActivateKey.exe" auf dem Server.
загрузить файл авторизации
Es erscheint der Dialog "Dlubal SL Key Activator". Stellen Sie über die [Browse]-Funktion den Pfad zur Datei "AUTHOR.INI" ein. Diese Autorisierungsdatei haben Sie von unserem Vertrieb erhalten.
Wird die Autorisierungsdatei erkannt, so wird im Abschnitt "Activation" die Schlüsselnummer angezeigt.
Запуск активации
Klicken Sie auf die Schaltfläche [Activate], um die Softwarelizenz zu aktivieren. Hierfür muss eine Verbindung mit dem Internet bestehen!
Weitere Informationen finden Sie in beigefügtem PDF-Dokument.
При программировании через интерфейс COM, доступны для узловой опоры функции «ReferenceSystem» и «UserDefinedReferenceSystem». Причем с помощью функции «ReferenceSystem» можно сначала определить тип пользовательской системы координат (например, «Повернутая» или «Система координат»), а затем, в зависимости от выбранного типа, задать данный тип системы посредством команды «UserDefinedReferenceSystem».
В следующем примере была в качестве типа системы установлена «Система координат», для которой была создана также пользовательская система координат:
// create user defined coordinate systemIGuideObjects iGuide = iModel.GetGuideObjects();// delete cosy No 2UserCoordinateSystem[] csList = iGuide.GetCoordinateSystems();if (csList.Length > 1){for (int i = 0; i < csList.Length; ++i){if (csList[i].No == 2){iGuide.PrepareModification();iGuide.DeleteObjects(GuideObjectType.CoordinateSystemObject, "2");iGuide.FinishModification();}}}// define new cosy No 2UserCoordinateSystem uCs = new UserCoordinateSystem();uCs.Name = "test";uCs.Comment = "test";uCs.No = 2;uCs.IsValid = true;uCs.Origin.X = 1;uCs.Origin.Y = 0;uCs.Origin.Z = 1;uCs.Point1.X = 2;uCs.Point1.Y = 0;uCs.Point1.Z = 1;uCs.Point2.X = 1;uCs.Point2.Y = 1;uCs.Point2.Z = 2;// set cosy No 2iGuide.PrepareModification();iGuide.SetCoordinateSystem(uCs);iGuide.FinishModification();// create nodal support with user defined cosyNodalSupport ns = new NodalSupport();ns.SupportConstantX = -1;ns.SupportConstantY = -1;ns.SupportConstantZ = -1;ns.RestraintConstantX = -1;ns.RestraintConstantY = 0;ns.RestraintConstantZ = -1;ns.Comment = "user defined cosy";ns.NodeList = "1";ns.ReferenceSystem = ReferenceSystemType.UserDefinedSystemType;ns.UserDefinedReferenceSystem.ObjectNo = 2;ns.UserDefinedReferenceSystem.Type = UserDefinedAxisSystemType.DefinedCoordinateSystemType;iModData.PrepareModification();iModData.SetNodalSupport(ns);iModData.FinishModification();
Для создания системы координат потребуется наличие интерфейса для вспомогательных объектов: 'IGuideObjects'. С помощью функции «DeleteObjects()» потом сначала удалится существующая система координат номер 2, а затем посредством функции «SetCoordinateSystem()» создастся новая. Не забудьте также обратить внимание на блок «Prepare/Finish-Modification», благодаря которому можно добавлять новые элементы.
Узловая опора затем передается через интерфейс «IModelData». Здесь тоже потребуется блок «Prepare/Finish-Modification».
Sub test_section()' get interface from the opened model and lock the licence/program Dim iModel As RFEM5.IModel3 Set iModel = GetObject(, "RFEM5.Model") iModel.GetApplication.LockLicense On Error GoTo E Dim iSecs As RFEM5.ISections Set iSecs = iModel.GetSections()
' first delete all sections iSecs.PrepareModification iSecs.DeleteObjects ("All") iSecs.FinishModification ' set section on solid Dim sec As RFEM5.Section sec.EdgePointA.X = 2 sec.EdgePointA.Y = 5 sec.EdgePointA.Z = 0 sec.EdgePointB.X = 2 sec.EdgePointB.Y = 8 sec.EdgePointB.Z = 0 sec.no = 1 sec.Name = "solid section" sec.Plane = GlobalPlaneInPositiveX sec.ShowValuesInIsolines = False sec.Type = SectionOnSolidSectionLine sec.ObjectList = "1" iSecs.PrepareModification iSecs.SetSection sec iSecs.FinishModification
' set section on surface sec.EdgePointA.X = 2 sec.EdgePointA.Y = 0 sec.EdgePointA.Z = 0 sec.EdgePointB.X = 2 sec.EdgePointB.Y = 3 sec.EdgePointB.Z = 0 sec.no = 2 sec.Name = "surface section" sec.Plane = GlobalPlaneInPositiveX sec.ShowValuesInIsolines = True sec.Type = SectionViaSurfacePlane sec.ObjectList = "1" sec.Vector.X = 0 sec.Vector.Y = 0 sec.Vector.Z = 1 iSecs.PrepareModification iSecs.SetSection sec iSecs.FinishModification
' get results Dim iCalc As ICalculation2 Set iCalc = iModel.GetCalculation Dim iRes As IResults2 Set iRes = iCalc.GetResultsInFeNodes(LoadCaseType, 1) Dim secRes() As RFEM5.SectionResult secRes = iRes.GetResultsInSection(2, AtNo, ShearForceVy,ContinuousDistributionWithinObjects, False)
Sub test_comment()' get interface from the opened model and lock the licence/program Dim iModel As RFEM5.IModel3 Set iModel = GetObject(, "RFEM5.Model") iModel.GetApplication.LockLicenseOn Error GoTo e Dim iModelData As RFEM5.IModelData2 Set iModelData = iModel.GetModelData Dim iGuiObj As RFEM5.IGuideObjectsSet iGuiObj = iModel.GetGuideObjects Dim comm As RFEM5.Comment ' set frame typecomm.Frame = CircularFrameType ' set reference object typecomm.ObjectType = GeneralObjectTypecomm.ObjectNo = 1 ' set point if GeneralObjectType is choosencomm.Point.X = 2comm.Point.Y = 4comm.Point.Z = 6 ' set offset from reference objectcomm.Offset.X = 0,5comm.Offset.Y = 1comm.Offset.Z = 1,5comm.Rotation = 1 ' set text of commentcomm.Text = "testcomment" ' transfer object to programiGuiObj.PrepareModificationiGuiObj.SetComment commiGuiObj.FinishModification e: If Err.Number <> 0 Then MsgBox Err.description, , Err.Source Set iModelData = Nothing iModel.GetApplication.UnlockLicense Set iModel = NothingEnd Sub
К сожалению, графику нельзя напрямую экспортировать в формате JPG или BMP. Используя функцию печати через буфер обмена, вы можете вставить графику в другие программы, которые позволяют редактировать и сохранять в формате BMP или PNG. Однако измененный цвет фона не применяется.
В Windows имеется дополнительный инструмент «Ножницы». Это программа для трафаретной печати, которая позволяет создавать графику в формате GIF, PNG и JPG.
Существуют, конечно, и профессиональные программы, например, Snagit®. При вставке графики, например, в PowerPoint, не следует изменять размер путем перетаскивания краев, иначе изображение станет пиксельным. Если вы хотите получить изображение другого размера, вы можете настроить его в редакторе изображений (в пикселях и т.д.) или распечатать изображение еще раз с другим видом.