() |
## 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 DeclarationsSTRING s_name[32]INTEGER i_elem_type_idINTEGER i_geo_opt_idINTEGER i_con_opt_idINTEGER i_for_opt_idINTEGER i_lam_opt_idINTEGER i_dof_opt_idINTEGER ia_pids(5)INTEGER ia_dtypes(5)STRING sa_dstrings[32](5)STRING sv_app_str[VIRTUAL]INTEGER i_return_valueSTRING sv_create_hpat_xyz_created_ids[VIRTUAL]INTEGER i_create_mesh_solid_num_nodesINTEGER i_create_mesh_solid_num_elemsSTRING sv_create_mesh_s_nodes_created[VIRTUAL]STRING sv_create_mesh_s_elems_created[VIRTUAL]INTEGER i_region_id = 1INTEGER i_num_words#---------------------------------------------------------------------# Open a new databaseuil_file_new.go( "", "new.db" )$? YES 36000002# Set ISO-1 viewingi_return_value = @ ga_view_aa_set @ ( 23., -34., 0. )dump i_return_value#---------------------------------------------------------------------# Create cuboidi_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 solidi_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_valuedump i_num_words#---------------------------------------------------------------------# Create Element property sets_name = "elem_prop_1"i_elem_type_id = 71i_geo_opt_id = 25i_con_opt_id = 30i_for_opt_id = 1i_lam_opt_id = 1i_dof_opt_id = 20ia_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_valuedump i_num_words#---------------------------------------------------------------------# Free allocated memorysys_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 DeclarationsSTRING sa_del_names[32](1)INTEGER i_return_valueSTRING 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_nodesINTEGER i_create_mesh_solid_num_elemsINTEGER i_region_id = 1INTEGER i_num_words#---------------------------------------------------------------------# Open a new databaseuil_file_new.go( "", "new.db" )$? YES 36000002# Set ISO-1 viewingi_return_value = @ ga_view_aa_set ( 23., -34., 0. )dump i_return_value#---------------------------------------------------------------------# Create cuboidi_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 solidi_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 seti_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_valuedump i_num_words#---------------------------------------------------------------------# Delete element property setsa_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_valuedump i_num_words#---------------------------------------------------------------------# Free allocated memorysys_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 DeclarationsSTRING s_name[32]STRING s_new_name[32]INTEGER i_elem_type_idINTEGER i_geo_opt_idINTEGER i_con_opt_idINTEGER i_for_opt_idINTEGER i_lam_opt_idINTEGER i_dof_opt_idINTEGER ia_pids(5)INTEGER ia_dtypes(5)STRING sa_dstrings[32](5)STRING sv_app_str[VIRTUAL]INTEGER i_return_valueSTRING sv_create_hpat_xyz_created_ids[VIRTUAL]INTEGER i_create_mesh_solid_num_nodesINTEGER i_create_mesh_solid_num_elemsSTRING sv_create_mesh_s_nodes_created[VIRTUAL]STRING sv_create_mesh_s_elems_created[VIRTUAL]#---------------------------------------------------------------------# Open a new databaseuil_file_new.go( "", "new.db" )$? YES 36000002# Set ISO-1 viewingi_return_value = @ ga_view_aa_set ( 23., -34., 0. )dump i_return_value#---------------------------------------------------------------------# Create cuboidi_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 solidi_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 seti_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 Namei_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 = 71i_geo_opt_id = 25i_con_opt_id = 30i_for_opt_id = 1i_lam_opt_id = 1i_dof_opt_id = 20ia_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 Namedump i_return_valuei_return_value = @ elementprops_show @ ( "Material Name", "Marker Plot", ["default_group"] )dump i_return_value#---------------------------------------------------------------------# Free allocated memorysys_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 DeclarationsSTRING s_prop_name[32]STRING s_disp_type[32]STRING sa_grp_names[32](1)INTEGER i_return_valueSTRING sv_create_hpat_xyz_created_ids[VIRTUAL]INTEGER i_create_mesh_solid_num_nodesINTEGER i_create_mesh_solid_num_elemsSTRING sv_create_mesh_s_nodes_created[VIRTUAL]STRING sv_create_mesh_s_elems_created[VIRTUAL]#---------------------------------------------------------------------# Open a new databaseuil_file_new.go( "", "new.db" )$? YES 36000002# Set ISO-1 viewingi_return_value = @ ga_view_aa_set ( 23., -34., 0. )dump i_return_value#---------------------------------------------------------------------# Create cuboidi_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 solidi_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 seti_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 Names_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 Names_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 memorysys_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)#---------------------------------------------------------------------