() |
#
# Purpose : This file provides an example of a call to the
# function loadsbcs_create()
#
# This function creates a new Load/BC set in the
# database.
#
# In this example a new database is opened and a
# cuboid of dimension 5 X 1 X 1 is created. Then
# this function is called to create a load set
# consisting of force, "New_Force" on the edge of
# the cuboid. The creation is verified by getting
# the number of lbcs present in the database
# before and after the creation of the load set.
#
# 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 loadsbcs_create()
# has the following arguments:
#
# loadsbcs_create
# ( lbc_name,
# lbc_type,
# lbc_category,
# target_element,
# load_case_type,
# ap_list,
# geo_filter,
# alt_coord_frame,
# lbc_scale_factor,
# static_data,
# dynamic_data)
#
#---------------------------------------------------------------------
# Variable Declarations
STRING s_lbc_name[32]
STRING s_lbc_type[66]
STRING s_lbc_category[32]
STRING s_target_element[32]
STRING s_load_case_type[32]
STRING sa_ap_list[32](1)
STRING s_geo_filter[32]
STRING s_alt_coord_frame[200]
REAL r_lbc_scale_factor
STRING sa_static_data[100](2)
STRING sa_dynamic_data[200](2)
INTEGER i_return_value
STRING sv_create_hpat_xyz_created_ids[VIRTUAL]
INTEGER i_load_count
#---------------------------------------------------------------------
# Open a new database
uil_file_new.go( "", "new.db" )
$? YES 36000002
# Set ISO-1 viewing
i_return_value = @
ga_view_aa_set @
( 23., -34., 0. )
dump i_return_value
#---------------------------------------------------------------------
# Create cuboid
i_return_value = @
asm_const_hpat_xyz @
( "1", "<5 1 1>", "[0 0 0]", "Coord 0", @
sv_create_hpat_xyz_created_ids )
dump i_return_value
#---------------------------------------------------------------------
# Count number of Loads/BCs before load set creation
i_return_value = @
db_count_lbc(i_load_count)
dump i_return_value
dump i_load_count
#---------------------------------------------------------------------
# Create load set "New_Force"
s_lbc_name = "New_Force"
s_lbc_type = "Force"
s_lbc_category = "Nodal"
s_target_element = ""
s_load_case_type = "Static"
sa_ap_list(1) = "Solid 1.2.3"
s_geo_filter = "Geometry"
s_alt_coord_frame = "Coord 0"
r_lbc_scale_factor = 1.0
sa_static_data(1) = "< 0. -100. 0. >"
sa_static_data(2) = "< 0. 0. 0. >"
sa_dynamic_data(1) = ""
sa_dynamic_data(2) = ""
i_return_value = @
loadsbcs_create @
( s_lbc_name, @
s_lbc_type, @
s_lbc_category, @
s_target_element, @
s_load_case_type, @
sa_ap_list, @
s_geo_filter, @
s_alt_coord_frame, @
r_lbc_scale_factor, @
sa_static_data, @
sa_dynamic_data)
dump i_return_value
# Count number of Loads/BCs after load set creation
i_return_value = @
db_count_lbc(i_load_count)
dump i_return_value
dump i_load_count
#---------------------------------------------------------------------
# Free allocated memory
sys_free_string( sv_create_hpat_xyz_created_ids)
#---------------------------------------------------------------------
() |
#
# Purpose : This file provides an example of a call to the
# function loadsbcs_delete()
#
# This function deletes the specified Load/BC
# sets from the database.
#
# In this example a new database is opened and a
# cuboid of dimension 5 X 1 X 1 is created. Then
# a load set is created consisting of force,
# "New_Force" on the edge of the cuboid. Then
# this function is called to delete the created
# load set, after a pause.The deletion is
# verified by getting the number of lbcs present
# in the database before and after the deletion
# of the load set.
#
# 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 loadsbcs_delete()
# has the following arguments:
#
# loadsbcs_delete
# ( lbc_names )
#
#---------------------------------------------------------------------
# Variable Declarations
STRING sa_lbc_names[32](1)
INTEGER i_return_value
STRING sv_create_hpat_xyz_created_ids[VIRTUAL]
INTEGER i_load_count
#---------------------------------------------------------------------
# Open a new database
uil_file_new.go( "", "new.db" )
$? YES 36000002
# Set ISO-1 viewing
i_return_value = @
ga_view_aa_set @
( 23., -34., 0. )
dump i_return_value
#---------------------------------------------------------------------
# Create cuboid
i_return_value = @
asm_const_hpat_xyz @
( "1", "<5 1 1>", "[0 0 0]", "Coord 0", @
sv_create_hpat_xyz_created_ids )
dump i_return_value
#---------------------------------------------------------------------
# Create load set "New_Force"
i_return_value = @
loadsbcs_create @
( "New_Force", "Force", "Nodal", "", @
"Static", ["Solid 1.2.3"], "Geometry", @
"Coord 0", 1., ["<0. -100. 0.>", @
"< 0. 0. 0.>"], ["", ""] )
dump i_return_value
# Count number of Loads/BCs after load set creation
i_return_value = @
db_count_lbc(i_load_count)
dump i_return_value
dump i_load_count
#---------------------------------------------------------------------
# Session file paused. Press "Resume" to continue..
sf_pause()
#---------------------------------------------------------------------
# Delete load set "New_Force"
sa_lbc_names(1) = "New_Force"
i_return_value = @
loadsbcs_delete @
( sa_lbc_names )
dump i_return_value
# Count number of Loads/BCs after load set creation
i_return_value = @
db_count_lbc(i_load_count)
dump i_return_value
dump i_load_count
#---------------------------------------------------------------------
# Free allocated memory
sys_free_string( sv_create_hpat_xyz_created_ids)
#---------------------------------------------------------------------
() |
#
# Purpose : This file provides an example of a call to the
# function loadsbcs_modify()
#
# This function modifies the specified Load/BC
# sets in the database.
#
# In this example a new database is opened and a
# cuboid of dimension 5 X 1 X 1 is created. Then
# a load set is created consisting of force,
# "New_Force" on the edge of the cuboid. Then
# this function is called to modify the created
# load set, after a pause. The application region
# and the name of the load set are modified.
#
# 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 loadsbcs_modify()
# has the following arguments:
#
# loadsbcs_modify
# ( old_name,
# new_name,
# lbc_type,
# lbc_category,
# target_element,
# load_case_type,
# ap_list,
# geo_filter,
# alt_coord_frame,
# lbc_scale_factor,
# static_data,
# dynamic_data )
#
#---------------------------------------------------------------------
# Variable Declarations
STRING s_old_name[32]
STRING s_new_name[32]
STRING s_lbc_type[32]
STRING s_lbc_category[32]
STRING s_target_element[32]
STRING s_load_case_type[32]
STRING sa_ap_list[32](1)
STRING s_geo_filter[32]
STRING s_alt_coord_frame[200]
REAL r_lbc_scale_factor
STRING sa_static_data[100](2)
STRING sa_dynamic_data[200](2)
INTEGER i_return_value
STRING sv_create_hpat_xyz_created_ids[VIRTUAL]
#---------------------------------------------------------------------
# Open a new database
uil_file_new.go( "", "new.db" )
$? YES 36000002
# Set ISO-1 viewing
i_return_value = @
ga_view_aa_set @
( 23., -34., 0. )
dump i_return_value
#---------------------------------------------------------------------
# Create cuboid
i_return_value = @
asm_const_hpat_xyz @
( "1", "<5 1 1>", "[0 0 0]", "Coord 0", @
sv_create_hpat_xyz_created_ids )
dump i_return_value
#---------------------------------------------------------------------
# Create load set "New_Force"
i_return_value = @
loadsbcs_create @
( "New_Force", "Force", "Nodal", "", @
"Static", ["Solid 1.2.3"], "Geometry", @
"Coord 0", 1., ["<0. -100. 0.>", @
"< 0. 0. 0.>"], ["", ""] )
dump i_return_value
#---------------------------------------------------------------------
# Session file paused. Press "Resume" to continue..
sf_pause()
#---------------------------------------------------------------------
# Modify load set "New_Force" to "Modified_Force"
s_old_name = "New_Force"
s_new_name = "Modified_Force"
s_lbc_type = "Force"
s_lbc_category = "Nodal"
s_target_element = ""
s_load_case_type = "Static"
sa_ap_list(1) = "Solid 1.4.3"
s_geo_filter = "Geometry"
s_alt_coord_frame = "Coord 0"
r_lbc_scale_factor = 1.0
sa_static_data(1) = "< 0. -100. 0. >"
sa_static_data(2) = "< 0. 0. 0. >"
sa_dynamic_data(1) = ""
sa_dynamic_data(2) = ""
i_return_value = @
loadsbcs_modify @
( s_old_name, @
s_new_name, @
s_lbc_type, @
s_lbc_category, @
s_target_element, @
s_load_case_type, @
sa_ap_list, @
s_geo_filter, @
s_alt_coord_frame, @
r_lbc_scale_factor, @
sa_static_data, @
sa_dynamic_data )
dump i_return_value
#---------------------------------------------------------------------
# Free allocated memory
sys_free_string( sv_create_hpat_xyz_created_ids)
#---------------------------------------------------------------------
() |
#
# Purpose : This file provides an example of a call to the
# function loadsbcs_plot_contours()
#
# This function displays contour of the selected
# data variable on the selected group for an
# Load/BC in the current load case.
#
# In this example a new database is opened and a
# surface ( 5 X 1 ) in XZ plane is created. Then
# load set of varying pressure ("New_Press" - 0
# to 500 Units ) is created on the surface using
# field, "New_Field". Then this function is
# called to display the contours of
# "Top Surf Pressure" of load set "New_Press" for
# default group. Warnings generated during the
# execution of this example are to be ignored.
#
# 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 loadsbcs_plot_contours()
# has the following arguments:
#
# loadsbcs_plot_contours
# ( lbc_type,
# dynamic_value,
# data_variable,
# vector_component,
# lbc_name,
# group_names )
#
#---------------------------------------------------------------------
# Variable Declarations
STRING s_lbc_type[32]
REAL r_dynamic_value
STRING sa_data_variable[32]
STRING sa_vector_component[32]
STRING sa_lbc_name[32](1)
STRING sa_group_names[32](1)
INTEGER i_return_value
STRING sv_create_patch_xy_created_ids[VIRTUAL]
INTEGER i_fem_mesh_surfa_num_nodes
INTEGER i_fem_mesh_surfa_num_elems
STRING sv_fem_mesh_s_nodes_created[VIRTUAL]
STRING sv_fem_mesh_s_elems_created[VIRTUAL]
#---------------------------------------------------------------------
# Open a new database
uil_file_new.go( "", "new.db" )
$? YES 36000002
# Set ISO-1 viewing
i_return_value = @
ga_view_aa_set @
( 23., -34., 0. )
dump i_return_value
#---------------------------------------------------------------------
# Create surface
i_return_value = @
asm_const_patch_xyz @
( "1", "<5 0 1>", "[0 0 0]", "Coord 0", @
sv_create_patch_xy_created_ids )
dump i_return_value
# Create Finite Elements
i_return_value = @
fem_create_mesh_surf_2 @
( "IsoMesh", 0, "Surface 1 ", 1, [1.], @
"Quad4", "1", "1" , "Coord 0","Coord 0", @
i_fem_mesh_surfa_num_nodes, @
i_fem_mesh_surfa_num_elems, @
sv_fem_mesh_s_nodes_created, @
sv_fem_mesh_s_elems_created )
dump i_return_value
# Create field "New_Field"
i_return_value = @
fields_create @
( "New_Field", "Spatial", 1, "Scalar", @
"Real", "Coord 0", "", "Function",1,"X", @
"", "", "100*’X", "", "", FALSE, [0.], @
[0.], [0.], [[[0.]]] )
dump i_return_value
# Create load set "New_Press"
i_return_value = @
loadsbcs_create @
( "New_Press","Pressure","Element Uniform",@
"2D", "Static",["Surface 1"],"Geometry", @
"", 1., ["f:New_Field", " 0", " 0"], @
["", "", ""] )
dump i_return_value
#---------------------------------------------------------------------
# Plot contours
s_lbc_type = "Pressure"
r_dynamic_value = 0.
sa_data_variable = "Top Surf Pressure"
sa_vector_component = "Resultant"
sa_lbc_name(1) = "New_Press"
sa_group_names(1) = "default_group"
i_return_value = @
loadsbcs_plot_contours @
( s_lbc_type, @
r_dynamic_value, @
sa_data_variable, @
sa_vector_component, @
sa_lbc_name, @
sa_group_names )
dump i_return_value
#---------------------------------------------------------------------
# Free allocated memory
sys_free_string( sv_create_patch_xy_created_ids)
sys_free_string( sv_fem_mesh_s_nodes_created)
sys_free_string( sv_fem_mesh_s_elems_created)
#---------------------------------------------------------------------
() |
#
# Purpose : This file provides an example of a call to the
# function loadsbcs_plot_markers()
#
# In this example a new database is opened and a
# cuboid of dimension 5 X 1 X 1 with a load set
# (New_Disp) is created. Then the markers of
# "New_Disp" is displayed using this function
# after a pause.
#
# 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 loadsbcs_plot_markers()
# has the following arguments:
#
# loadsbcs_plot_markers
# ( lbc_name,
# group_names )
#
#---------------------------------------------------------------------
# Variable Declarations
STRING sa_lbc_name[32](1)
STRING sa_group_names[32](1)
INTEGER i_return_value
STRING sv_create_hpat_xyz_created_ids[VIRTUAL]
#---------------------------------------------------------------------
# Open a new database
uil_file_new.go( "", "new.db" )
$? YES 36000002
# Set ISO-1 viewing
i_return_value = @
ga_view_aa_set @
( 23., -34., 0. )
dump i_return_value
#---------------------------------------------------------------------
# Create cuboid
i_return_value = @
asm_const_hpat_xyz @
( "1", "<5 1 1>", "[0 0 0]", "Coord 0", @
sv_create_hpat_xyz_created_ids )
dump i_return_value
#---------------------------------------------------------------------
# Create load sets "New_Disp"
i_return_value = @
loadsbcs_create @
( "New_Disp", "Displacement", "Nodal","", @
"Static", ["Point 1 2 5 6"], "Geometry",@
"Coord 0", 1., ["< 0. 0. 0. >", @
"<0. 0. 0.>"], ["", ""] )
dump i_return_value
#---------------------------------------------------------------------
# Session file paused. Press "Resume" to continue..
sf_pause()
#---------------------------------------------------------------------
# Plot markers for load set "New_Disp"
sa_lbc_name(1) = "New_Disp"
sa_group_names(1) = "default_group"
i_return_value = @
loadsbcs_plot_markers @
( sa_lbc_name, @
sa_group_names )
dump i_return_value
#---------------------------------------------------------------------
# Free allocated memory
sys_free_string( sv_create_hpat_xyz_created_ids)
#---------------------------------------------------------------------
() |
#
# Purpose : This file provides an example of a call to the
# function loadsbcs_show()
#
# This function shows a display of data for a
# selected Load/BC set on a spreadsheet.
#
# In this example a new database is opened and a
# cuboid of dimension 5 X 1 X 1 with a load set,
# "New_Force" is created. Then this function is
# called to display the tabular details of the
# lbc "New_Force".
#
# 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 loadsbcs_show()
# has the following arguments:
#
# loadsbcs_show
# ( lbc_name )
#
#---------------------------------------------------------------------
# Variable Declarations
STRING s_lbc_name[32]
INTEGER i_return_value
STRING sv_create_hpat_xyz_created_ids[VIRTUAL]
#---------------------------------------------------------------------
# Open a new database
uil_file_new.go( "", "new.db" )
$? YES 36000002
# Set ISO-1 viewing
i_return_value = @
ga_view_aa_set @
( 23., -34., 0. )
dump i_return_value
#---------------------------------------------------------------------
# Create cuboid
i_return_value = @
asm_const_hpat_xyz @
( "1", "<5 1 1>", "[0 0 0]", "Coord 0", @
sv_create_hpat_xyz_created_ids )
dump i_return_value
#---------------------------------------------------------------------
# Create load set "New_Force"
i_return_value = @
loadsbcs_create @
( "New_Force", "Force", "Nodal", "", @
"Static", ["Solid 1.2.3"], "Geometry", @
"Coord 0", 1., ["<0. -100. 0.>", @
"< 0. 0. 0.>"], ["", ""] )
dump i_return_value
#---------------------------------------------------------------------
# Display lbc details in Tabular form
s_lbc_name = "New_Force"
loadsbcs_show( s_lbc_name )
#---------------------------------------------------------------------
# Free allocated memory
sys_free_string( sv_create_hpat_xyz_created_ids)
#---------------------------------------------------------------------