Group Menu

PCL Examples > Basic Functions > Group Menu

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX''">XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX''">

Group Menu

This section contains examples of functions that are used to create, delete, modify and transform groups of geometric and finite element model entities stored in the database.


ga_group_clear	()

#  Purpose          :  This file provides an example of a call to the

#                      function ga_group_clear()

#                      This function clears a group of all of its

#                      members.

#                      In this example, the spool database is opened

#                      and group "fem_model" is posted. Then all the

#                      entities associated with group "fem_model"

#                      are cleared using this function.

#                      Then the same group is posted for viewing in

#                      default viewport.

#                      Before running this session file run spool.ses

#                      to create spool.db

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

#  has the following arguments:

#  ga_group_clear

#     (  group_name )

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

#  Variable Declarations

STRING   s_group_name[32]

INTEGER  i_return_value

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

#  Open the database "spool.db"

uil_file_open.go("spool.db")

#  Post the "fem_model"

uil_viewport_post_groups.posted_groups           @

   (  "default_viewport",                        @

      1, ["fem_model"] )

#  Session file paused. Press "Resume" to continue..

sf_pause()

#  Clear group "fem_model" of all its member

s_group_name = "fem_model"

i_return_value =                                 @

   ga_group_clear                                @

      (  s_group_name )

dump i_return_value

#  Post the "fem_model"

uil_viewport_post_groups.posted_groups           @

   (  "default_viewport",                        @

      1, ["fem_model"] )

#  It can be observed that no entity appearing on the default view-

#  port as the group "fem_model" is freed of all the its members

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


ga_group_create_groups	()

#  Purpose          :  This file provides an example of a call to the

#                      function ga_group_create()

#                      This function creates an empty group in the

#                      database

#                      In this example, the spool database is opened

#                      and a new group("new_group") is created. List

#                      of groups present in database is verified

#                      before and after creation.

#                      Before running this session file run spool.ses

#                      to create spool.db

#                      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 ga_group_create() has the following arguments:

#  ga_group_create

#     (  group_name )

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

#  Variable Declarations

STRING   s_group_name[32]

STRING   sa_groups[32](3)

INTEGER  i_return_value

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

#  Open the database "spool.db"

uil_file_open.go("spool.db")

#  Get the list of groups

i_return_value =                                          @

   ga_group_groups_get ( sa_groups )

dump i_return_value

dump sa_groups

#  Create "new_group"

s_group_name = "new_group"

i_return_value =                                          @

   ga_group_create                                        @

      (  s_group_name )

dump i_return_value

#  Get the list of groups

i_return_value =                                          @

   ga_group_groups_get ( sa_groups )

dump i_return_value

dump sa_groups

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


ga_group_current_set	()

#  Purpose          :  This file provides an example of a call to the

#                      function ga_group_current_set()

#                      This function sets up the current group for

#                      receiving newly created entities, and also

#                      posts the specified group to current viewport.

#                      In this example, the spool database is opened

#                      and id of the current group is obtained. Then

#                      "default_group" is set as the current-group

#                      using this function. The id of the current-

#                      group is once again obtained for verification.

#                      Groups present in spool.db are "default_group"

#                      ( id = 1 ) and "fem_model"( id = 2 ).

#                      Before running this session file run spool.ses

#                      to create spool.db

#                      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 ga_group_current_set() has the following arguments:

#  ga_group_current_set

#     (  group_name )

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

#  Variable Declarations

STRING   s_group_name[32]

INTEGER  i_group_id

INTEGER  i_return_value

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

#  Open the database "spool.db"

uil_file_open.go("spool.db")

#  Get the current group id

i_return_value =                                 @

   db_get_current_group_id                       @

      (  i_group_id )

dump i_return_value

dump i_group_id

#  Set "default_group" as current group

s_group_name = "default_group"

i_return_value =                                 @

   ga_group_current_set                          @

      (  s_group_name )

dump i_return_value

#  Get the current group id

i_return_value =                                 @

   db_get_current_group_id                       @

      (  i_group_id )

dump i_return_value

dump i_group_id

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


ga_group_delete	()

#  Purpose          :  This file provides an example of a call to the

#                      function ga_group_delete()

#                      This function deletes a group from the database

#                      In this example, the spool database is opened

#                      and then "default_group" is deleted using this

#                      function. The list of groups present in

#                      database is verified before and after deletion.

#                      Before running this session file run spool.ses

#                      to create spool.db

#                      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 ga_group_delete() has the following arguments:

#  ga_group_delete

#     (  group_name )

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

#  Variable Declarations

STRING   s_group_name[32]

STRING   sa_groups[32](2)

INTEGER  i_return_value

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

#  Open the database "spool.db"

uil_file_open.go("spool.db")

#  Get the list of groups

i_return_value =                                 @

   ga_group_groups_get ( sa_groups )

dump i_return_value

dump sa_groups

#  Delete the group

s_group_name = "default_group"

i_return_value =                                 @

   ga_group_delete                               @

      (  s_group_name )

dump i_return_value

#  Re-initialization of sa_groups

sa_groups(1) = ""

sa_groups(2) = ""

#  Get the list of groups

i_return_value =                                 @

   ga_group_groups_get ( sa_groups )

dump i_return_value

dump sa_groups

#  It can be observed that all geometric entities disappear

#  from the screen, as default_group was consisting of geomeric

#  entities only.

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


ga_group_display_set	()

#  Purpose          :  This file provides an example of a call to the

#                      function ga_group_display_set()

#                      This function changes the current display prop-

#                      erty list associated with a group and posts the

#                      group to the current viewport.

#                      In this example the spool.db is opened and

#                      display property of group, "fem_model" is

#                      obtained using the function,

#                      ga_group_display_get(). Then the display prope-

#                      rty of "fem_model" is changed to "simple" using

#                      this function. The change in display property

#                      of "fem_model" is verified in the end.

#                      Before running this session file run spool.ses

#                      to create spool.db

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

#  has the following arguments:

#  ga_group_display_set

#     (  group_name,

#        display_list )

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

#  Variable Declarations

STRING   s_group_name[32]

STRING   s_display_list[32]

INTEGER  i_return_value

STRING   s_display_property[32]

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

#  Open the database "spool.db"

uil_file_open.go("spool.db")

#  Post "fem_model"

