() |
#
# Purpose : This file provides an example of 2 calls to the
# function pref_fem_get()
#
# In this example a new database is opened and
# default finite element model minimum angle
# value is got from the database. Then it is
# changed and got again.
#
# 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 pref_fem_get() has the following arguments:
# pref_fem_get
# ( minimum_angle )
#
#---------------------------------------------------------------------
# Variable Declarations
REAL r_minimum_angle
INTEGER i_return_value
#---------------------------------------------------------------------
# Create a new database and set the preferences
uil_file_new.go("", "./new.db")
$? YES 36000002
# Get the default finite element model minimum angle value.
#
i_return_value = @
pref_fem_get @
( r_minimum_angle )
dump i_return_value
# The minimum angle is
dump r_minimum_angle
#---------------------------------------------------------------------
# Set a different value of minimum angle.
r_minimum_angle = 29
i_return_value = @
pref_fem_set @
( r_minimum_angle )
dump i_return_value
#---------------------------------------------------------------------
# Get the default finite element model minimum angle value.
#
i_return_value = @
pref_fem_get @
( r_minimum_angle )
dump i_return_value
# The minimum angle is
dump r_minimum_angle
#---------------------------------------------------------------------
() |
#
# Purpose : This file provides an example of a call to the
# function pref_fem_set()
#
# In this example a new database is opened and
# default finite element model minimum angle
# value is got from the database. Then it is
# changed and got again.
#
# 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 pref_fem_set() has the following arguments:
# pref_fem_set
# ( minimum_angle )
#---------------------------------------------------------------------
# Variable Declarations
REAL r_minimum_angle
INTEGER i_return_value
#---------------------------------------------------------------------
# Create a new database and set the preferences
uil_file_new.go("", "./new.db")
$? YES 36000002
# Get the default finite element model minimum angle value.
#
i_return_value = @
pref_fem_get @
( r_minimum_angle )
dump i_return_value
# The minimum angle is
dump r_minimum_angle
#---------------------------------------------------------------------
# Set a different value of minimum angle.
r_minimum_angle = 29
i_return_value = @
pref_fem_set @
( r_minimum_angle )
dump i_return_value
#---------------------------------------------------------------------
# Get the default finite element model minimum angle value.
#
i_return_value = @
pref_fem_get @
( r_minimum_angle )
dump i_return_value
# The minimum angle is
dump r_minimum_angle
#---------------------------------------------------------------------