Tweet
Liebe RS-Com - Gemeinde!
Ich arbeite gerade an einem Importmodul für Rstab6 mittels VB.net / Visual Studio 2008
Ich hab beim Erstellen einer Struktur samt Auflager mittels Com das Problem, dass ich beim Berechnungsstart immer folgende Fehlermeldung bekomme:
RSTAB Warnung Nr. 56
Struktur nicht in globaler Richtung Y gelagert!
Wollen Sie die Kontrolle abbrechen!
Typ der Struktur 2d in XZ; ZAchse nach unten
Im Auflagerdialogfeld sind alle Eingaben richtig ersichtlich!
Wenn man allerdings das Auflager nachträglich verändert (z.B. dreht),
funktioniert das Auflager plötzlich richtig. Dabei ist es egal, ob man das Auflager manuell in Rstab oder mittels Code über Com ändert.
Ich kann mir nicht mehr vorstellen, an was das liegen könnte!
Zur Fehlersuche hab ich das ganze in einem vereinfachten Projekt nachgebildet - den Code hab ich angehängt!
Bin für alle Lösungsvorschläge dankbar
Grüsse
Manfred
Ich arbeite gerade an einem Importmodul für Rstab6 mittels VB.net / Visual Studio 2008
Ich hab beim Erstellen einer Struktur samt Auflager mittels Com das Problem, dass ich beim Berechnungsstart immer folgende Fehlermeldung bekomme:
RSTAB Warnung Nr. 56
Struktur nicht in globaler Richtung Y gelagert!
Wollen Sie die Kontrolle abbrechen!
Typ der Struktur 2d in XZ; ZAchse nach unten
Im Auflagerdialogfeld sind alle Eingaben richtig ersichtlich!
Wenn man allerdings das Auflager nachträglich verändert (z.B. dreht),
funktioniert das Auflager plötzlich richtig. Dabei ist es egal, ob man das Auflager manuell in Rstab oder mittels Code über Com ändert.
Ich kann mir nicht mehr vorstellen, an was das liegen könnte!
Zur Fehlersuche hab ich das ganze in einem vereinfachten Projekt nachgebildet - den Code hab ich angehängt!
Bin für alle Lösungsvorschläge dankbar
Grüsse
Manfred
PHP-Code:
Imports RSTAB6
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim RS_App As IrsApplication
Dim RS_Structure As IrsStructure
Dim RS_StructureData As IrsStructuralData
Dim knotendaten() As RSTAB6.RS_NODE
Dim materialdaten As RSTAB6.RS_MATERIAL
Dim querschnittdaten As RSTAB6.RS_CROSS_SECTION
Dim stabdaten As RSTAB6.RS_MEMBER
Dim lagerdaten As RSTAB6.RS_NODE_SUPPORT
RS_App = GetObject(, "RSTAB6.Application")
RS_Structure = GetObject(, "RSTAB6.Structure")
ReDim knotendaten(2)
knotendaten(0).iNo = 1
knotendaten(0).iRefNodeNo = 0
knotendaten(0).csType = 0
knotendaten(0).x = 0
knotendaten(0).y = 0
knotendaten(0).z = 0
knotendaten(0).strComment = ""
knotendaten(0).ID = ""
knotendaten(1).iNo = 2
knotendaten(1).iRefNodeNo = 0
knotendaten(1).csType = 0
knotendaten(1).x = 1
knotendaten(1).y = 0
knotendaten(1).z = 0
knotendaten(1).strComment = ""
knotendaten(1).ID = ""
materialdaten.iNo = "1"
materialdaten.strDescription = "Baustahl S 235"
materialdaten.strNameTextID = "NameID|Baustahl S 235@TypeID|STEEL@NormID|DIN EN 1993-1-1"
materialdaten.fE = "210000000000"
materialdaten.fG = "81000000000"
materialdaten.fRho = "78500"
materialdaten.fAlpha = "1,2E-05"
materialdaten.fGammaM = "1,1"
materialdaten.strComment = ""
materialdaten.ID = ""
querschnittdaten.iNo = "1"
querschnittdaten.strDescription = "2UR U 120-50"
querschnittdaten.strNameTextID = "2UR U 120-50"
querschnittdaten.iMaterialNo = "1"
querschnittdaten.fIT = "3,42162934430235E-06"
querschnittdaten.fIy = "7,27999986338546E-06"
querschnittdaten.fIz = "6,57940017845249E-06"
querschnittdaten.fA = "0,00340000004507601"
querschnittdaten.fAy = "0,00167646825748607"
querschnittdaten.fAz = "0,00138829113419021"
querschnittdaten.fAlpha = "0"
querschnittdaten.strComment = ""
querschnittdaten.ID = ""
stabdaten.iNo = "1"
stabdaten.type = RS_MEMBER_TYPE.MT_BEAM
stabdaten.iStartNodeNo = "1"
stabdaten.iEndNodeNo = "2"
stabdaten.rotationType = "0"
stabdaten.fRotationAngle = "0"
stabdaten.iStartCrossSectionNo = "1"
stabdaten.iEndCrossSectionNo = "1"
stabdaten.iStartReleaseNo = "0"
stabdaten.iEndReleaseNo = "0"
stabdaten.iEccentricityNo = "0"
stabdaten.iDivisionNo = "0"
stabdaten.TaperType = "0"
stabdaten.iFoundNo = "0"
stabdaten.iNLNo = "0"
stabdaten.rotationNode.axis = "0"
stabdaten.rotationNode.iNodeNo = "0"
stabdaten.strComment = ""
stabdaten.ID = ""
lagerdaten.iNo = "1"
lagerdaten.strNodeList = "1,2"
lagerdaten.rotationSequence = 0
lagerdaten.rotation.x = "0"
lagerdaten.rotation.y = "0"
lagerdaten.rotation.z = "0"
lagerdaten.fuX = "-1"
lagerdaten.fuY = "-1"
lagerdaten.fuZ = "-1"
lagerdaten.nluX = "0"
lagerdaten.nluY = "0"
lagerdaten.nluZ = "0"
lagerdaten.fPhiX = "-1"
lagerdaten.fPhiY = "0"
lagerdaten.fPhiZ = "-1"
lagerdaten.nlPhiX = "0"
lagerdaten.nlPhiY = "0"
lagerdaten.nlPhiZ = "0"
lagerdaten.strComment = ""
lagerdaten.ID = ""
RS_App.rsLockLicence()
RS_StructureData = RS_Structure.rsGetStructuralData
RS_StructureData.rsPrepareModification()
RS_StructureData.rsSetNodeArr(UBound(knotendaten), knotendaten)
RS_StructureData.rsSetMaterial(materialdaten)
RS_StructureData.rsSetCrossSection(querschnittdaten)
RS_StructureData.rsSetMember(stabdaten)
RS_StructureData.rsSetNodeSupport(lagerdaten)
RS_StructureData.rsFinishModification()
RS_App.rsUnlockLicence()
RS_Structure = Nothing
RS_StructureData = Nothing
RS_App = Nothing
End Sub
End Class
Kommentar