uil_viewport_post_groups.posted_groups           @

   (  "default_viewport", 1, ["fem_model"] )

#  Group name

s_group_name = "fem_model"

#  Get the display property "fem_model"

i_return_value =                                 @

   ga_group_display_get                          @

      (  s_group_name,                           @

         s_display_property )

dump i_return_value

dump s_display_property

#  Set current display property associated with a group

s_display_list = "simple"

i_return_value =                                 @

   ga_group_display_set                          @

      (  s_group_name,                           @

         s_display_list )

dump i_return_value

#  Get the display property "fem_model"

i_return_value =                                 @

   ga_group_display_get                          @

      (  s_group_name,                           @

         s_display_property )

dump i_return_value

dump s_display_property

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


ga_group_entity_add	()

#  Purpose          :  This file provides an example of a call to the

#                      function ga_group_entity_add()

#                      This function adds a list of entities as

#                      members to a group.

#                      In this example, the spool database is opened

#                      and a new group("new_group") is created and

#                      posted for viewing. After a pause, geometric

#                      entities are added to the group and viewed

#                      again. The list of members present in

#                      "new_group" is also checked, before and

#                      after the addition of entities.

#                      Before running this session file run spool.ses

#                      to create spool.db

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

#  has the following arguments:

#  ga_group_entity_add

#     (  group_name,

#        entities )

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

#  Variable Declarations

STRING   s_group_name[32]

STRING   s_entities[128]

INTEGER  i_return_value

STRING   sv_members[VIRTUAL]

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

#  Open the database "spool.db"

uil_file_open.go("spool.db")

#  Create "new_group"

i_return_value =                                          @

   ga_group_create                                        @

      (  "new_group" )

dump i_return_value

#  Post "new_group"

uil_viewport_post_groups.posted_groups                    @

   (  "default_viewport", 1, ["new_group"] )

#  Get the list of all members of group

i_return_value =                                          @

   uil_group_members_get                                  @

      (  "new_group" , sv_members )

dump i_return_value

dump sv_members

#  It can be observed that entities not appearing on the default view-

#  port as a newly created group is empty.

#  Session file paused. Press "Resume" to continue..

sf_pause()

#  Add all geometric entities to "new_group"

s_group_name   = "new_group"

s_entities     = "Point 6:7 4:5 8:10 Curve 3 1:2 Surface 1:6"

i_return_value =                                          @

   ga_group_entity_add                                    @

      (  s_group_name,                                    @

         s_entities )

dump i_return_value

#  Get the list of all members of group

i_return_value =                                          @

   uil_group_members_get                                  @

      (  "new_group" , sv_members )

dump i_return_value

dump sv_members

#  Free allocated memory

sys_free_string ( sv_members )

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


ga_group_entity_remove	()

#  Purpose          :  This file provides an example of a call to the

#                      function ga_group_entity_remove()

#                      This function removes a list of entities from

#                      a group.

#                      In this example, the spool database is opened

#                      and "default_group" is posted for viewing.

#                      After a pause, surfaces 1 to 3 are removed

#                      from "default_group". The list of members

#                      present in "default_group" is also checked,

#                      before and after the removal of entities.

#                      Before running this session file run spool.ses

#                      to create spool.db

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

#  has the following arguments:

#  ga_group_entity_remove

#     (  group_name,

#        entities )

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

#  Variable Declarations

STRING   s_group_name[32]

STRING   s_entities[32]

INTEGER  i_return_value

STRING   sv_members[VIRTUAL]

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

#  Open the database "spool.db"

uil_file_open.go("spool.db")

#  Post "default_group"

uil_viewport_post_groups.posted_groups                    @

   (  "default_viewport", 1, ["default_group"] )

#  Get the list of all members of group

i_return_value =                                          @

   uil_group_members_get                                  @

      (  "default_group" , sv_members )

dump i_return_value

dump sv_members

#  Session file paused. Press "Resume" to continue..

sf_pause()

#  Remove surfaces 1 to 3 from "default_group"

s_group_name = "default_group"

s_entities = "Surface 1:3"

i_return_value =                                          @

   ga_group_entity_remove                                 @

      (  s_group_name,                                    @

         s_entities )

dump i_return_value

#  Get the list of all members of group

i_return_value =                                          @

   uil_group_members_get                                  @

      (  "default_group" , sv_members )

dump i_return_value

dump sv_members

#  It can be observed that surfaces-1,2,3 disappearing from the

#  view-port because of their removal from the "default_group"

#  Free allocated memory

sys_free_string ( sv_members )

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


ga_group_members_delete	()

#  Purpose          :  This file provides an example of a call to the

#                      function ga_group_members_delete()

#                      This function deletes the entities associated

#                      with a group from the database.

#                      In this example, the spool database is opened

#                      and members (fem entities) associated with

#                      group "fem_model" is deleted by calling this

#                      function. The default display view-port is

#                      then refreshed.

#                      Before running this session file run spool.ses

#                      to create spool.db

#                      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 ga_group_members_delete() has the following arguments:

#  ga_group_members_delete

#     (  group_name )

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

#  Variable Declarations

STRING   s_group_name[32]

INTEGER  i_return_value

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

#  Open the database "spool.db"

uil_file_open.go("spool.db")

#  Session file paused. Press "Resume" to continue..

sf_pause()

#  Delete members of "fem_model"

s_group_name = "fem_model"

i_return_value =                                 @

   ga_group_members_delete                       @

      (  s_group_name )

dump i_return_value

#  Patran generating list of deleted entities can also be seen from

#  the history window.

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


ga_group_precision_set	()

#  Purpose          :  This file provides an example of a call to the

#                      function ga_group_precision_set()

#                      This function sets the precision of the rende-

#                      ring for a specified group.

#                      In this example the spool.db is opened and the

#                      precision for rendering of group "fem_model" is

#                      obtained using the function, ga_group_precision

#                      _get (). Then the precision of "fem_model" is

#                      changed to 1 using this function. The change in

#                      precision is verified in the end.

#                      Before running this session file run spool.ses

#                      to create spool.db

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

#  has the following arguments:

#  ga_group_precision_set

#     (  group_name,

#        precision_status )

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

#  Variable Declarations

STRING   s_group_name[128]

INTEGER  i_precision_status

INTEGER  i_precision_status_get

INTEGER  i_return_value

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

#  Open the database "spool.db"

uil_file_open.go("spool.db")

