Löschen eines einzelnen Elements

[muehlhoe]

Hallo noch ein Problem:

Im IrsStructuralData - Obkjekt ist es soweit ich in der Typelib erkennen kann möglich alle Objekte zu löschen (rsDeleteStructuralData) nicht aber einzelne Objekte. (z.B. nur einen Knoten-Punkt)

Gibt es hierfür eine Lösung ?


mfg


PeterM

[Walter Rustler]

AW: Löschen eines einzelnen Elements

Hallo Peter,

das Löschen von Stäben kann wie folgt erfolgen:

'Löschen von Stäben in RSTAB6
Sub DelMember()
Dim RSPos As RSTAB6.Structure
Dim RSTopo As RSTAB6.IrsStructuralData
Dim i As Integer
Set RSPos = GetObject(, "RSTAB6.Structure")
RSPos.rsGetApplication.rsLockLicence
Set RSTopo = RSPos.rsGetStructuralData

On Error GoTo e

RSTopo.rsPrepareModification
'Löscht den Stab mit der Nummer 10
RSTopo.rsGetMember(10, AT_NO).rsDelete
RSTopo.rsFinishModification

e:
If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source

Set RSTopo = Nothing
RSPos.rsGetApplication.rsUnlockLicence
Set RSPos = Nothing

End Sub

Auf die gleiche Art kann man auch Knoten, Gelenke, Lager etc l&#246;schen.

Viele Gr&#252;&#223;e
Walter Rustler
Ing.-Software Dlubal