() |
#
# Purpose : This file provides an example of a call to the
# function elementprops_create()
#
# This function creates an element property set.
#
# In this example a new database is opened. A
# cuboid of dimension 5 X 1 X 1 is created and
# meshed.Then a material("Aluminium") is created.
# The material is associated with the elements
# 1 & 2 using this function. The creation of the
# element property set is verified by getting the
# number of property words associated with the
# property regions.
#
# 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 elementprops_create()
# has the following arguments:
#
# elementprops_create
# ( name,
# elem_type_id,
# geo_opt_id,
# con_opt_id,
# for_opt_id,
# lam_opt_id,
# dof_opt_id,
# pids,
# dtypes,
# dstrings,
# app_str )
#
#---------------------------------------------------------------------
# Variable Declarations
STRING s_name[32]
INTEGER i_elem_type_id
INTEGER i_geo_opt_id
INTEGER i_con_opt_id
INTEGER i_for_opt_id
INTEGER i_lam_opt_id
INTEGER i_dof_opt_id
INTEGER ia_pids(5)
INTEGER ia_dtypes(5)
STRING sa_dstrings[32](5)
STRING sv_app_str[VIRTUAL]
INTEGER i_return_value
STRING sv_create_hpat_xyz_created_ids[VIRTUAL]
INTEGER i_create_mesh_solid_num_nodes
INTEGER i_create_mesh_solid_num_elems
STRING sv_create_mesh_s_nodes_created[VIRTUAL]
STRING sv_create_mesh_s_elems_created[VIRTUAL]
INTEGER i_region_id = 1
INTEGER i_num_words
#---------------------------------------------------------------------
# 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 FEM mesh on solid
i_return_value = @
fem_create_mesh_sol( "Solid 1", @
1.0, "Hex8", "1", "1", "Coord 0", @
"Coord 0", i_create_mesh_solid_num_nodes, @
i_create_mesh_solid_num_elems, @
sv_create_mesh_s_nodes_created, @
sv_create_mesh_s_elems_created )
dump i_return_value
#---------------------------------------------------------------------
# Create material "Aluminium"
i_return_value = @
material.create( "Analysis code ID", 1, @
"Analysis type ID", 1, "Aluminium", 0, "", @
"Isotropic", 1,"Directionality", 1, @
"Linearity", 1, "Homogeneous", 0, @
"Linear Elastic", 1, "Model Options & IDs",@
["", "", "", "", ""], [0, 0, 0, 0, 0], @
"Active Flag", 1, "Create", 10, @
"External Flag", FALSE, "Property IDs", @
["Elastic Modulus","Poisson Ratio", @
"Density"], [2,5,16,0],"Property Values", @
["10.1E6", "0.33", "0.1", ""] )
dump i_return_value
#---------------------------------------------------------------------
# Count the number of property words associated with property region
# before creation of element property set.
i_return_value = @
db_count_props( i_region_id, i_num_words)
dump i_return_value
dump i_num_words
#---------------------------------------------------------------------
# Create Element property set
s_name = "elem_prop_1"
i_elem_type_id = 71
i_geo_opt_id = 25
i_con_opt_id = 30
i_for_opt_id = 1
i_lam_opt_id = 1
i_dof_opt_id = 20
ia_pids = [13, 21, 4124, 4126, 4125]
ia_dtypes = [5, 4, 4, 4, 4]
sa_dstrings(1) = "m:Aluminium"
sv_app_str = "Element 1 2"
i_return_value = @
elementprops_create @
( s_name, @
i_elem_type_id, @
i_geo_opt_id, @
i_con_opt_id, @
i_for_opt_id, @
i_lam_opt_id, @
i_dof_opt_id, @
ia_pids, @
ia_dtypes, @
sa_dstrings, @
sv_app_str )
dump i_return_value
#---------------------------------------------------------------------
# Count the number of property words associated with property region
# after creation of element property set.
i_return_value = @
db_count_props( i_region_id, i_num_words)
dump i_return_value
dump i_num_words
#---------------------------------------------------------------------
# Free allocated memory
sys_free_string( sv_app_str)
sys_free_string( sv_create_hpat_xyz_created_ids)
sys_free_string( sv_create_mesh_s_nodes_created)
sys_free_string( sv_create_mesh_s_elems_created)
#---------------------------------------------------------------------
() |
#
# Purpose : This file provides an example of a call to the
# function elementprops_delete()
#
# This function deletes element property sets.
#
# In this example a new database is opened. A
# cuboid of dimension 5 X 1 X 1 is created and
# meshed. Then a material("Aluminium") is created
# and associated with the elements using function
# elementprops_create(). Then this function is
# called to delete the created element-property.
# The deletion of the element property set is
# verified by getting the number of property
# words associated with the property regions
# before and after deletion.
#
# 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 elementprops_delete()
# has the following arguments:
#
# elementprops_delete
# ( del_names )
#
#---------------------------------------------------------------------
# Variable Declarations
STRING sa_del_names[32](1)
INTEGER i_return_value
STRING sv_create_mesh_s_nodes_created[VIRTUAL]
STRING sv_create_mesh_s_elems_created[VIRTUAL]
STRING sv_create_hpat_xyz_created_ids[VIRTUAL]
INTEGER i_create_mesh_solid_num_nodes
INTEGER i_create_mesh_solid_num_elems
INTEGER i_region_id = 1
INTEGER i_num_words
#---------------------------------------------------------------------
# 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 FEM mesh on solid
i_return_value = @
fem_create_mesh_sol @
( "Solid 1",1.,"Hex8","1", "1","Coord 0", "Coord 0", @
i_create_mesh_solid_num_nodes, @
i_create_mesh_solid_num_elems, @
sv_create_mesh_s_nodes_created, @
sv_create_mesh_s_elems_created )
dump i_return_value
#---------------------------------------------------------------------
# Create material "Aluminium"
i_return_value = @
material.create @
( "Analysis code ID",1,"Analysis type ID",1,"Aluminium", @
0,"", "Isotropic", 1,"Directionality",1, "Linearity",1,@
"Homogeneous",0,"Linear Elastic",1,"Model Options"// @
" & IDs", ["", "", "", "", ""], [0, 0, 0, 0, 0], @
"Active Flag", 1, "Create", 10, "External Flag", FALSE,@
"Property IDs", ["Elastic Modulus","Poisson Ratio", @
"Density"], [2,5,16,0],"Property Values", ["10.1E6", @
"0.33", "0.1", ""] )
dump i_return_value
#---------------------------------------------------------------------
# Create Element property set
i_return_value = @
elementprops_create @
( "elem_prop_1", 71, 25, 30, 1, 1, 20, [13, 21,4124,4126,@
4125], [5,4,4, 4, 4],["m:Aluminium","", "", "", ""], @
"Element 1:5" )
dump i_return_value
#---------------------------------------------------------------------
# Count the number of property words associated with property region
# before deletion of element property set.
i_return_value = @
db_count_props( i_region_id, i_num_words)
dump i_return_value
dump i_num_words
#---------------------------------------------------------------------
# Delete element property set
sa_del_names(1) = "elem_prop_1"
i_return_value = @
elementprops_delete @
( sa_del_names )
dump i_return_value
#---------------------------------------------------------------------
# Count the number of property words associated with property region
# after deletion of element property set.
i_return_value = @
db_count_props( i_region_id, i_num_words)
dump i_return_value
dump i_num_words
#---------------------------------------------------------------------
# Free allocated memory
sys_free_string( sv_create_hpat_xyz_created_ids)
sys_free_string( sv_create_mesh_s_nodes_created)
sys_free_string( sv_create_mesh_s_elems_created)
#---------------------------------------------------------------------
() |
#
# Purpose : This file provides an example of a call to the
# function elementprops_modify()
#
# This function modifies element property sets.
#
# In this example a new database is opened. A
# cuboid of dimension 5 X 1 X 1 is created and
# meshed. Then a material("Aluminium") and an
# element property("Elem_Prop") is created. After
# a pause a new material("Polycarbonate") is
# created. Then the material of "Elem_Prop" is
# changed from "Aluminium" to "Polycarbonate" and
# the associated elements from "Element 1:5" to
# "Element 1:2". The change in element property
# is displayed in default viewport.
#
# 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 elementprops_modify()
# has the following arguments:
#
# elementprops_modify
# ( name,
# new_name,
# elem_type_id,
# geo_opt_id,
# con_opt_id,
# for_opt_id,
# lam_opt_id,
# dof_opt_id,
# pids,
# dtypes,
# dstrings,
# app_str )
#
#---------------------------------------------------------------------
# Variable Declarations
STRING s_name[32]
STRING s_new_name[32]
INTEGER i_elem_type_id
INTEGER i_geo_opt_id
INTEGER i_con_opt_id
INTEGER i_for_opt_id
INTEGER i_lam_opt_id
INTEGER i_dof_opt_id
INTEGER ia_pids(5)
INTEGER ia_dtypes(5)
STRING sa_dstrings[32](5)
STRING sv_app_str[VIRTUAL]
INTEGER i_return_value
STRING sv_create_hpat_xyz_created_ids[VIRTUAL]
INTEGER i_create_mesh_solid_num_nodes
INTEGER i_create_mesh_solid_num_elems
STRING sv_create_mesh_s_nodes_created[VIRTUAL]
STRING sv_create_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 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 FEM mesh on solid
i_return_value = @
fem_create_mesh_sol @
( "Solid 1",1.,"Hex8","1", "1","Coord 0", "Coord 0", @
i_create_mesh_solid_num_nodes, @
i_create_mesh_solid_num_elems, @
sv_create_mesh_s_nodes_created, @
sv_create_mesh_s_elems_created )
dump i_return_value
#---------------------------------------------------------------------
# Create material "Aluminium"
i_return_value = @
material.create @
( "Analysis code ID",1,"Analysis type ID",1,"Aluminium", @
0,"", "Isotropic", 1,"Directionality",1, "Linearity",1,@
"Homogeneous",0,"Linear Elastic",1,"Model Options"// @
" & IDs", ["", "", "", "", ""], [0, 0, 0, 0, 0], @
"Active Flag", 1, "Create", 10, "External Flag", FALSE,@
"Property IDs", ["Elastic Modulus","Poisson Ratio", @
"Density"], [2,5,16,0],"Property Values", ["10.1E6", @
"0.33", "0.1", ""] )
dump i_return_value
#---------------------------------------------------------------------
# Create Element property set
i_return_value = @
elementprops_create @
( "Elem_Prop", 71, 25, 30, 1, 1, 20, [13, 21,4124,4126,@
4125], [5,4,4, 4, 4],["m:Aluminium","", "", "", ""], @
"Element 1:5" )
dump i_return_value
#---------------------------------------------------------------------
# Display Material Name
i_return_value = @
elementprops_show @
( "Material Name", "Marker Plot", ["default_group"] )
dump i_return_value
#---------------------------------------------------------------------
# Session file paused. Press "Resume" to continue..
sf_pause()
#---------------------------------------------------------------------
# Create material "Polycarbonate"
i_return_value = @
material.create @
( "Analysis code ID",1,"Analysis type ID",1, @
"Polycarbonate",0,"","Isotropic", 1, "Directionality", @
1, "Linearity", 1, "Homogeneous", 0, "Linear Elastic", @
1, "Model Options & IDs", ["", "", "", "", ""], [0, 0, @
0, 0, 0], "Active Flag", 1, "Create", 10, @
"External Flag", FALSE, "Property IDs",["Elastic"// @
" Modulus", "Poisson Ratio", "Density"], [2, 5, 16, 0],@
"Property Values", ["3.9e5", "0.35", "0.042", ""] )
dump i_return_value
#---------------------------------------------------------------------
# Modify element property set "Elem_Prop"
s_name = "Elem_Prop"
s_new_name = "Elem_Prop"
i_elem_type_id = 71
i_geo_opt_id = 25
i_con_opt_id = 30
i_for_opt_id = 1
i_lam_opt_id = 1
i_dof_opt_id = 20
ia_pids = [13, 21, 4124, 4126, 4125]
ia_dtypes = [5, 4, 4, 4, 4]
sa_dstrings(1) = "m:Polycarbonate"
sv_app_str = "Element 1 2"
i_return_value= @
elementprops_modify @
( s_name, @
s_new_name, @
i_elem_type_id, @
i_geo_opt_id, @
i_con_opt_id, @
i_for_opt_id, @
i_lam_opt_id, @
i_dof_opt_id, @
ia_pids, @
ia_dtypes, @
sa_dstrings, @
sv_app_str )
dump i_return_value
#---------------------------------------------------------------------
# Display Material Name
dump i_return_value
i_return_value = @
elementprops_show @
( "Material Name", "Marker Plot", ["default_group"] )
dump i_return_value
#---------------------------------------------------------------------
# Free allocated memory
sys_free_string( sv_app_str)
sys_free_string( sv_create_hpat_xyz_created_ids)
sys_free_string( sv_create_mesh_s_nodes_created)
sys_free_string( sv_create_mesh_s_elems_created)
#---------------------------------------------------------------------
() |
#
# Purpose : This file provides an example of 2 calls to the
# function elementprops_show()
#
# This function displays element property values.
#
# In this example a new database is opened. A
# cuboid of dimension 5 X 1 X 1 is created and
# meshed. Then a material("Aluminium") and an
# element property("Elem_Prop") is created.
# The Material name is displayed and after
# a pause the name of element property is
# 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 elementprops_show()
# has the following arguments:
#
# elementprops_show
# ( prop_name,
# disp_type,
# grp_names )
#
#---------------------------------------------------------------------
# Variable Declarations
STRING s_prop_name[32]
STRING s_disp_type[32]
STRING sa_grp_names[32](1)
INTEGER i_return_value
STRING sv_create_hpat_xyz_created_ids[VIRTUAL]
INTEGER i_create_mesh_solid_num_nodes
INTEGER i_create_mesh_solid_num_elems
STRING sv_create_mesh_s_nodes_created[VIRTUAL]
STRING sv_create_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 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 FEM mesh on solid
i_return_value = @
fem_create_mesh_sol @
( "Solid 1",1.,"Hex8","1", "1","Coord 0", "Coord 0", @
i_create_mesh_solid_num_nodes, @
i_create_mesh_solid_num_elems, @
sv_create_mesh_s_nodes_created, @
sv_create_mesh_s_elems_created )
dump i_return_value
#---------------------------------------------------------------------
# Create material "Aluminium"
i_return_value = @
material.create @
( "Analysis code ID",1,"Analysis type ID",1,"Aluminium", @
0,"", "Isotropic", 1,"Directionality",1, "Linearity",1,@
"Homogeneous",0,"Linear Elastic",1,"Model Options"// @
" & IDs", ["", "", "", "", ""], [0, 0, 0, 0, 0], @
"Active Flag", 1, "Create", 10, "External Flag", FALSE,@
"Property IDs", ["Elastic Modulus","Poisson Ratio", @
"Density"], [2,5,16,0],"Property Values", ["10.1E6", @
"0.33", "0.1", ""] )
dump i_return_value
#---------------------------------------------------------------------
# Create Element property set
i_return_value = @
elementprops_create @
( "Elem_Prop", 71, 25, 30, 1, 1, 20, [13, 21,4124,4126,@
4125], [5,4,4, 4, 4],["m:Aluminium","", "", "", ""], @
"Element 1:3" )
dump i_return_value
#---------------------------------------------------------------------
# Display Material Name
s_prop_name = "Material Name"
s_disp_type = "Marker Plot"
sa_grp_names(1) = "default_group"
i_return_value = @
elementprops_show @
( s_prop_name, @
s_disp_type, @
sa_grp_names )
dump i_return_value
#---------------------------------------------------------------------
# Session file paused. Press "Resume" to continue..
sf_pause()
#---------------------------------------------------------------------
# Display Property Set Name
s_prop_name = "Property Set Name"
s_disp_type = "Marker Plot"
sa_grp_names(1) = "default_group"
i_return_value = @
elementprops_show @
( s_prop_name, @
s_disp_type, @
sa_grp_names )
dump i_return_value
#---------------------------------------------------------------------
# Free allocated memory
sys_free_string( sv_create_hpat_xyz_created_ids)
sys_free_string( sv_create_mesh_s_nodes_created)
sys_free_string( sv_create_mesh_s_elems_created)
#---------------------------------------------------------------------