#  Post "fem_model"

uil_viewport_post_groups.posted_groups           @

   (  "default_viewport", 1, ["fem_model"] )

#  Group name

s_group_name = "fem_model"

#  Get the display property "fem_model"

i_return_value =                                 @

   ga_group_precision_get                        @

      (  s_group_name,                           @

         i_precision_status_get )

dump i_return_value

dump i_precision_status_get

#  Set current display property associated with a group

i_precision_status = 1

i_return_value =                                 @

   ga_group_precision_set                        @

      (  s_group_name,                           @

         i_precision_status )

dump i_return_value

#  Get the display property "fem_model"

i_return_value =                                 @

   ga_group_precision_get                        @

      (  s_group_name,                           @

         i_precision_status_get )

dump i_return_value

dump i_precision_status_get

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


ga_group_rename	()

#  Purpose          :  This file provides an example of a call to the

#                      function ga_group_rename()

#                      This function renames the specified group.

#                      In this example, the spool database is opened

#                      and the group "fem_model" is renamed to

#                      "fem_renamed". The list of groups present in

#                      the database is checked before and after

#                      renaming.

#                      Before running this session file run spool.ses

#                      to create spool.db

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

#  has the following arguments:

#  ga_group_rename

#     (  original_name,

#        new_name )

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

#  Variable Declarations

STRING   s_original_name[32]

STRING   s_new_name[32]

STRING   sa_groups[32](2)

INTEGER  i_return_value

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

#  Open the database "spool.db"

uil_file_open.go("spool.db")

#  Get the list of groups

i_return_value =                                          @

   ga_group_groups_get ( sa_groups )

dump i_return_value

dump sa_groups

#  Rename group "fem_model" to "fem_renamed"

s_original_name = "fem_model"

s_new_name = "fem_renamed"

i_return_value =                                          @

   ga_group_rename                                        @

      (  s_original_name,                                 @

         s_new_name )

dump i_return_value

#  Get the list of groups

i_return_value =                                          @

   ga_group_groups_get ( sa_groups )

dump i_return_value

dump sa_groups

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


ga_group_transform_mirror	()

#  Purpose          :  This file provides an example of a call to the

#                      function ga_group_transform_mirror()

#                      This function creates a new set of entities

#                      which are a mirror of the entities contained

#                      in the named group.

#                      In this example a new database is opened and a

#                      cube is created. After a pause, this function

#                      is called to create a new set of entities which

#                      are mirror of entities(cube) present in default

#                      _group.

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

#  has the following arguments:

#  ga_group_transform_mirror

#     (  group_name,

#        plane,

#        offset,

#        delete_original,

#        use_original_labels,

#        reverse )

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

#  Variable Declarations

STRING   s_group_name[32]

STRING   s_plane[32]

REAL     r_offset

LOGICAL  l_delete_original

LOGICAL  l_use_original_labels

LOGICAL  l_reverse

INTEGER  i_return_value

STRING   sv_hpat_ids[VIRTUAL]

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

#  Open a new database "new.db"

uil_file_new.go("", "new.db")

$? YES 36000002

#  Create cube of dimension of 1*1*1

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<1 1 1>", "[0 0 0]", "Coord 0",   @

         sv_hpat_ids )

dump i_return_value

#  Set ISO-1 viewing

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#  Session file paused. Press "Resume" to continue..

sf_pause()

#  Name of the group

s_group_name = "default_group"

#  Plane for mirroring

s_plane = "Coord 0.3"

#  Offset distance between mirrored entities

r_offset = 5

#  Do not delete original entities

l_delete_original = FALSE

#  Do not set same labels to the new entities as that of original

l_use_original_labels = FALSE

#  Do not reverse curves and surfaces of mirrored entities

l_reverse = FALSE

#  Create a new set of entities by mirroring.

i_return_value =                                 @

   ga_group_transform_mirror                     @

      (  s_group_name,                           @

         s_plane,                                @

         r_offset,                               @

         l_delete_original,                      @

         l_use_original_labels,                  @

         l_reverse )

dump i_return_value

#  Free allocated memory

sys_free_string ( sv_hpat_ids )

#  Copy of created entities can be seen in the display

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


ga_group_transform_mirror2	()

#  Purpose          :  This file provides an example of a call to the

#                      function ga_group_transform_mirror2()

#                      This function creates a new set of entities

#                      which are a mirror of the entities contained

#                      in the named group.

#                      In this example a new database is opened and a

#                      cube with an lbc("force_1") is created. After a

#                      pause, this function is called to create a new

#                      set of entities which are mirror of entities

#                      and present in default_group. The lbcs are cop-

#                      ied without co-ordinate transformation to the

#                      mirrored entities.

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

#  has the following arguments:

#  ga_group_transform_mirror2

#     (  group_name,

#        plane,

#        offset,

#        delete_original,

#        use_original_labels,

#        reverse,

#        lbc_copy_sets,

#        lbc_transform_sets,

#        prop_copy_sets,

#        prop_transform_sets )

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

#  Variable Declarations

STRING   s_group_name[32]

STRING   s_plane[32]

REAL     r_offset

LOGICAL  l_delete_original

LOGICAL  l_use_original_labels

LOGICAL  l_reverse

STRING   sa_lbc_copy_sets[16](2)

STRING   sa_lbc_transform_sets[16](2)

STRING   sa_prop_copy_sets[16](2)

STRING   sa_prop_transform_sets[16](2)

INTEGER  i_return_value

STRING   sv_hpat_ids[VIRTUAL]

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

#  Open a new database "new.db"

uil_file_new.go("", "new.db")

$? YES 36000002

#  Create cube of dimension of 1*1*1

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<1 1 1>", "[0 0 0]", "Coord 0",   @

         sv_hpat_ids )

dump i_return_value

#  Set ISO-1 viewing

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#  Create lbc

i_return_value =                                 @

   loadsbcs_create                               @

      (  "force_1", "Force", "Nodal", "",        @

         "Static", ["Point 7"], "Geometry",      @

         "Coord 0", 1., ["<0 -100 0     >",      @

         "<    >"], ["", ""] )

dump i_return_value

#  Session file paused. Press "Resume" to continue..

sf_pause()

#  Name of the group

s_group_name = "default_group"

#  Plane for mirroring

s_plane = "Coord 0.3"

#  Offset distance between mirrored entities

