Deletes special point objects that have no other objects connected to them.
Namespace: ETABS2015Assembly: ETABS2015 (in ETABS2015.dll) Version: 15.0.0.0 (15.0.0.0)
int DeleteSpecialPoint(
string Name,
eItemType ItemType = eItemType.Objects
)
Function DeleteSpecialPoint ( _
Name As String, _
Optional ItemType As eItemType = eItemType.Objects _
) As Integer
int DeleteSpecialPoint(
String^ Name,
eItemType ItemType = eItemType::Objects
)
Parameters
- Name
- Type:
System String
The name of an existing point object or group depending on the
value of the ItemType item.
- ItemType (Optional)
- Type: ETABS2015 eItemType
This is one of the following items in the eItemType enumeration:
- Object = 0
- Group = 1
- SelectedObjects = 2
If Objects is selected, the deletion applies
to the point object specified by the Name item.
If Group is selected, the deletion applies
to all point objects in the group specified by the Name item.
If SelectedObjects is selected, the deletion
applies to all selected point objects, and the Name item is ignored.
Return Value
Returns zero if the function completes successfully,
otherwise it returns a nonzero value.
Point objects can be deleted only if they have no other objects
(e.g., frame, cable, tendon, area, solid link) connected to them.
If a point object is not specified to be a Special Point,
the program automatically deletes that point object when it has
no other objects connected to it. If a point object is specified
to be a Special Point, to delete it, first delete all other objects
connected to the point and then call this function to delete the point.
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.PointObj.SetSpecialPoint("3", True)
ret = SapModel.FrameObj.Delete("2")
ret = SapModel.FrameObj.Delete("8")
ret = SapModel.PointObj.DeleteSpecialPoint("3")
EtabsObject.ApplicationExit(False)
SapModel = Nothing
EtabsObject = Nothing
End SubPublic 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)
'set as special point
ret = SapModel.PointObj.SetSpecialPoint("3", True)
'delete frame objects
ret = SapModel.FrameObj.Delete("2")
ret = SapModel.FrameObj.Delete("8")
'delete special point object
ret = SapModel.PointObj.DeleteSpecialPoint("3")
'close ETABS
EtabsObject.ApplicationExit(False)
'clean up variables
SapModel = Nothing
EtabsObject = Nothing
End Sub