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
Comment créer un commentaire via l'interface COM ?
L'interface directe avec Revit vous permet de mettre à jour le modèle Revit selon les modifications effectuées dans RFEM ou RSTAB. En fonction des changements apportés, il peut être nécessaire de supprimer des objets Revit, puis de les générer à nouveau. Cette opération est effectuée à l'aide du modèle RFEM/RSTAB.
Si vous souhaitez supprimer les objets à nouveaux générés, vous pouvez cocher la case 'Mettre à jour uniquement les matériaux, épaisseurs et sections'. Seules les propriétés des objets sont alors mises à jour. Dans ce cas, seules les modifications relatives aux matériaux, à l'épaisseur des surfaces et aux sections sont conservées.
Lorsque vous échangez des données avec Advance Steel au format *.smlx, l'interface est automatiquement détectée. Cela signifie que des fichiers * smlx peuvent être créés même si aucune version d'Advance Steel n'est installée.
Les panneaux OSB sont disponibles pour les États-Unis et le Canada dans RFEM. Les paramètres de matériau sont tirés du « Manuel des spécifications de calcul de panneau ».
Avec la fonction « Contreventement dans les cellules », vous pouvez générer des contreventements diagonales en quelques clics. Diese Funktion finden Sie unter Extras --> Modell generieren - Stäbe --> Verband in Zellen.