r_offset = 2

#  Do not delete original entities

l_delete_original = FALSE

#  Do not set same labels to the new entities as that of original

l_use_original_labels = FALSE

#  Do not reverse curves and surfaces of mirrored entities

l_reverse = FALSE

#  Names of LBCs to be copied without co-ordinate transformation.

sa_lbc_copy_sets(1) = "$ALL"

sa_lbc_copy_sets(2) = ""

#  Create a new set of entities by mirroring

i_return_value =                                 @

   ga_group_transform_mirror2                    @

      (  s_group_name,                           @

         s_plane,                                @

         r_offset,                               @

         l_delete_original,                      @

         l_use_original_labels,                  @

         l_reverse,                              @

         sa_lbc_copy_sets,                       @

         sa_lbc_transform_sets,                  @

         sa_prop_copy_sets,                      @

         sa_prop_transform_sets )

dump i_return_value

#  Free allocated memory

sys_free_string(sv_hpat_ids)

#  Copy of created entities can be seen in the display

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


ga_group_transform_pivot	()

#  Purpose          :  This file provides an example of a call to the

#                      function ga_group_transform_pivot()

#                      This function creates a new set of entities

#                      which are a copy of the entities  contained in

#                      the named group pivoted around a point defined

#                      in space.

#                      In this example a new database is opened and a

#                      cuboid is created. After a pause, this function

#                      is called to create a new set of entities with

#                      [0 0 0] as pivot-point .

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

#  has the following arguments:

#  ga_group_transform_pivot

#     (  group_name,

#        pivot_point,

#        start_point,

#        end_point,

#        delete_original,

#        use_original_labels )

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

#  Variable Declarations

STRING   s_group_name[32]

STRING   s_pivot_point[32]

STRING   s_start_point[32]

STRING   s_end_point[32]

LOGICAL  l_delete_original

LOGICAL  l_use_original_labels

INTEGER  i_return_value

STRING   sv_hpat_ids[VIRTUAL]

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

#  Open a new database "new.db"

uil_file_new.go("", "new.db")

$? YES 36000002

#  Create cuboid of dimension of 10*1*5

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<10 1 5>", "[0 0 0]", "Coord 0",  @

         sv_hpat_ids )

dump i_return_value

#  Set ISO-1 viewing

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#  Session file paused. Press "Resume" to continue..

sf_pause()

#  Name of the group

s_group_name = "default_group"

#  Points definition

s_pivot_point = "[0 0 0]"

s_start_point = "Point 8"

s_end_point = "Point 7"

#  Do not delete original entities

l_delete_original = FALSE

#  Do not set same labels to the new entities as that of original

l_use_original_labels = FALSE

#  Create a new set of entities by pivot transformation method

i_return_value =                                 @

   ga_group_transform_pivot                      @

      (  s_group_name,                           @

         s_pivot_point,                          @

         s_start_point,                          @

         s_end_point,                            @

         l_delete_original,                      @

         l_use_original_labels )

dump i_return_value

#  Free allocated memory

sys_free_string(sv_hpat_ids)

#  Copy of created entities can be seen in the display

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


ga_group_transform_pivot2	()

#  Purpose          :  This file provides an example of a call to the

#                      function ga_group_transform_pivot2()

#                      This function creates a new set of entities

#                      which are a copy of the entities  contained in

#                      the named group pivoted around a point defined

#                      in space.

#                      In this example a new database is opened and a

#                      cuboid with an lbc("force_1") is created. After

#                      a pause, this function is called to create a

#                      new set of entities with [0 0 0]as pivot point.

#                      The lbcs are copied without co-ordinate transf-

#                      ormation to the transformed entities.

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

#  has the following arguments:

#  ga_group_transform_pivot2

#     (  group_name,

#        pivot_point,

#        start_point,

#        end_point,

#        delete_original,

#        use_original_labels,

#        lbc_copy_sets,

#        lbc_transform_sets,

#        prop_copy_sets,

#        prop_transform_sets )

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

#  Variable Declarations

STRING   s_group_name[32]

STRING   s_pivot_point[32]

STRING   s_start_point[32]

STRING   s_end_point[32]

LOGICAL  l_delete_original

LOGICAL  l_use_original_labels

STRING   sa_lbc_copy_sets[32](2)

STRING   sa_lbc_transform_sets[32](2)

STRING   sa_prop_copy_sets[32](2)

STRING   sa_prop_transform_sets[32](2)

INTEGER  i_return_value

STRING   sv_hpat_ids[VIRTUAL]

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

#  Open a new database "new.db"

uil_file_new.go("", "new.db")

$? YES 36000002

#  Create cuboid of dimension of l0*1*5

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<10 1 5>", "[0 0 0]", "Coord 0",  @

         sv_hpat_ids )

dump i_return_value

#  Set ISO-1 viewing

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#  Create lbc

i_return_value =                                 @

   loadsbcs_create                               @

      (  "force_1", "Force", "Nodal", "",        @

         "Static", ["Point 7"], "Geometry",      @

         "Coord 0", 1., ["<0 -100 0     >",      @

         "<     >"], ["", ""] )

dump i_return_value

#  Session file paused. Press "Resume" to continue..

sf_pause()

#  Name of the group

s_group_name = "default_group"

#  Points definition

s_pivot_point = "[0 0 0]"

s_start_point = "Point 8"

s_end_point = "Point 7"

#  Do not delete original entities

l_delete_original = FALSE

#  Do not set same labels to the new entities as that of original

l_use_original_labels = FALSE

#  Names of LBCs to be copied without co-ordinate transformation

sa_lbc_copy_sets(1) = "$ALL"

sa_lbc_copy_sets(2) = ""

#  Create a new set of entities by pivot transformation method

i_return_value =                                 @

   ga_group_transform_pivot2                     @

      (  s_group_name,                           @

         s_pivot_point,                          @

         s_start_point,                          @

         s_end_point,                            @

         l_delete_original,                      @

         l_use_original_labels,                  @

         sa_lbc_copy_sets,                       @

         sa_lbc_transform_sets,                  @

         sa_prop_copy_sets,                      @

         sa_prop_transform_sets )

dump i_return_value

#  Free allocated memory

sys_free_string(sv_hpat_ids)

#  Copy of created entities can be seen in the display

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


ga_group_transform_position	()

