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.LockLicense
On Error GoTo e Dim iModelData As RFEM5.IModelData2 Set iModelData = iModel.GetModelData Dim iGuiObj As RFEM5.IGuideObjects Set iGuiObj = iModel.GetGuideObjects Dim comm As RFEM5.Comment ' set frame type comm.Frame = CircularFrameType ' set reference object type comm.ObjectType = GeneralObjectType comm.ObjectNo = 1 ' set point if GeneralObjectType is choosen comm.Point.X = 2 comm.Point.Y = 4 comm.Point.Z = 6 ' set offset from reference object comm.Offset.X = 0.5 comm.Offset.Y = 1 comm.Offset.Z = 1.5 comm.Rotation = 1 ' set text of comment comm.Text = "testcomment" ' transfer object to program iGuiObj.PrepareModification iGuiObj.SetComment comm iGuiObj.FinishModification e: If Err.Number <> 0 Then MsgBox Err.description, , Err.Source Set iModelData = Nothing iModel.GetApplication.UnlockLicense Set iModel = Nothing
End Sub
Question
How can I create a comment via the COM interface?
Using the "Beam Panel" thickness type, you can model timber panel elements in 3D space. You just specify the surface geometry and the timber panel elements are generated using an internal member-surface construct, including the simulation of the connection flexibility.
You have the option to perform the fire resistance design of surfaces using the reduced cross-section method. The reduction is applied over the surface thickness. It is possible to perform the design checks for all timber materials allowed for the design.
For cross-laminated timber, depending on the type of adhesive, you can select whether it is possible for individual carbonized layer parts to fall off, and whether you can expect increased charring in certain layer areas.
Among others, the following cross-laminated timber manufacturers are available in the layer structure library:
- Binderholz (USA)
- KLH (USA, CAN)
- Kalesnikoff (USA, CAN)
- Nordic Structures (USA, CAN)
- Mercer Mass Timber
- SmartLam
- Sterling Structural
- Superstructures listed in Lignatec Edition 32 "Cross-Laminated Timber of Swiss Production"
By importing a structure from the layer structure library, all relevant parameters are adopted automatically. The library is continually updated.
The Timber Design add-on for RFEM 6 / RSTAB 9 is multi-purpose and combines a large number of additional elements. [*S16332764*] Timber Design Add-on for RFEM 6