Domanda:
Come posso creare un commento tramite l'interfaccia COM?
Risposta:
Quando si utilizza l'interfaccia COM (RF ‑ COM o RS ‑ COM), è possibile creare un commento utilizzando l'interfaccia oggetto guida IGuideObjects. Il seguente è un programma di esempio che crea un commento:
Sottotest_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 come RFEM5.IModelData2
Imposta iModelData = iModel.GetModelData
Dim iGuiObj As RFEM5.IGuideObjects
Imposta iGuiObj = iModel.GetGuideObjects
Dim comm As RFEM5.Comment
'imposta il tipo di frame
comm.Frame = CircularFrameType
'imposta il tipo di oggetto di riferimento
comm.ObjectType = GeneralObjectType
com.OggettoNr = 1
'setpoint se si seleziona GeneralObjectType
Punto.com.X = 2
Punto.com.Y = 4
Punto.com.Z = 6
'imposta offset dall'oggetto di riferimento
comm.Offset.X = 0.5
comm.Offset.Y = 1
comm.Offset.Z = 1.5
comm.Rotation = 1
'imposta il testo del commento
comm.Text = "testcomment"
'trasferisce l'oggetto al programma
iGuiObj.PrepareModification
iGuiObj.SetComment comm
iGuiObj.FinishModification
e: If Err.Number 0 Then MsgBox Err.description,, Err.Source
Imposta iModelData = Nothing
iModel.GetApplication.UnlockLicense
Imposta iModel = Nothing
End Sub
La 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 un punto qualsiasi nello spazio. Successivamente, il numero dell'oggetto di riferimento viene specificato tramite ObjectNo (ad esempio, Asta 1). Se è stato selezionato un punto libero, sarà impostato da Punto.
Infine, è possibile specificare un offset che risulta dall'oggetto di riferimento.