Beam Library

PCL Examples > Property Assignment Functions > Beam Library

Beam Library

This section contains examples of some of the functions that pertain to beam properties.


beam_section_create	()

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

#                      function beam_section_create()

#                      This function creates a new beam section with

#                      the given beam shape and a list of dimensions.

#                      In this example a new database is opened and

#                      paused. The user is instructed to check the

#                      listing of available beam sections. Then a beam

#                      of T-section (BEAM_SECTION_1) is created and

#                      the listing of beam-sections is once again

#                      checked.

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

#  has the following arguments:

#  beam_section_create

#     (  name,

#        shape,

#        dstrings )

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

#  Variable Declarations

STRING   s_name[32]

STRING   s_shape[8]

STRING   sa_dstrings[32](4)

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Follow the given direction to get a list of "Beam Section"

#  available in database.

#  1. Pick "Properties" of Application-radio button.

#  2. Select "1D" against "Dimension", in the Element Properties form

#  3. Press "Input Properties..." and activate the databox

#     against "Section Name" in the appearing form

#     The above selection displays the list of sections available in

#     the database in the list box titled "Beam Section" just above

#     the "OK" button.

#  Close the forms by picking "Properties" of Application-radio button

#  and resume the working.

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

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

sf_pause()

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

#  Create beam section "BEAM_SECTION_1"

s_name         = "BEAM_SECTION_1"

s_shape        = "T"

sa_dstrings(1) = "5.0"

sa_dstrings(2) = "5.0"

sa_dstrings(3) = "1.0"

sa_dstrings(4) = "1.0"

i_return_value =                                                @

   beam_section_create                                          @

      (  s_name,                                                @

         s_shape,                                               @

         sa_dstrings )

dump i_return_value

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

#  Check the listing of "Beam Section" as instructed before.

#  It can be observed that the "BEAM_SECTION_1" appearing on the list.

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


beam_section_delete	()

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

#                      the function beam_section_delete()

#                      This function deletes a list of beams.

#                      In this example a new database is opened and 2

#                      beam-sections (BEAM_1 & BEAM_2) are created.

#                      The session is paused and the user is

#                      instructed to check the listing of available

#                      beam sections. After resuming, BEAM_1 is

#                      deleted using this function and the listing of

#                      available beam sections is once again checked.

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

#  has the following arguments:

#  beam_section_delete

#     (  section_names )

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

#  Variable Declarations

STRING   sa_section_names[32](1)

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create beam section "BEAM_1" & "BEAM_2"

i_return_value =                                                   @

   beam_section_create("BEAM_1", "T",["5.0", "5.0", "1.0", "1.0"])

dump i_return_value

i_return_value =                                                   @

   beam_section_create("BEAM_2", "L",["5.0", "5.0", "1.0", "1.0"])

dump i_return_value

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

#  Follow the given direction to get a list of "Beam Section"

#  available in database.

#  1. Pick "Properties" of Application-radio button.

#  2. Select "1D" against "Dimension", in the Element Properties form

#  3. Press "Input Properties..." and activate the databox

#     against "Section Name" in the appearing form

#     The above selection displays the list of sections available in

#     the database in the list box titled "Beam Section" just above

#     the "OK" button.

#  Close the forms by picking "Properties" of Application-radio button

#  and resume the working.

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

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

sf_pause()

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

#  Delete the "BEAM_1"

sa_section_names(1) = "BEAM_1"

i_return_value =                                                   @

   beam_section_delete                                             @

      (  sa_section_names )

dump i_return_value

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

#  Check the listing of "Beam Section" as instructed before.

#  It can be observed that the "BEAM_1" not appearing on the list.

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


beam_section_display	()

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

#                      function beam_section_display()

#                      This function creates a new beam section with

#                      the given beam shape and a list of dimensions.

#                      In this example a new database is opened and a

#                      beam of T-section ("BEAM_1") is created

#                      and displayed using this 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 beam_section_display()

#  has the following arguments:

#  beam_section_display

#     (  shape,

#        name,

#        dstrings,

#        ent_or_loc,

#        sel_string,

#        c1 )

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

#  Variable Declarations

STRING   s_shape[8]

STRING   s_name[32]

STRING   sa_dstrings[32](4)

STRING   s_ent_or_loc[8]

STRING   s_sel_string[8]

REAL     r_c1

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create beam section "BEAM_1"

i_return_value =                                                   @

   beam_section_create("BEAM_1", "T",["5.0", "5.0", "1.0", "1.0"])

dump i_return_value

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

#  Display beam section "BEAM_1"

s_shape        = "T"

s_name         = "BEAM_1"

sa_dstrings(1) = "5.0"

sa_dstrings(2) = "5.0"

sa_dstrings(3) = "1.0"

sa_dstrings(4) = "1.0"

