Hi,
I'm trying to use the GetLatColumnEndDeflection in Excel VBA. The following code makes it to the GetLatColumnEndDeflection command, then stops. I have similar code using GetColForcesForLCase that works for the same element and load case just fine. Any ideas what might be causing the code to stop at GetLatColumnEndDeflection?
Here is my relevant code:
Function RamGetLatColDeflection(dbname As String, StoryNum As Long, ColumnNum As Long, loadcase As String, Optional ForceComponent As String)
Dim lRetVal As Long Dim i As Integer Dim pdE As Double, pdPoissonsRation As Double, pdDensity As Double, pdSelfWeight As Double Dim lLoadCase As Long Dim dX_Disp_Top As Double, dY_Disp_Top As Double, dZ_Disp_Top As Double, dX_Rot_Top As Double, dY_Rot_Top As Double, dZ_Rot_Top As Double, dX_Disp_Bot As Double, dY_Disp_Bot As Double, dZ_Disp_Bot As Double, dX_Rot_Bot As Double, dY_Rot_Bot As Double, dZ_Rot_Bot As Double Dim pdIMajGross As Double, pdIMinGross As Double, pdArea As Double, pdAvMaj As Double, pdAvMin As Double, pdJ As Double, pdCrackSectFactor As Double Set RAMDataAccGeom = RAMDataAcc.GetDispInterfacePointerByEnum(IModelGeometry_INT) Set RAMDataAccForce = RAMDataAcc.GetDispInterfacePointerByEnum(IForces_INT) Set RAMDataAccMemberData = RAMDataAcc.GetDispInterfacePointerByEnum(IMemberData_INT) RAMDataAccGeom.GetColumnGeomInfo ColumnNum, plBeamLabel, peGravOrLat, peMaterial, _ pdX1, pdY1, pdZ1, pdX2, pdY2, pdZ2, pdOrientation, plAtFnd RAMDataAccMemberData.GetSteelMemberMatlProps ColumnNum, pdE, pdPoissonsRation, pdDensity, pdSelfWeight, plAtFnd RAMDataAccMemberData.GetMemberSectionPropInfo ColumnNum, pdIMajGross, pdIMinGross, pdArea, pdAvMaj, pdAvMin, pdJ, pdCrackSectFactor If peGravOrLat = MemberIsGravity Then ' retrieve RAMFrame force for lateral member lLoadCase = FindLatLoadCase(loadcase) ' custom function If lLoadCase = -1 Then RamGetColForceDA = "Could Not Find Load Case" Else
' stops running on next line, ColumnNum and lLoadCase passed are valid RAMDataAccForce.GetColForcesForLCase ColumnNum, lLoadCase, pdAxial, pdMajMomI, pdMinMomI, pdMajShearI, pdMinShearI, pdTorsionI, pdMajMomJ, pdMinMomJ, pdMajShearJ, pdMinShearJ, pdTorsionJ
End If End If
End Function
Thanks,
Craig
Which version of RAM SS? Which version of Excel (32 bit or 64 bit)? Can you send the Excel file? I doubt the RAM SS model matters here, but if you need to send that too you can.