Respuesta:
Al utilizar la interfaz COM (RF-COM o RS-COM), puede crear un comentario utilizando la interfaz de objetos auxiliares "IGuideObjects". El siguiente es un programa de ejemplo que crea un comentario:
- código.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 As RFEM5.IModelData2
- Establecer iModelData = iModel.GetModelData
- Dim iGuiObj As RFEM5.IGuideObjects
- Establecer iGuiObj = iModel.GetGuideObjects
- Dim com As RFEM5.Comment
- ' establecer tipo de pórtico
- comm.Frame = CircularFrameType
- ' establecer tipo de objeto de referencia
- comm.ObjectType = GeneralObjectType
- comm.ObjectNo = 1
- ' punto de referencia si se elige GeneralObjectType
- com.Punto.X = 2
- com.Point.Y = 4
- com.Point.Z = 6
- ' establecer desviación desde el objeto de referencia
- com.Offset.X = 0.5
- com.Offset.Y = 1
- com.Offset.Z = 1.5
- com.Rotation = 1
- ' establecer el texto del comentario
- comm.Text = "comentario de prueba"
- ' transferir objeto al programa
- iGuiObj.PrepareModification
- iGuiObj.SetComment com
- iGuiObj.FinishModification
e: If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source
- Set iModelData = Nothing
- iModel.GetApplication.UnlockLicense
- Definir iModel = Nada
End Sub
#/code#
La selección de la referencia o el elemento al que se refiere el comentario se define primero por el tipo ( ObjectType ). Aquí, es posible seleccionar, por ejemplo, una barra, un nudo o cualquier punto en el espacio. A continuación, se especifica el número del objeto de referencia mediante ObjectNo (por ejemplo, Barra 1). Si ha seleccionado un punto libre, se establece mediante Punto.
Finalmente, puede especificar un desplazamiento que resulta del objeto de referencia.
Preguntas frecuentes (FAQ)
