::hwat::utils::CreateSystem

Creates a new coordinate system, assigns it to a parent.

Syntax

::hwat::utils::CreateSystem n_nodeList n_type d_originXYZ d_xAxisXYZ d_yAxisXYZ [n_parentSysID] [str_collectorName]

Arguments

n_nodeList
A Tcl list of node IDs on which to create the system.
n_type
The type of the system
0
rectangular
1
cylindrical
2
spherical
d_originXYZ
A Tcl list containing the x, y and z coordinates of the origin.
d_xAxisXYZ
A Tcl list containing the x, y, and z coordinates of a point on the x-axis.
d_yAxisXYZ
A Tcl list containing the x, y, and z coordinates of a point on the y-axis.
n_parentSysID
Parent system ID.
Default = 0
str_collectorName
Name of the system collector into which the new system will be stored.
Default = 0

Returns

Success
ID of the system created
Failure
{}

Example

::hwat::utils:: CreateSystem {100 101 102 103} 0 {0 0 0} {0 01} {0 1 0}

Comments

If the str_collectorName already exists, the new system is placed there. Otherwise, the collector is created automatically.