Risposta:
Quando si utilizza l'interfaccia COM (RF‑COM o RS‑COM), è possibile creare un commento utilizzando l'interfaccia dell'oggetto guida IGuideObjects. Quello che segue è un programma di esempio che crea un commento:Sottotest_comment()
' get interface from the opened model and lock the licence/programDim iModel As RFEM5.IModel3Set iModel = GetObject(, "RFEM5.Model")iModel.GetApplication.LockLicense
On Error GoTo e Dim iModelData come RFEM5.IModelData2Imposta iModelData = iModel.GetModelData Dim iGuiObj As RFEM5.IGuideObjectsImposta iGuiObj = iModel.GetGuideObjects Dim comm As RFEM5.Comment ' imposta il tipo di framecomm.Frame = CircularFrameType ' imposta il tipo di oggetto di riferimentocomm.ObjectType = GeneralObjectTypecomm.ObjectNo = 1 ' set point se si sceglie GeneralObjectTypePunto.Comm.X = 2punto.comm.Y = 4Punto.Comm.Z = 6 ' imposta l'offset dall'oggetto di riferimentoCom.Offset.X = 0.5Com.Offset.Y = 1Com.Offset.Z = 1.5comm.Rotazione = 1 ' imposta il testo del commentocomm.Text = "commento di prova" ' trasferisci oggetto al programmaiGuiObj.PrepareModificationiGuiObj.SetCommentiGuiObj.FinishModification e: If Err.Number <> 0 Then MsgBox Err.description, , Err.Source Imposta iModelData = NienteiModel.GetApplication.UnlockLicense Set iModel = Nothing
End SubLa selezione del riferimento o dell'elemento a cui si riferisce il commento è definita prima dal tipo ( ObjectType ). Qui è possibile selezionare, ad esempio, un'asta, un nodo o qualsiasi punto nello spazio. Successivamente, il numero dell'oggetto di riferimento viene specificato tramite ObjectNo (ad esempio, Asta 1). Se è stato selezionato un punto libero, questo sarà impostato da Punto.
Infine, è possibile specificare un offset che risulta dall'oggetto di riferimento.
.png?mw=600&hash=49b6a289915d28aa461360f7308b092631b1446e)
