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
Dotaz
Jak mohu vytvořit komentář přes rozhraní COM?
Typ tloušťky "Nosník" umožňuje modelovat dřevěné deskové prvky ve 3D prostoru. Jednoduše definujete geometrii plochy a dřevěné deskové prvky se vygenerují pomocí vnitřní konstrukce prut-plocha, včetně simulace poddajnosti spoje.
Pomocí komponenty "Žebro" můžete velmi rychle zadat libovolný počet podélných žeber na plechu prutu. Zadáním referenčního objektu lze na něm také automaticky zadat svary.
Máte možnost posoudit plochy na požární odolnost metodou redukovaného průřezu. Redukuje se tloušťka plochy. Posuzovat lze všechny dřevěné materiály, které byly schváleny k posouzení.
U křížem lepeného dřeva lze v závislosti na typu lepidla zvolit, zda mohou jednotlivé zuhelnatělé části vrstev odpadávat, a je proto třeba počítat v některých oblastech se zvýšeným odhoříváním.
V databázi skladeb vrstev jsou k dispozici následující výrobci křížem lepeného dřeva:
- Binderholz (USA)
- KLH (USA, CAN)
- Kalesnikoff (USA, CAN)
- Nordic Structures (USA, CAN)
- Mercer Mass Timber
- SmartLam
- Sterling Structural
- Skladby, které jsou uvedeny v edici Lignatec 32 "Křížem lepené dřevo švýcarské výroby"
Načtením skladby z databáze skladeb vrstev se vám automaticky převezmou všechny příslušné parametry. Databáze se pro vás neustále rozšiřuje.