Moves selected point, frame, cable, tendon, area, solid and link objects.
Namespace: ETABS2015Assembly: ETABS2015 (in ETABS2015.dll) Version: 15.0.0.0 (15.0.0.0)
int Move(
double DX,
double DY,
double DZ
)
Function Move ( _
DX As Double, _
DY As Double, _
DZ As Double _
) As Integer
int Move(
double DX,
double DY,
double DZ
)
Return Value
Returns zero if the move is successful; otherwise it returns a nonzero value.
Public Sub Example()
Dim SapModel As cSapModel
Dim EtabsObject As cOAPI
Dim ret As Integer = -1
EtabsObject = CreateObject("CSI.ETABS.API.ETABSObject")
ret = EtabsObject.ApplicationStart()
SapModel = EtabsObject.SapModel
ret = SapModel.InitializeNewModel()
ret = SapModel.File.NewSteelDeck(4,12,12,4,4,24,24)
ret = SapModel.SelectObj.ClearSelection
ret = SapModel.PointObj.SetSelected("8", True)
ret = SapModel.PointObj.SetSelected("16", True)
ret = SapModel.FrameObj.SetSelected("74", True)
ret = SapModel.PointObj.SetSelected("92", True)
ret = SapModel.PointObj.SetSelected("91", True)
ret = SapModel.FrameObj.SetSelected("166", True)
ret = SapModel.EditGeneral.Move(0, 0, -36)
EtabsObject.ApplicationExit(False)
SapModel = Nothing
EtabsObject = Nothing
End Sub
Public Sub Example()
Dim SapModel As cSapModel
Dim EtabsObject As cOAPI
Dim ret As Integer = -1
'create ETABS object
EtabsObject = CreateObject("CSI.ETABS.API.ETABSObject")
'start ETABS application
ret = EtabsObject.ApplicationStart()
'create SapModel object
SapModel = EtabsObject.SapModel
'initialize model
ret = SapModel.InitializeNewModel()
'create steel deck template model
ret = SapModel.File.NewSteelDeck(4,12,12,4,4,24,24)
'move objects
ret = SapModel.SelectObj.ClearSelection
ret = SapModel.PointObj.SetSelected("8", True)
ret = SapModel.PointObj.SetSelected("16", True)
ret = SapModel.FrameObj.SetSelected("74", True)
ret = SapModel.PointObj.SetSelected("92", True)
ret = SapModel.PointObj.SetSelected("91", True)
ret = SapModel.FrameObj.SetSelected("166", True)
ret = SapModel.EditGeneral.Move(0, 0, -36)
'close ETABS
EtabsObject.ApplicationExit(False)
'clean up variables
SapModel = Nothing
EtabsObject = Nothing
End Sub