() |
#
# Purpose : This file provides an example of a call to the
# function fem_renum_elem_1()
#
# This session file creates a new database by
# name new.db. Four nodes and four bar elements
# using the nodes are created. This function is
# then called to renumber the element identifiers
# to consecutive odd numbers.
#
# This file can be run by starting a session of
# Patran, and running this session file
# through the "File","Session","Play" pulldown
# menus on the menu bar.
#
# The function fem_renum_elem()
# has the following arguments:
#
# fem_renum_elem_1
# ( original_selection,
# new_selection,
# flag,
# created_selection )
#
#---------------------------------------------------------------------
# Variable Declarations
STRING s_original_selection[128]
STRING s_new_selection[128]
STRING sv_created_selection[VIRTUAL]
STRING sv_fem_nodes_created[VIRTUAL]
STRING s_fem_elements_created[32]
INTEGER i_return_value
INTEGER i_flag
#---------------------------------------------------------------------
# Open a new database "new.db"
uil_file_new.go("","new.db")
$? YES 36000002
#---------------------------------------------------------------------
# Create 4 nodes without associating with any geometry
i_return_value = @
fem_create_nodes @
( "Coord 0", "Coord 0", FALSE, "1", @
"[2 2 0][1 7 0][9 6 0][8 1 0]", sv_fem_nodes_created)
dump i_return_value
node_label( TRUE )
bar_elem_label( TRUE )
#---------------------------------------------------------------------
# Create 4 bar elements using the nodes
#
i_return_value = @
fem_create_elems @
( "Bar ", "Bar2", "1", "Standard", TRUE, @
"Node 1 2 3 4", "Node 2 3 4 1", "", "", @
"", "", "", "", s_fem_elements_created)
dump i_return_value
#---------------------------------------------------------------------
# Session file paused. Press "Resume" to continue.
sf_pause()
#---------------------------------------------------------------------
# Renumber the elements to consecutive odd numbers
s_original_selection = "Elm 1:4"
s_new_selection = "1 3 5 7"
i_return_value = @
fem_renum_elem_1 @
( s_original_selection, @
s_new_selection, @
sv_created_selection
i_flag)
dump i_return_value
dump sv_created_selection
sys_free_string(sv_created_selection)
sys_free_string(sv_fem_nodes_created)
#---------------------------------------------------------------------
() |
#
# Purpose : This file provides an example of a call to the
# function fem_renum_node_1()
#
# This session file creates a new database by
# name new.db. Four nodes are created first. This
# function is then called to renumber the node
# identifiers to consecutive even numbers.
#
# This file can be run by starting a session of
# Patran, and running this session file
# through the "File","Session","Play" pulldown
# menus on the menu bar.
#
# The function fem_renum_node()
# has the following arguments:
#
# fem_renum_node_1
# ( original_selection,
# new_selection,
# created_selection,
# flag)
#
#---------------------------------------------------------------------
# Variable Declarations
STRING s_original_selection[32]
STRING s_new_selection[32]
STRING sv_created_selection[VIRTUAL]
STRING sv_fem_nodes_created[VIRTUAL]
INTEGER i_return_value
INTEGER i_flag
#---------------------------------------------------------------------
# Open a new database "new.db"
uil_file_new.go("","new.db")
$? YES 36000002
#---------------------------------------------------------------------
# Create 4 nodes without associating with any geometry
i_return_value = @
fem_create_nodes @
( "Coord 0", "Coord 0", FALSE, "1", @
"[2 2 0][1 7 0][9 6 0][8 1 0]", sv_fem_nodes_created)
dump i_return_value
node_label( TRUE )
#---------------------------------------------------------------------
# Session file paused. Press "Resume" to continue.
sf_pause()
#---------------------------------------------------------------------
# Renumber the nodes to consecutive even numbers
s_original_selection = "Node 1:4"
s_new_selection = "2 4 6 8"
i_return_value = @
fem_renum_node_1 @
( s_original_selection, @
s_new_selection, @
sv_created_selection
i_flag)
dump i_return_value
dump sv_created_selection
sys_free_string(sv_created_selection)
sys_free_string(sv_fem_nodes_created)
#---------------------------------------------------------------------