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:
- code.vb#
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 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 telaio
- comm.Frame = CircularFrameType
- ' imposta il tipo di oggetto di riferimento
- comm.ObjectType = GeneralObjectType
- com.OggettoNr = 1
- ' set point se si sceglie GeneralObjectType
- Punto.com.X = 2
- Punto.com.Y = 4
- Punto.com.Z = 6
- ' imposta l'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 = Niente
- iModel.GetApplication.UnlockLicense
- Imposta iModel = Niente
End Sub
- /codice#
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 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.