s_ent_or_loc   = ""

s_sel_string   = ""

r_c1           = 0.0

i_return_value =                                                   @

   beam_section_display                                            @

      (  s_shape,                                                  @

         s_name,                                                   @

         sa_dstrings,                                              @

         s_ent_or_loc,                                             @

         s_sel_string,                                             @

         r_c1 )

dump i_return_value

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


beam_section_modify	()

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

#                      function beam_section_modify()

#                      This function modifies an existing beam section

#                      by replacing its name, shape and dimension

#                      In this example a new database is opened and a

#                      beam of T-section ("BEAM_ORIGINAL") is created

#                      and paused. The user is then instructed to

#                      observe the listing of available beam-sections.

#                      After a pause the dimension and the name of

#                      "BEAM_ORIGINAL" are modified and  the listing

#                      of available beam sections is once again

#                      checked.

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

#  has the following arguments:

#  beam_section_modify

#     (  old_name,

#        new_name,

#        shape,

#        dstrings )

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

#  Variable Declarations

STRING   s_old_name[32]

STRING   s_new_name[32]

STRING   s_shape[8]

STRING   sa_dstrings[32](4)

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create beam section "BEAM_ORIGINAL"

s_old_name     = "BEAM_ORIGINAL"

s_shape        = "T"

sa_dstrings(1) = "5.0"

sa_dstrings(2) = "5.0"

sa_dstrings(3) = "1.0"

sa_dstrings(4) = "1.0"

i_return_value =                                                @

   beam_section_create                                          @

      (  s_old_name, s_shape, sa_dstrings )

dump i_return_value

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

#  Follow the given direction to get a list of "Beam Section"

#  available in database.

#  1. Pick "Properties" of Application-radio button.

#  2. Select "1D" against "Dimension", in the Element Properties form

#  3. Press "Input Properties..." and activate the databox

#     against "Section Name" in the appearing form

#     The above selection displays the list of sections available in

#     the database in the list box titled "Beam Section" just above

#     the "OK" button.

#  Close the forms by picking "Properties" of Application-radio button

#  and resume the working.

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

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

sf_pause()

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

#  Modify "BEAM_1"

s_new_name     = "BEAM_MODIFIED"

sa_dstrings(1) = "10.0"

sa_dstrings(2) = "10.0"

sa_dstrings(3) = "1.0"

sa_dstrings(4) = "1.0"

i_return_value =                                                @

   beam_section_modify                                          @

      (  s_old_name,                                            @

         s_new_name,                                            @

         s_shape,                                               @

         sa_dstrings )

dump i_return_value

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

#  Check the listing of "Beam Section" as instructed before.

#  It can be observed that the beam-section,"BEAM_ORIGINAL" being

#  replaced with "BEAM_MODIFIED"

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


beam_section_report	()

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

#                      function beam_section_report()

#                      This function writes the given information of

#                      a beam section and the calculated section

#                      properties to the report file.

#                      In this example a new database is opened and a

#                      beam section (BEAM_1) is created. Then the

#                      session file is paused for user to input report

#                      file name. Finally this function is called to

#                      write mass properties to the report file.

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

#  has the following arguments:

#  beam_section_report

#     (  shape,

#        name,

#        dstrings,

#        ent_or_loc,

#        sel_string,

#        c1 )

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

#  Variable Declarations

STRING   s_shape[8]

STRING   s_name[32]

STRING   sa_dstrings[32](4)

STRING   s_ent_or_loc[32]

STRING   s_sel_string[32]

REAL     r_c1

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create beam section "BEAM_1"

s_name         = "BEAM_1"

s_shape        = "T"

sa_dstrings(1) = "5.0"

sa_dstrings(2) = "5.0"

sa_dstrings(3) = "1.0"

sa_dstrings(4) = "1.0"

i_return_value =                                                @

   beam_section_create                                          @

      (  s_name, s_shape, sa_dstrings )

dump i_return_value

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

#  Follow the given instruction for the input of report file name

#     1. Pick "File" from the menu bar

#     2. Select "Report"

#     3. Input the name of the report file as "BEAM_1.rpt"

#     4. Press "Apply" and "Cancel"

#  Pick "Resume" for session file play

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

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

sf_pause()

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

#  Write beam properties to file "BEAM_1.rpt"

s_ent_or_loc   = ""

s_sel_string   = ""

r_c1           = 0.0

i_return_value =                                                @

   beam_section_report                                          @

      (  s_shape,                                               @

         s_name,                                                @

         s_dstrings,                                           @

         s_ent_or_loc,                                          @

         s_sel_string,                                          @

         r_c1 )

dump i_return_value

#  It can be observed that a new report file (BEAM_1.rpt) is

#  created in the current directory. This file contains the

#  properties of BEAM_1.

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