#  Purpose          :  This file provides an example of a call to the

#                      function ga_group_transform_position()

#                      This function creates a new set of entities

#                      which are a copy of the entities  contained in

#                      the named group by rigid body positional and

#                      rotational translation in space.

#                      In this example a new database is opened and a

#                      cube is created. After a pause, this function

#                      is called to create a new set of entities after

#                      specification of origin and destination points.

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

#  has the following arguments:

#  ga_group_transform_position

#     (  group_name,

#        start_point_1,

#        start_point_2,

#        start_point_3,

#        end_point_1,

#        end_point_2,

#        end_point_3,

#        delete_original,

#        use_original_labels )

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

#  Variable Declarations

STRING   s_group_name[32]

STRING   s_start_point_1[32]

STRING   s_start_point_2[32]

STRING   s_start_point_3[32]

STRING   s_end_point_1[32]

STRING   s_end_point_2[32]

STRING   s_end_point_3[32]

LOGICAL  l_delete_original

LOGICAL  l_use_original_labels

INTEGER  i_return_value

STRING   sv_hpat_ids[VIRTUAL]

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

#  Open a new database "new.db"

uil_file_new.go("", "new.db")

$? YES 36000002

#  Create cube of dimension of 1*1*1

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<1 1 1>", "[0 0 0]", "Coord 0",   @

         sv_hpat_ids )

dump i_return_value

#  Set ISO-1 viewing

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#  Session file paused. Press "Resume" to continue..

sf_pause()

#  Name of the group

s_group_name = "default_group"

#  Points definitions

s_start_point_1 = "Point 1 "

s_start_point_2 = "Point 4 "

s_start_point_3 = "Point 8 "

s_end_point_1 = "[0 3 0]"

s_end_point_2 = "[0 3 1]"

s_end_point_3 = "[1 3.1 1]"

#  Do not delete original entities

l_delete_original = FALSE

#  Do not set same labels to the new entities as that of original

l_use_original_labels = FALSE

#  Create a new set of entities by position transformation method

i_return_value =                                 @

   ga_group_transform_position                   @

      (  s_group_name,                           @

         s_start_point_1,                        @

         s_start_point_2,                        @

         s_start_point_3,                        @

         s_end_point_1,                          @

         s_end_point_2,                          @

         s_end_point_3,                          @

         l_delete_original,                      @

         l_use_original_labels )

dump i_return_value

#  Free allocated memory

sys_free_string(sv_hpat_ids)

#  Copy of created entities can be seen in the display

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


ga_group_transform_position2	()

#  Purpose          :  This file provides an example of a call to the

#                      function ga_group_transform_position2()

#                      This function creates a new set of entities

#                      which are a copy of the entities  contained in

#                      the named group by rigid body positional and

#                      rotational translation in space.

#                      In this example a new database is opened and a

#                      cube with an lbc("force_1") is created. After a

#                      pause, this function is called to create a new

#                      set of entities after specification of origin

#                      and destination points. The lbcs are copied

#                      without co-ordinate transformation to the tran-

#                      sformed entities.

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

#  has the following arguments:

#  ga_group_transform_position2

#     (  group_name,

#        start_point_1,

#        start_point_2,

#        start_point_3,

#        end_point_1,

#        end_point_2,

#        end_point_3,

#        delete_original,

#        use_original_labels,

#        lbc_copy_sets,

#        lbc_transform_sets,

#        prop_copy_sets,

#        prop_transform_sets )

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

#  Variable Declarations

STRING   s_group_name[32]

STRING   s_start_point_1[32]

STRING   s_start_point_2[32]

STRING   s_start_point_3[32]

STRING   s_end_point_1[32]

STRING   s_end_point_2[32]

STRING   s_end_point_3[32]

LOGICAL  l_delete_original

LOGICAL  l_use_original_labels

STRING   sa_lbc_copy_sets[32](2)

STRING   sa_lbc_transform_sets[32](2)

STRING   sa_prop_copy_sets[32](2)

STRING   sa_prop_transform_sets[32](2)

INTEGER  i_return_value

STRING   sv_hpat_ids[VIRTUAL]

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

#  Open a new database "new.db"

uil_file_new.go("", "new.db")

$? YES 36000002

#  Create cube of dimension of 1*1*1

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<1 1 1>", "[0 0 0]", "Coord 0",   @

         sv_hpat_ids )

dump i_return_value

#  Set ISO-1 viewing

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#  Create lbc

i_return_value =                                 @

   loadsbcs_create                               @

      (  "force_1", "Force", "Nodal", "",        @

         "Static", ["Point 7"], "Geometry",      @

         "Coord 0", 1., ["<0 -100 0     >",      @

         "<    >"], ["", ""] )

dump i_return_value

#  Session file paused. Press "Resume" to continue..

sf_pause()

#  Name of the group

s_group_name = "default_group"

#  Points definitions

s_start_point_1 = "Point 1 "

s_start_point_2 = "Point 4 "

s_start_point_3 = "Point 8 "

s_end_point_1 = "[0 3 0]"

s_end_point_2 = "[1 3 0]"

s_end_point_3 = "[1 3.1 1]"

#  Do not delete original entities

l_delete_original = FALSE

#  Do not set same labels to the new entities as that of original

l_use_original_labels = FALSE

#  Names of LBCs to be copied without co-ordinate transformation.

sa_lbc_copy_sets(1) = "$ALL"

sa_lbc_copy_sets(2) = ""

#  Create a new set of entities by position transformation method

i_return_value =                                 @

   ga_group_transform_position2                  @

      (  s_group_name,                           @

         s_start_point_1,                        @

         s_start_point_2,                        @

         s_start_point_3,                        @

         s_end_point_1,                          @

         s_end_point_2,                          @

         s_end_point_3,                          @

         l_delete_original,                      @

         l_use_original_labels,                  @

         sa_lbc_copy_sets,                       @

         sa_lbc_transform_sets,                  @

         sa_prop_copy_sets,                      @

         sa_prop_transform_sets )

dump i_return_value

#  Free allocated memory

sys_free_string(sv_hpat_ids)

#  Copy of created entities can be seen in the display

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


ga_group_transform_rotate	()

#  Purpose          :  This file provides an example of a call to the

#                      function ga_group_transform_rotate()

#                      This function creates a new set of entities

#                      which are a copy of the entities  contained in

