Delete Action

PCL Examples > Finite Element Functions > Delete Action

Delete Action

This section contains examples of some of the function used to delete elements, nodes, and meshes from a finite element model.


fem_delete_elem_and_node	()

#  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)

#---------------------------------------------------------------------


fem_delete_element	()

#  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)

#---------------------------------------------------------------------


fem_delete_free_node	()

#  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)

#---------------------------------------------------------------------


fem_delete_mesh_from_curve	()

#  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)

#---------------------------------------------------------------------


fem_delete_mesh_from_surface	()

#  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)

#---------------------------------------------------------------------


fem_delete_mesh_from_solid	()

#  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)

#---------------------------------------------------------------------