Description Checks if a node is a Directional Analysis Entity type.
Syntax daeFlag = IsDirectionalAnalysisEntity( entNode )
Parameters daeFlag (Boolean) Returned True if the entity being queried is a Directional Analysis Entity type. False otherwise.
entNode As Long Node number of the entity being checked.
Example The following example loops over entities in the document, checks to see if the current entity node is a Directional Analysis Entity type, issues a delete command and then prints the status of the deletion operation to the output window.
Sub Main
Dim ii As Long Dim success As Boolean Dim entName As String
For ii = GetEntityCount()-1 To 4 Step -1 If IsDirecitonalAnalysisEntity( ii ) Then entName = GetFullName( ii ) success = DeleteEntity( ii ) If success Then Print "Entity " & entName & " was deleted from the document." Else Print "Entity " & entName & " failed to delete." End If End If Next ii
Update
End Sub
See Also
|