#                      the named group by rigid body rotational

#                      translation in space.

#                      In this example a new database is opened and a

#                      cube is created. After a pause, this function

#                      is called to create a new set of entities with

#                      an rotational translation of 45 degrees along

#                      Z axis.

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

#  has the following arguments:

#  ga_group_transform_rotate

#     (  group_name,

#        coordinate_frame_id,

#        rotation_axis,

#        rotation_angle,

#        offset_angle,

#        delete_original,

#        use_original_labels,

#        repeat_count )

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

#  Variable Declarations

STRING   s_group_name[32]

STRING   s_coordinate_frame_id[32]

STRING   s_rotation_axis[32]

REAL     r_rotation_angle

REAL     r_offset_angle

LOGICAL  l_delete_original

LOGICAL  l_use_original_labels

INTEGER  i_repeat_count

INTEGER  i_return_value

STRING   sv_hpat_ids[VIRTUAL]

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

#  Open a new database "new.db"

uil_file_new.go("", "new.db")

$? YES 36000002

#  Create cube of dimension of 1*1*1

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<1 1 1>", "[0 0 0]", "Coord 0",   @

         sv_hpat_ids )

dump i_return_value

#  Set ISO-1 viewing

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#  Session file paused. Press "Resume" to continue..

sf_pause()

#  Name of the group

s_group_name = "default_group"

#  Rotation details

s_coordinate_frame_id = "CoordinateFrame 0"

s_rotation_axis = "Coord 0.3"

r_rotation_angle = 45.0

r_offset_angle = 0.0

#  Do not delete original entities

l_delete_original = FALSE

#  Do not set same labels to the new entities as that of original

l_use_original_labels = FALSE

#  Number of times to repeat the transformation

i_repeat_count = 1

#  Create a new set of entities by rotation transformation method

i_return_value =                                 @

   ga_group_transform_rotate                     @

      (  s_group_name,                           @

         s_coordinate_frame_id,                  @

         s_rotation_axis,                        @

         r_rotation_angle,                       @

         r_offset_angle,                         @

         l_delete_original,                      @

         l_use_original_labels,                  @

         i_repeat_count )

dump i_return_value

#  Free allocated memory

sys_free_string(sv_hpat_ids)

#  Copy of created entities can be seen in the display

#---------------------------------------------------------------------e


ga_group_transform_rotate2	()

#  Purpose          :  This file provides an example of a call to the

#                      function ga_group_transform_rotate2()

#                      This function creates a new set of entities

#                      which are a copy of the entities  contained in

#                      the named group by rigid body rotational

#                      translation in space.

#                      In this example a new database is opened and a

#                      cube with an lbc("force_1") is created. After a

#                      pause, this function is called to create a new

#                      set of entities with an rotational translation

#                      of 45 degrees along Z axis. The lbcs are copied

#                      without co-ordinate transformation to the tran-

#                      sformed entities.

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

#  has the following arguments:

#  ga_group_transform_rotate2

#     (  group_name,

#        coordinate_frame_id,

#        rotation_axis,

#        rotation_angle,

#        offset_angle,

#        delete_original,

#        use_original_labels,

#        repeat_count,

#        lbc_copy_sets,

#        lbc_transform_sets,

#        prop_copy_sets,

#        prop_transform_sets )

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

#  Variable Declarations

STRING   s_group_name[32]

STRING   s_coordinate_frame_id[32]

STRING   s_rotation_axis[32]

REAL     r_rotation_angle

REAL     r_offset_angle

LOGICAL  l_delete_original

LOGICAL  l_use_original_labels

INTEGER  i_repeat_count

STRING   sa_lbc_copy_sets[32](2)

STRING   sa_lbc_transform_sets[32](2)

STRING   sa_prop_copy_sets[32](2)

STRING   sa_prop_transform_sets[32](2)

INTEGER  i_return_value

STRING   sv_hpat_ids[VIRTUAL]

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

#  Open a new database "new.db"

uil_file_new.go("", "new.db")

$? YES 36000002

#  Create cube of dimension of 1*1*1

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<1 1 1>", "[0 0 0]", "Coord 0",   @

         sv_hpat_ids )

dump i_return_value

#  Set ISO-1 viewing

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#  Create lbc

i_return_value =                                 @

   loadsbcs_create                               @

      (  "force_1", "Force", "Nodal", "",        @

         "Static", ["Point 7"], "Geometry",      @

         "Coord 0", 1., ["<0 -100 0     >",      @

         "<     >"], ["", ""] )

dump i_return_value

#  Session file paused. Press "Resume" to continue..

sf_pause()

#  Name of the group

s_group_name = "default_group"

#  Rotation details

s_rotation_axis  = "Coord 0.3"

r_rotation_angle = 45.0

r_offset_angle   = 0.0

s_coordinate_frame_id = "CoordinateFrame 0"

#  Do not delete original entities

l_delete_original = FALSE

#  Do not set same labels to the new entities as that of original

l_use_original_labels = FALSE

#  Number of times to repeat the transformation

i_repeat_count = 1

#  Names of LBCs to be copied without co-ordinate transformation.

sa_lbc_copy_sets(1) = "$ALL"

sa_lbc_copy_sets(2) = ""

#  Create a new set of entities by rotation transformation method

i_return_value =                                 @

   ga_group_transform_rotate2                    @

      (  s_group_name,                           @

         s_coordinate_frame_id,                  @

         s_rotation_axis,                        @

         r_rotation_angle,                       @

         r_offset_angle,                         @

         l_delete_original,                      @

         l_use_original_labels,                  @

         i_repeat_count,                         @

         sa_lbc_copy_sets,                       @

         sa_lbc_transform_sets,                  @

         sa_prop_copy_sets,                      @

         sa_prop_transform_sets )

dump i_return_value

#  Free allocated memory

sys_free_string(sv_hpat_ids)

#  Copy of created entities can be seen in the display

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


ga_group_transform_scale	()

#  Purpose          :  This file provides an example of a call to the

#                      function ga_group_transform_scale()

#                      This function creates a new set of entities

#                      which are a scaled-copy of the entities contai-

#                      ned in the named group.

#                      In this example a new database is opened and a

#                      cube is created. After a pause, this function

#                      is called to create a new set of entities which

#                      are twice the size (scale_factor = 2 along x,y,

#                      z axis) of the original.

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

#  has the following arguments:

