() |
#
# Purpose : This file provides an example of a call to the
# function fem_delete_elem_and_node()
#
# This file opens a new database, and creates
# a surface. It meshes the surface and deletes
# one element and its associated nodes.
#
# This file can be run by starting a session of
# Patran, through the "File","Session",
# "Play" pulldown menus on the menu bar.
#
# The function fem_delete_elem_and_node()
# has the following arguments:
#
# fem_delete_elem_and_node
# ( element_select,
# deleted_elements )
#
#---------------------------------------------------------------------
# Variable Declarations
STRING sv_element_select[VIRTUAL]
STRING sv_deleted_elements[VIRTUAL]
INTEGER i_return_value
INTEGER i_surfa_num_nodes
INTEGER i_surfa_num_elems
STRING sv_mesh_s_nodes_created[VIRTUAL]
STRING sv_mesh_s_elems_created[VIRTUAL]
STRING sv_patch_xy_created_ids[VIRTUAL]
INTEGER i_num_elems
INTEGER i_num_nodes
#---------------------------------------------------------------------
# Open a new database "new.db"
uil_file_new.go("","new.db")
$? YES 36000002
#---------------------------------------------------------------------
# Create a Surface
i_return_value = @
asm_const_patch_xyz @
( "1", "<1 1 0>", "[0 0 0]", "Coord 0", @
sv_patch_xy_created_ids )
dump i_return_value
#---------------------------------------------------------------------
# Mesh the Surface
i_return_value = @
fem_create_mesh_surf_2 @
( "IsoMesh", 0, "Surface 1 ", 1, [0.5], "Quad4", @
"1", "1", "Coord 0", "Coord 0", @
i_surfa_num_nodes, i_surfa_num_elems, @
sv_mesh_s_nodes_created, sv_mesh_s_elems_created )
dump i_return_value
dump sv_mesh_s_nodes_created
dump sv_mesh_s_elems_created
node_label( TRUE )
quad_elem_label( TRUE )
#---------------------------------------------------------------------
# Session file paused. Press "Resume" to continue.
sf_pause()
#---------------------------------------------------------------------
# Delete a Element and associated nodes
sv_element_select = "Elm 3 "
i_return_value = @
fem_delete_elem_and_node @
( sv_element_select, @
sv_deleted_elements )
dump i_return_value
dump sv_deleted_elements
#---------------------------------------------------------------------
# Get the count of elements
i_return_value = @
db_count_elems (i_num_elems )
dump i_num_elems
dump i_return_value
#---------------------------------------------------------------------
# Get the count of nodes
i_return_value = @
db_count_nodes (i_num_nodes )
dump i_num_nodes
dump i_return_value
#---------------------------------------------------------------------
sys_free_string( sv_element_select)
sys_free_string(sv_patch_xy_created_ids)
sys_free_string(sv_mesh_s_nodes_created)
sys_free_string(sv_mesh_s_elems_created)
sys_free_string(sv_deleted_elements)
#---------------------------------------------------------------------
() |
#
# Purpose : This file provides an example of a call to the
# function fem_delete_element()
#
# This file opens a new database and creates a
# surface. It meshes the surface and then
# deletes one element from it.
#
# 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_delete_element()
# has the following arguments:
#
# fem_delete_element
# ( element_select,
# deleted_elements )
#
#---------------------------------------------------------------------
# Variable Declarations
STRING sv_element_select[VIRTUAL]
STRING sv_deleted_elements[VIRTUAL]
INTEGER i_return_value
STRING sv_patch_xy_created_ids[VIRTUAL]
INTEGER i_surfa_num_nodes
INTEGER i_surfa_num_elems
STRING sv_mesh_s_nodes_created[VIRTUAL]
STRING sv_mesh_s_elems_created[VIRTUAL]
INTEGER i_num_elems
INTEGER i_num_nodes
#---------------------------------------------------------------------
# Open a new database "new.db"
uil_file_new.go("","new.db")
$? YES 36000002
#---------------------------------------------------------------------
# Create a Surface
i_return_value = @
asm_const_patch_xyz @
( "1", "<1 1 0>", "[0 0 0]", "Coord 0", @
sv_patch_xy_created_ids )
dump i_return_value
#---------------------------------------------------------------------
# Mesh the Surface
i_return_value = @
fem_create_mesh_surf_2 @
( "IsoMesh", 0, "Surface 1 ", 1, [0.5], "Quad4", @
"1", "1", "Coord 0", "Coord 0", @
i_surfa_num_nodes, i_surfa_num_elems, @
sv_mesh_s_nodes_created, sv_mesh_s_elems_created )
dump i_return_value
dump sv_mesh_s_nodes_created
dump sv_mesh_s_elems_created
node_label( TRUE )
quad_elem_label( TRUE )
#---------------------------------------------------------------------
# Session file paused. Press "Resume" to continue.
sf_pause()
#---------------------------------------------------------------------
# Delete a element from the surface
sv_element_select = "Elm 4 "
i_return_value = @
fem_delete_element @
( sv_element_select, @
sv_deleted_elements )
dump i_return_value
dump sv_deleted_elements
#---------------------------------------------------------------------
# Get the count of elemts
i_return_value = @
db_count_elems (i_num_elems )
dump i_num_elems
dump i_return_value
#---------------------------------------------------------------------
# Get the count of nodes
i_return_value = @
db_count_nodes (i_num_nodes )
dump i_num_nodes
dump i_return_value
sys_free_string(sv_element_select)
sys_free_string(sv_patch_xy_created_ids)
sys_free_string(sv_mesh_s_nodes_created)
sys_free_string(sv_mesh_s_elems_created)
sys_free_string(sv_deleted_elements)
#---------------------------------------------------------------------
() |
#
# Purpose : This file provides an example of a call to the
# function fem_delete_free_node()
#
# This file opens a new database, and creates
# a surface. It meshes the surface and deletes
# a element leaving a free node on surface.
# It deletes the free node using function.
#
# 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_delete_free_node()
# has the following arguments:
#
# fem_delete_free_node
# ( node_select,
# deleted_nodes,
# not_found_nodes )
#
#---------------------------------------------------------------------
# Variable Declarations
STRING sv_node_select[VIRTUAL]
STRING sv_deleted_nodes[VIRTUAL]
STRING sv_not_found_nodes[VIRTUAL]
INTEGER i_return_value
STRING sv_patch_xy_created_ids[VIRTUAL]
INTEGER i_surfa_num_nodes
INTEGER i_surfa_num_elems
STRING sv_mesh_s_nodes_created[VIRTUAL]
STRING sv_mesh_s_elems_created[VIRTUAL]
STRING sv_element_select[VIRTUAL]
STRING sv_deleted_elements[VIRTUAL]
INTEGER i_num_elems
INTEGER i_num_nodes
#---------------------------------------------------------------------
# Open a new database "new.db"
uil_file_new.go("","new.db")
$? YES 36000002
#---------------------------------------------------------------------
# Create a Surface
i_return_value = @
asm_const_patch_xyz @
( "1", "<1 1 0>", "[0 0 0]", "Coord 0", @
sv_patch_xy_created_ids )
dump i_return_value
#---------------------------------------------------------------------
# Mesh the Surface
i_return_value = @
fem_create_mesh_surf_2 @
( "IsoMesh", 0, "Surface 1 ", 1, [0.5], "Quad4", @
"1", "1", "Coord 0", "Coord 0", @
i_surfa_num_nodes, i_surfa_num_elems, @
sv_mesh_s_nodes_created, sv_mesh_s_elems_created )
dump i_return_value
dump sv_mesh_s_nodes_created
dump sv_mesh_s_elems_created
node_label( TRUE )
quad_elem_label( TRUE )
#---------------------------------------------------------------------
# Delete a element from the mesh
sv_element_select = "Elm 4 "
i_return_value = @
fem_delete_element @
( sv_element_select, @
sv_deleted_elements )
dump i_return_value
dump sv_deleted_elements
#---------------------------------------------------------------------
# Session file paused. Press "Resume" to continue.
sf_pause()
#---------------------------------------------------------------------
# Delete free nodes from the mesh
sv_node_select = "Node 1:9 "
i_return_value = @
fem_delete_free_node @
( sv_node_select, @
sv_deleted_nodes, @
sv_not_found_nodes )
dump i_return_value
dump sv_deleted_nodes
dump sv_not_found_nodes
#---------------------------------------------------------------------
# Get the count of elements
i_return_value = @
db_count_elems (i_num_elems )
dump i_num_elems
dump i_return_value
#---------------------------------------------------------------------
# Get the count of nodes
i_return_value = @
db_count_nodes (i_num_nodes )
dump i_num_nodes
dump i_return_value
sys_free_string(sv_patch_xy_created_ids)
sys_free_string(sv_mesh_s_nodes_created)
sys_free_string(sv_mesh_s_elems_created)
sys_free_string(sv_deleted_elements)
sys_free_string(sv_deleted_nodes)
sys_free_string(sv_not_found_nodes)
sys_free_string(sv_node_select)
sys_free_string(sv_element_select)
#---------------------------------------------------------------------
() |
#
# Purpose : This file provides an example of a call to the
# function fem_delete_mesh_from_curve()
#
# This file opens a new database "new.db" and
# creates a curve and meshes it. Then it deletes
# the mesh from the curve.
#
# This file can be run by starting a session of
# Patran, through the "File","Session",
# "Play" pulldown menus on the menu bar.
#
# The function fem_delete_mesh_from_curve()
# has the following arguments:
#
# fem_delete_mesh_from_curve
# ( curve_select,
# deleted_mesh,
# not_found_mesh )
#
#---------------------------------------------------------------------
# Variable Declarations
STRING sv_curve_select[VIRTUAL]
STRING sv_deleted_mesh[VIRTUAL]
STRING sv_not_found_mesh[VIRTUAL]
INTEGER i_return_value
STRING sv_line_xyz_created_ids[VIRTUAL]
INTEGER i_curve_num_nodes
INTEGER i_curve_num_elems
STRING sv_c_nodes_created[VIRTUAL]
STRING sv_c_elems_created[VIRTUAL]
#---------------------------------------------------------------------
# Open a new database "new.db"
uil_file_new.go("","new.db")
$? YES 36000002
#---------------------------------------------------------------------
# Create a Curve
i_return_value = @
asm_const_line_xyz( "1", "<1 0 0>", "[0 0 0]", "Coord 0", @
sv_line_xyz_created_ids )
dump i_return_value
#---------------------------------------------------------------------
# Mesh the Curve
i_return_value = @
fem_create_mesh_curv( "Curve 1 ", 0.1, "Bar2", "1", @
"1", "Coord 0", "Coord 0", @
i_curve_num_nodes, @
i_curve_num_elems, @
sv_c_nodes_created, @
sv_c_elems_created )
dump i_return_value
bar_elem_label ( TRUE )
#---------------------------------------------------------------------
# Session file paused. Press "Resume" to continue.
sf_pause()
#---------------------------------------------------------------------
# Delete the mesh on the Curve
sv_curve_select = "Curve 1 "
i_return_value = @
fem_delete_mesh_from_curve @
( sv_curve_select, @
sv_deleted_mesh, @
sv_not_found_mesh )
dump i_return_value
dump sv_deleted_mesh
dump sv_not_found_mesh
sys_free_string(sv_curve_select)
sys_free_string(sv_line_xyz_created_ids)
sys_free_string(sv_c_nodes_created)
sys_free_string(sv_c_elems_created)
sys_free_string(sv_deleted_mesh)
sys_free_string(sv_not_found_mesh)
#---------------------------------------------------------------------
() |
#
# Purpose : This file provides an example of a call to the
# function fem_delete_mesh_from_surface()
#
# This file opens a new database "new.db"
# and creates a mesh on it. Then deletes the
# mesh from the surface using the function.
#
# This file can be run by starting a session of
# Patran, through the "File","Session",
# "Play" pulldown menus on the menu bar.
#
# The function fem_delete_mesh_from_surface()
# has the following arguments:
#
# fem_delete_mesh_from_surface
# ( surface_select,
# deleted_mesh,
# not_found_mesh )
#
#---------------------------------------------------------------------
# Variable Declarations
STRING sv_surface_select[VIRTUAL]
STRING sv_deleted_mesh[VIRTUAL]
STRING sv_not_found_mesh[VIRTUAL]
INTEGER i_return_value
STRING sv_patch_xy_created_ids[VIRTUAL]
INTEGER i_surfa_num_nodes
INTEGER i_surfa_num_elems
STRING sv_mesh_s_nodes_created[VIRTUAL]
STRING sv_mesh_s_elems_created[VIRTUAL]
#---------------------------------------------------------------------
# Open a new database "new.db"
uil_file_new.go("","new.db")
$? YES 36000002
#---------------------------------------------------------------------
# Create a Surface
i_return_value = @
asm_const_patch_xyz @
( "1", "<1 1 0>", "[0 0 0]", "Coord 0", @
sv_patch_xy_created_ids )
dump i_return_value
#---------------------------------------------------------------------
# Mesh the Surface
i_return_value = @
fem_create_mesh_surf_2 @
( "IsoMesh", 0, "Surface 1 ", 1, [0.5], "Quad4", @
"1", "1", "Coord 0", "Coord 0", @
i_surfa_num_nodes, i_surfa_num_elems, @
sv_mesh_s_nodes_created, sv_mesh_s_elems_created )
dump i_return_value
dump sv_mesh_s_nodes_created
dump sv_mesh_s_elems_created
quad_elem_label( TRUE )
#---------------------------------------------------------------------
# Session file paused. Press "Resume" to continue.
sf_pause()
#---------------------------------------------------------------------
# Delete the mesh from the Surface
sv_surface_select = "Surface 1 "
i_return_value = @
fem_delete_mesh_from_surface @
( sv_surface_select, @
sv_deleted_mesh, @
sv_not_found_mesh )
dump i_return_value
dump sv_deleted_mesh
dump sv_not_found_mesh
sys_free_string(sv_surface_select)
sys_free_string(sv_patch_xy_created_ids)
sys_free_string(sv_mesh_s_nodes_created)
sys_free_string(sv_mesh_s_elems_created)
sys_free_string(sv_deleted_mesh)
sys_free_string(sv_not_found_mesh)
#---------------------------------------------------------------------
() |
#
# Purpose : This file provides an example of a call to the
# function fem_delete_mesh_from_solid()
#
# This file opens a new database "new.db",
# creates a solid and meshes it. Then deletes
# the mesh from solid using the function.
#
# This file can be run by starting a session of
# Patran, through the "File","Session",
# "Play" pulldown menus on the menu bar.
#
# The function fem_delete_mesh_from_solid()
# has the following arguments:
#
# fem_delete_mesh_from_solid
# ( solid_select,
# deleted_mesh,
# not_found_mesh )
#
#---------------------------------------------------------------------
# Variable Declarations
STRING sv_solid_select[VIRTUAL]
STRING sv_deleted_mesh[VIRTUAL]
STRING sv_not_found_mesh[VIRTUAL]
INTEGER i_return_value
STRING sv_hpat_xyz_created_ids[VIRTUAL]
INTEGER i_mesh_solid_num_nodes
INTEGER i_mesh_solid_num_elems
STRING sv_s_nodes_created[VIRTUAL]
STRING sv_s_elems_created[VIRTUAL]
#---------------------------------------------------------------------
# Open a new database "new.db"
uil_file_new.go("","new.db")
$? YES 36000002
#---------------------------------------------------------------------
# Create a Solid
i_return_value = @
asm_const_hpat_xyz( "1", "<1 1 1>", "[0 0 0]", "Coord 0", @
sv_hpat_xyz_created_ids )
dump i_return_value
#---------------------------------------------------------------------
# Setting to the iso view
i_return_value = ga_view_aa_set(-67., 0., -34.)
dump i_return_value
#---------------------------------------------------------------------
# Mesh the Solid
i_return_value = @
fem_create_mesh_sol_3( "IsoMesh", 0, "Solid 1 ", 1, [0.25], @
"Hex8", "1", "1", "Coord 0", @
"Coord 0", i_mesh_solid_num_nodes, @
i_mesh_solid_num_elems, @
sv_s_nodes_created, sv_s_elems_created )
dump i_return_value
hex_elem_label( TRUE )
#---------------------------------------------------------------------
# Session file paused. Press "Resume" to continue.
sf_pause()
#---------------------------------------------------------------------
# Delete the mesh from the Solid
sv_solid_select = "Solid 1 "
i_return_value = @
fem_delete_mesh_from_solid @
( sv_solid_select, @
sv_deleted_mesh, @
sv_not_found_mesh )
dump i_return_value
dump sv_deleted_mesh
dump sv_not_found_mesh
sys_free_string(sv_solid_select)
sys_free_string(sv_hpat_xyz_created_ids)
sys_free_string(sv_s_nodes_created)
sys_free_string(sv_s_elems_created)
sys_free_string(sv_deleted_mesh)
sys_free_string(sv_not_found_mesh)
#---------------------------------------------------------------------