Selección por comentario
El más simple puede ser que se hayan asignado los comentarios durante la creación de los elementos, que luego se pueden buscar específicamente. En el siguiente texto, se muestra un ejemplo de una función que busca barras por su comentario y devuelve los números de barra encontrados:
Function getMemberNosByComment(members() As RFEM5.Member, comment As String) As Integer()
Dim intArr() As Integer
Dim i As Long
Dim j As Long
j = 0
ReDim intArr(0 To 0)
' loop over members
For i = 0 To UBound(members, 1)
If (members(i).comment = comment) Then
' size if integer array is increased by 1
ReDim Preserve intArr(0 To j)
intArr(j) = members(i).no
j = j + 1
End If
Next i
' return integer array
getMemberNosByComment = intArr
End FunctionDie Funktion hat eine Schleife über die übergebenen Stäbe und wenn es zu einer Übereinstimmung mit der Zeichenkette in "comment" und dem Kommentar des Stabes kommt, wird die Stabnummer dem Integer-Feld hinzugefügt. Finalmente, se devuelve el campo numérico entero con todos los números de las barras.
Selección de los nudos del extremo de barra
Die Auswahl von Elementen im Programm und damit auch über die COM-Schnittstelle erfolgt mit Hilfe von Zeichenketten. So werden zum Beispiel bei einer Linie die zugehörigen Knoten über eine Zeichenkette übergeben, in der die Knotennummern per Komma getrennt gespeichert sind. Die Verwendung von Zeichenketten bedarf bei der Programmierung der Umwandlung in Zahlenwerte und umgekehrt. Im Folgenden daher die Funktion, welche die aus der obigen Funktion ermittelten Stabnummern in eine Zeichenkette umwandeln kann. Es werden die Stabnummern über die Funktion CStr einzeln in Zeichen umgewandelt und nach jeder Zahl wird der Zeichenkette ein Komma hinzugefügt. Das überflüssige Komma am Ende der Zeichenkette wird von RFEM/RSTAB ignoriert und kann daher bleiben.
Function intArrToStr(intArr() As Integer) As String
Dim str As String
Dim i As Long
For i = 0 To UBound(intArr, 1)
str = str + CStr(intArr(i)) + ","
Next i
intArrToStr = str
End FunctionMit Hilfe dieser Funktion ist es jetzt möglich, die durch Kommentar gefilterten Stäbe über die COM-Schnittstelle zu selektieren.
' select members by comment
Dim mems() As RFEM5.Member
Dim mem_nos() As Integer
Dim str As String
str = "test comment"
mem_nos = getMemberNosByComment(mems, str)
iModelData.EnableSelections (True)
str = intArrToStr(mem_nos)
iModelData.SelectObjects MemberObject, strOft genügt nicht nur die Selektion bestimmter Elemente, sondern es werden untergeordnete Elemente benötigt. Exemplarisch wird im Folgenden der Weg aufgezeigt, wie man die Startknoten eines Stabes finden kann. Da sich der Weg in RFEM etwas schwieriger gestaltet als in RSTAB, da hier zu jedem Stab noch eine Linie gehört, wurde dieser Weg gewählt.
Primero, hay que encontrar los números de línea que pertenecen a las barras. La siguiente función asume que los números de barras ya están disponibles y busca los números de línea relacionados.
Function getLineNosByMemberNos(members() As RFEM5.Member, member_nos() As Integer) As Integer()
Dim intArr() As Integer
Dim i As Long
Dim j As Long
Dim k As Long
k = 0
ReDim intArr(0 To 0)
For i = 0 To UBound(members, 1)
For j = 0 To UBound(member_nos, 1)
If (members(i).no = member_nos(j)) Then
' increase array size by 1
ReDim Preserve intArr(0 To k)
intArr(k) = members(i).LineNo
k = k + 1
' exit loop over member_nos
Exit For
End If
Next j
Next i
getLineNosByMemberNos = intArr
End FunctionEsta función tiene dos bucles anidados. El bucle principal recorre las barras y el bucle subordinado a través de los números de barras. Bei jedem Stab wird das Feld mit den Stabnummern komplett durchlaufen. Para acelerar este proceso, el sub-bucle se deja tan pronto como coincidan los números de barras. Cada vez que hay una coincidencia, se añade un elemento al campo que contiene los números de línea y se agrega el nuevo número (k es el índice para los números de línea encontrados).
Para encontrar el nudo de inicio de la línea o barra, se requiere otra función. Diese Funktion muss die Linien durchlaufen und bei einer Übereinstimmung mit den gegebenen Liniennummern den Startknoten auslesen. Como los números de nudo se almacenan en una cadena, se necesita una nueva función para convertir la secuencia en un campo numérico.
Function strToIntArr(intList As String) As Integer()
' possible chars "1-9 ; - ,"
' example: 1-4,5;100 > 1,2,3,4,5,100
Dim ints() As Integer
Dim tmpInts() As Integer
ReDim ints(0)
Dim span As Boolean
Dim curInt As String
curInt = ""
Dim i As Integer
i = 0
Dim j As Integer
Dim curChar As String
Do While (i > Len(intList))
curChar = Mid(intList, i + 1, 1)
' if string contains "-" a span is noted
If (curChar = "-") Then
span = True
tmpInts = ints
ReDim Preserve tmpInts(0 To UBound(tmpInts, 1) + 1)
tmpInts(UBound(tmpInts, 1) - 1) = CInt(curInt)
ints = tmpInts
curInt = ""
' if last char is reached or a comma or a semicolon is the next char
ElseIf ((curChar = ",") Or (curChar = ";") Or (i = Len(intList) - 1)) Then
' last char is reached, integer or span are terminated
If (i = Len(intList) - 1) Then
curInt = curInt & curChar
End If
' treat the span
If span Then
' create all integers between the span
Dim firstNum As Integer
Dim lastNum As Integer
firstNum = ints(UBound(ints, 1) - 1)
lastNum = CInt(curInt)
curInt = ""
If (firstNum > lastNum) Then
Dim tmp1 As Integer
tmp1 = lastNum
lastNum = firstNum
firstNum = tmp1
ints(UBound(ints, 1) - 1) = firstNum
End If
' extend ints and add new numbers to array
tmpInts = ints
ReDim Preserve tmpInts(0 To UBound(tmpInts, 1) + (lastNum - firstNum))
For j = 0 To (lastNum - firstNum) - 1
tmpInts(UBound(ints, 1) + j) = j + firstNum + 1
Next j
ints = tmpInts
span = False
' add new digit
Else
'extend ints and add new number to ints
tmpInts = ints
ReDim Preserve tmpInts(0 To UBound(tmpInts, 1) + 1)
tmpInts(UBound(tmpInts, 1) - 1) = CInt(curInt)
ints = tmpInts
curInt = ""
End If
Else
curInt = curInt & curChar
End If
i = i + 1
Loop
' array is one element too long and is decreased
ReDim Preserve ints(0 To UBound(ints, 1) - 1)
strToIntArr = ints
End FunctionEsta función recorre la cadena y analiza cada carácter. Wenn es sich um eine Zahl oder mehrere handelt, dann werden diese gesammelt, bis das Ende oder ein anderes Zeichen erreicht werden. Wenn ein Bindestrich erreicht wird, wird eine Reihe/Spanne von Zahlen erkannt und die Zahlen dazwischen automatisch generiert.
Die eigentliche Funktion zum Extrahieren des Startpunktes einer Linie kann jetzt erstellt werden und wird dadurch sehr übersichtlich.
Function getLineStartNodeNosByLineNos(lines() As RFEM5.RfLine, line_nos() As Integer) As Integer()
Dim intArr() As Integer
Dim tmpIntArr() As Integer
Dim str As String
Dim i As Long
Dim j As Long
Dim k As Long
k = 0
ReDim intArr(0 To 0)
For i = 0 To UBound(line_nos, 1)
For j = 0 To UBound(lines, 1)
If (lines(j).no = line_nos(i)) Then
' add found line number to array
ReDim Preserve intArr(0 To k)
str = lines(j).NodeList
tmpIntArr = strToIntArr(str)
intArr(k) = tmpIntArr(0)
k = k + 1
' exit loop over line_nos_cpy
Exit For
End If
Next j
Next i
getLineStartNodeNosByLineNos = intArr
End FunctionEs gibt auch hier wieder zwei verschachtelte Schlaufen, wie in der Funktion getLineNosByMemberNos. Diesmal ist die Reihenfolge von großer Bedeutung, da sonst die Zuordnung der Knoten zu den Linien verloren geht. Die äußere Schleife durchläuft die Liniennummern und wenn es innerhalb der inneren Schleife zur Übereinstimmung mit einer Linie kommt, werden mit der Funktion strToIntArr die Knotennummern extrahiert von denen hier die erste verwendet wird.
El procedimiento completo para obtener los nudos de inicio es el siguiente. En primer lugar, se recogen los números de línea de las barras con los números de barras correspondientes, seguidos por los nudos de inicio de línea.
' select start nodes from members
' get line numbers from all members
Dim line_nos() As Integer
line_nos = getLineNosByMemberNos(mems, mem_nos)
' get start numbers from all lines
Dim stNodes_nos() As Integer
stNodes_nos = getLineStartNodeNosByLineNos(lines, line_nos)Resumen y vista general
Die Funktion getLineNosByMemberNos bildet die Grundlage für weitere Selektionsfunktionen wie auch bei der Funktion getLineStartNodeNosByLineNos. Usando este patrón, puede, por ejemplo, encontrar cargas para las barras. Als Werkzeuge stehen dann noch die Funktionen strToIntArr und intArrToStr zur Verfügung mit deren Hilfe die Zeichenketten basierte Selektion von RFEM in Zahlenfelder umgewandelt werden kann.
Eine weitere Möglichkeit ist die Selektion über Koordinaten. Por ejemplo, puede especificar un espacio definido y seleccionar todos los elementos dentro de ese espacio. Esta forma de selección se describirá en un artículo futuro.