#  ga_group_transform_scale

#     (  group_name,

#        coordinate_frame_id,

#        origin_point,

#        scale_factors,

#        delete_original,

#        use_original_labels,

#        repeat_count )

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

#  Variable Declarations

STRING   s_group_name[32]

STRING   s_coordinate_frame_id[32]

STRING   s_origin_point[32]

REAL     ra_scale_factors(3)

LOGICAL  l_delete_original

LOGICAL  l_use_original_labels

INTEGER  i_repeat_count

INTEGER  i_return_value

STRING   sv_hpat_ids[VIRTUAL]

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

#  Open a new database "new.db"

uil_file_new.go("", "new.db")

$? YES 36000002

#  Create cube of dimension of 1*1*1

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<1 1 1>", "[0 0 0]", "Coord 0",   @

         sv_hpat_ids )

dump i_return_value

#  Set ISO-1 viewing

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#  Session file paused. Press "Resume" to continue..

sf_pause()

#  Name of the group

s_group_name = "default_group"

#  Scaling details

s_coordinate_frame_id = "CoordinateFrame 0"

s_origin_point        = "[0 0 0]"

ra_scale_factors      = [2.0, 2.0, 2.0]

#  Do not delete original entities

l_delete_original = FALSE

#  Do not set same labels to the new entities as that of original

l_use_original_labels = FALSE

#  Number of times to repeat the transformation

i_repeat_count = 1

#  Create a new set of entities by scale transformation method

i_return_value =                                 @

   ga_group_transform_scale                      @

      (  s_group_name,                           @

         s_coordinate_frame_id,                  @

         s_origin_point,                         @

         ra_scale_factors,                       @

         l_delete_original,                      @

         l_use_original_labels,                  @

         i_repeat_count )

dump i_return_value

#  Free allocated memory

sys_free_string(sv_hpat_ids)

#  Copy of created entities can be seen in the display

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


ga_group_transform_scale2	()

#  Purpose          :  This file provides an example of a call to the

#                      function ga_group_transform_scale2()

#                      This function creates a new set of entities

#                      which are a scaled-copy of the entities contai-

#                      ned in the named group.

#                      In this example a new database is opened and a

#                      cube with an lbc("force_1") is created. After a

#                      pause, this function is called to create a new

#                      set of entities which are twice the size

#                      (scale_factor = 2 along x,y, z axis) of the

#                      original. The lbcs  are copied  without  coord-

#                      inate transformation to the transformed

#                      entities

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

#  has the following arguments:

#  ga_group_transform_scale2

#     (  group_name,

#        coordinate_frame_id,

#        origin_point,

#        scale_factors,

#        delete_original,

#        use_original_labels,

#        repeat_count,

#        lbc_copy_sets,

#        lbc_transform_sets,

#        prop_copy_sets,

#        prop_transform_sets )

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

#  Variable Declarations

STRING   s_group_name[32]

STRING   s_coordinate_frame_id[32]

STRING   s_origin_point[32]

REAL     ra_scale_factors(3)

LOGICAL  l_delete_original

LOGICAL  l_use_original_labels

INTEGER  i_repeat_count

STRING   sa_lbc_copy_sets[32](2)

STRING   sa_lbc_transform_sets[32](2)

STRING   sa_prop_copy_sets[32](2)

STRING   sa_prop_transform_sets[32](2)

INTEGER  i_return_value

STRING   sv_hpat_ids[VIRTUAL]

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

#  Open a new database "new.db"

uil_file_new.go("", "new.db")

$? YES 36000002

#  Create cube of dimension of 1*1*1

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<1 1 1>", "[0 0 0]", "Coord 0",   @

         sv_hpat_ids )

dump i_return_value

#  Set ISO-1 viewing

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#  Create lbc

i_return_value =                                 @

   loadsbcs_create                               @

      (  "force_1", "Force", "Nodal", "",        @

         "Static", ["Point 7"], "Geometry",      @

         "Coord 0", 1., ["<0 -100 0     >",      @

         "<    >"], ["", ""] )

dump i_return_value

#  Session file paused. Press "Resume" to continue..

sf_pause()

#  Name of the group

s_group_name = "default_group"

#  Scaling details

s_origin_point   = "[0 0 0]"

ra_scale_factors = [2.0, 2.0, 2.0]

s_coordinate_frame_id = "CoordinateFrame 0"

#  Do not delete original entities

l_delete_original = FALSE

#  Do not set same labels to the new entities as that of original

l_use_original_labels = FALSE

#  Number of times to repeat the transformation

i_repeat_count = 1

#  Names of LBCs to be copied without co-ordinate transformation.

sa_lbc_copy_sets(1) = "$ALL"

sa_lbc_copy_sets(2) = ""

#  Create a new set of entities by scale transformation method

i_return_value =                                 @

   ga_group_transform_scale2                     @

      (  s_group_name,                           @

         s_coordinate_frame_id,                  @

         s_origin_point,                         @

         ra_scale_factors,                       @

         l_delete_original,                      @

         l_use_original_labels,                  @

         i_repeat_count,                         @

         sa_lbc_copy_sets,                       @

         sa_lbc_transform_sets,                  @

         sa_prop_copy_sets,                      @

         sa_prop_transform_sets )

dump i_return_value

#  Free allocated memory

sys_free_string(sv_hpat_ids)

#  Copy of created entities can be seen in the display

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


ga_group_transform_translate	()

#  Purpose          :  This file provides an example of a call to the

#                      function ga_group_transform_translate()

#                      This function creates a new set of entities

#                      which are a copy of the entities  contained in

#                      the named group by movement or translation in

#                      space according to the translation vector.

#                      In this example a new database is opened and a

#                      cube is created. After a pause, this function

#                      is called to create a new set of entities with

#                      <3,3,3> as translation vector.

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

#  has the following arguments:

#  ga_group_transform_translate

#     (  group_name,

#        coordinate_frame_id,

#        translation_vector,

#        delete_original,

#        use_original_labels,

#        repeat_count )

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

#  Variable Declarations

STRING   s_group_name[32]

STRING   s_coordinate_frame_id[32]

STRING   s_translation_vector[32]

LOGICAL  l_delete_original

LOGICAL  l_use_original_labels

INTEGER  i_repeat_count

INTEGER  i_return_value

STRING   sv_hpat_ids[VIRTUAL]

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

