Pregunta:
¿Cómo puedo crear un comentario a través de la interfaz COM?
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:
Sub test_comment()
' get interface from the opened model and lock the licence/program
Atenuar iModel como RFEM5.IModel3
Set iModel = GetObject(, "RFEM5.Model")
iModel.GetApplication.LockLicense
On Error GoTo e
Atenuar iModelData como RFEM5.IModelData2
Establecer iModelData = iModel.GetModelData
Dim iGuiObj As RFEM5.IGuideObjects
Establecer iGuiObj = iModel.GetGuideObjects
Dim com As RFEM5.Comment
'establecer el tipo de trama
comm.Frame = CircularFrameType
'establecer el tipo de objeto de referencia
comm.ObjectType = GeneralObjectType
comm.ObjectNo = 1
'punto de ajuste si se elige GeneralObjectType
com.Punto.X = 2
com.Point.Y = 4
com.Point.Z = 6
'establecer el desplazamiento desde el objeto de referencia
com.Offset.X = 0.5
com.Offset.Y = 1
com.Offset.Z = 1.5
com.Rotation = 1
'establecer texto del comentario
comm.Text = "testcomment"
'transferir objeto al programa
iGuiObj.PrepareModification
iGuiObj.SetComment com
iGuiObj.FinishModification
e: If Err.Number 0 Then MsgBox Err.description, , Err.Source
Establecer iModelData = Nothing
iModel.GetApplication.UnlockLicense
Establecer iModel = Nothing
End Sub
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, el número del objeto de referencia se especifica mediante ObjectNo (por ejemplo, Barra 1). Si ha seleccionado un punto libre, se establece por Punto.
Finalmente, puede especificar un desplazamiento que resulta del objeto de referencia.
.png?mw=350&hash=d538a044ed58714e93ef2f2fb0fe731b25e855ee)
.png?mw=600&hash=49b6a289915d28aa461360f7308b092631b1446e)