#  Open a new database "new.db"

uil_file_new.go("", "new.db")

$? YES 36000002

#  Create cube of dimension of 1*1*1

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<1 1 1>", "[0 0 0]", "Coord 0",   @

         sv_hpat_ids )

dump i_return_value

#  Set ISO-1 viewing

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#  Session file paused. Press "Resume" to continue..

sf_pause()

#  Name of the group

s_group_name = "default_group"

#  Linear translation details

s_coordinate_frame_id = "CoordinateFrame 0"

s_translation_vector = "<3 3 3>"

#  Do not delete original entities

l_delete_original = FALSE

#  Do not set same labels to the new entities as that of original

l_use_original_labels = FALSE

#  Number of times to repeat the transformation

i_repeat_count = 1

#  Create a new set of entities by vector transformation method

i_return_value =                                 @

   ga_group_transform_translate                  @

      (  s_group_name,                           @

         s_coordinate_frame_id,                  @

         s_translation_vector,                   @

         l_delete_original,                      @

         l_use_original_labels,                  @

         i_repeat_count )

dump i_return_value

#  Free allocated memory

sys_free_string(sv_hpat_ids)

#  Copy of created entities can be seen in the display

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


ga_group_transform_translate2	()

#  Purpose          :  This file provides an example of a call to the

#                      function ga_group_transform_translate2()

#                      This function creates a new set of entities

#                      which are a copy of the entities  contained in

#                      the named group by movement or translation in

#                      space according to the translation vector.

#                      In this example a new database is opened and a

#                      cube with an lbc("force_1") is created. After a

#                      pause, this function is called to create a new

#                      set of entities with <3,3,3> as translation

#                      vector. The lbcs are copied without

#                      co-ordinate transformation to the transformed

#                      entities.

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

#  has the following arguments:

#  ga_group_transform_translate2

#     (  group_name,

#        coordinate_frame_id,

#        translation_vector,

#        delete_original,

#        use_original_labels,

#        repeat_count,

#        lbc_copy_sets,

#        lbc_transform_sets,

#        prop_copy_sets,

#        prop_transform_sets )

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

#  Variable Declarations

STRING   s_group_name[32]

STRING   s_coordinate_frame_id[32]

STRING   s_translation_vector[32]

LOGICAL  l_delete_original

LOGICAL  l_use_original_labels

INTEGER  i_repeat_count

STRING   sa_lbc_copy_sets[32](2)

STRING   sa_lbc_transform_sets[32](2)

STRING   sa_prop_copy_sets[32](2)

STRING   sa_prop_transform_sets[32](2)

INTEGER  i_return_value

STRING   sv_hpat_ids[VIRTUAL]

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

#  Open a new database "new.db"

uil_file_new.go("", "new.db")

$? YES 36000002

#  Create cube of dimension of 1*1*1

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<1 1 1>", "[0 0 0]", "Coord 0",   @

         sv_hpat_ids )

dump i_return_value

#  Set ISO-1 viewing

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#  Create lbc

i_return_value =                                 @

   loadsbcs_create                               @

      (  "force_1", "Force", "Nodal", "",        @

         "Static", ["Point 7"], "Geometry",      @

         "Coord 0", 1., ["<0 -100 0     >",      @

         "<    >"], ["", ""] )

dump i_return_value

#  Session file paused. Press "Resume" to continue..

sf_pause()

#  Name of the group

s_group_name = "default_group"

#  Linear translation details

s_coordinate_frame_id = "CoordinateFrame 0"

s_translation_vector  = "<3 3 3>"

#  Do not delete original entities

l_delete_original = FALSE

#  Do not set same labels to the new entities as that of original

l_use_original_labels = FALSE

#  Number of times to repeat the transformation

i_repeat_count = 1

#  Names of LBCs to be copied without co-ordinate transformation.

sa_lbc_copy_sets(1) = "$ALL"

sa_lbc_copy_sets(2) = ""

#  Create a new set of entities by vector transformation method

i_return_value =                                 @

   ga_group_transform_translate2                 @

      (  s_group_name,                           @

         s_coordinate_frame_id,                  @

         s_translation_vector,                   @

         l_delete_original,                      @

         l_use_original_labels,                  @

         i_repeat_count,                         @

         sa_lbc_copy_sets,                       @

         sa_lbc_transform_sets,                  @

         sa_prop_copy_sets,                      @

         sa_prop_transform_sets )

dump i_return_value

#  Free allocated memory

sys_free_string(sv_hpat_ids)

#  Copy of created entities can be seen in the display

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


uil_group_members_get	()

#  Purpose          :  This file provides an example of 2 calls to the

#                      function uil_group_members_get()

#                      This function gets the list of all members of

#                      a group.

#                      In this example a new database is opened and

#                      this function is called to get the list of

#                      members in "default_group". A cube is then

#                      created. This cube forms the member of the

#                      current group i.e "default_group". Then this

#                      function is called once again to get the list

#                      of members in "default_group".

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

#  has the following arguments:

#  uil_group_members_get

#     (  group_name,

#        members )

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

#  Variable Declarations

STRING   s_group_name[32]

STRING   sv_members[VIRTUAL]

INTEGER  i_return_value

STRING   sv_hpat_ids[VIRTUAL]

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

#  Open a new database "new.db"

uil_file_new.go("", "new.db")

$? YES 36000002

#  Get the list of all members of group

s_group_name = "default_group"

i_return_value =                                 @

   uil_group_members_get                         @

      (  s_group_name,                           @

         sv_members )

dump i_return_value

dump sv_members

#  Create cube of dimension of 1*1*1

i_return_value =                                 @

   asm_const_hpat_xyz                            @

      (  "1", "<1 1 1>", "[0 0 0]", "Coord 0",   @

         sv_hpat_ids )

dump i_return_value

#  Set ISO-1 viewing

i_return_value =                                 @

   ga_view_aa_set( 23., -34., 0. )

dump i_return_value

#  Get the list of all members of group

s_group_name = "default_group"

i_return_value =                                 @

   uil_group_members_get                         @

      (  s_group_name,                           @

         sv_members )

dump i_return_value

dump sv_members

#  Free allocated memory

sys_free_string(sv_members)

sys_free_string(sv_hpat_ids)

#  It can be found that list showing "Point 1:8 Solid 1" after the

#  creation of the solid

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