# $Revision$ on $Date$
# The above revision line needs to be the first line for ttkrf files
# Copyright (c) 2006 Ansys Inc

# AI*Environment Prototype GUI Layout 2
# Loading DEZ's
#
# E. Miller
# 5/21/02
#
#---------------------------------------------------------------------------------------------------
dataEntryDialog createPointForceDEZ "Place Force on Point" nosave 
  textEntry createPointForceName "Name" name TEXT
  dropDownEntry createPointForceLS "Load Set" loadSetList loadSet FALSE
  dialogSpace 1
  
  entityChooser createPointForcePick "Points" objList POINT_0D_EL ANY
  dropDownEntry createPointForceCYL "LCS" LCSList LCS TRUE
  textEntry createPointFScale "Scale" scale TEXT
  textEntry lsdynaPointFNodeSetId "Node Set ID" lsdyna_nsid INT
  
  dialogSpace 1
  radioGroup createPointForceType "Force Type" 2 force_type 1 NULL
     radioItem createPointForceType1 "Uniform" 0
     #radioItem createPointForceType2 "Total" 1
  radioGroup END
  dialogSpace 1

  frame createPointForceFrame "Forces" 
  textEntry createPointFX "FX" FX TEXT
  textEntry createPointFY "FY" FY TEXT
  textEntry createPointFZ "FZ" FZ TEXT
  textEntry createPointMX "MX" MX TEXT
  textEntry createPointMY "MY" MY TEXT
  textEntry createPointMZ "MZ" MZ TEXT
  frame END

dataEntryDialog END

#---------------------------------------------------------------------------------------------------
dataEntryDialog createCurveForceDEZ "Place Force on Curve" nosave 
  textEntry createCurveForceName "Name" name TEXT
  dropDownEntry createCurveForceLS "Load Set" loadSetList loadSet FALSE
  dialogSpace 1
  
  entityChooser createCurveForcePick "Curves" objList CURVE_1D_EL ANY
  dropDownEntry createCurveForceCYL "LCS" LCSList LCS TRUE
  textEntry createCurveFScale "Scale" scale TEXT
  textEntry lsdynaCurveFNodeSetId "Node Set ID" lsdyna_nsid INT
   
  dialogSpace 1
  radioGroup createCurveForceType "Force Type" 2 force_type 1 NULL
     radioItem createCurveForceType1 "Uniform" 0
     radioItem createCurveForceType2 "Total" 1
  radioGroup END
  dialogSpace 1

  frame createCurveForceFrame "Forces" 
  textEntry createCurveFX "FX" FX TEXT
  textEntry createCurveFY "FY" FY TEXT
  textEntry createCurveFZ "FZ" FZ TEXT
  textEntry createCurveMX "MX" MX TEXT
  textEntry createCurveMY "MY" MY TEXT
  textEntry createCurveMZ "MZ" MZ TEXT
  frame END

dataEntryDialog END 

#---------------------------------------------------------------------------------------------------
dataEntryDialog createSurfForceDEZ "Place Force on Surface" nosave 
  textEntry createSurfForceName "Name" name TEXT
  dropDownEntry createSurfForceLS "Load Set" loadSetList loadSet FALSE
  dialogSpace 1
  
  entityChooser createSurfForcePick "Surfaces" objList SURF_2D_EL ANY
  dropDownEntry createSurfForceCYL "LCS" LCSList LCS TRUE
  textEntry createSurfFScale "Scale" scale TEXT
  textEntry lsdynaSurfFNodeSetId "Node Set ID" lsdyna_nsid INT

  dialogSpace 1
  radioGroup createSurfForceType "Force Type" 2 force_type 1 NULL
     radioItem createSurfForceType1 "Uniform" 0
     radioItem createSurfForceType2 "Total" 1
  radioGroup END
  dialogSpace 1

  frame createSurfForceFrame "Forces" 
  textEntry createSurfFX "FX" FX TEXT
  textEntry createSurfFY "FY" FY TEXT
  textEntry createSurfFZ "FZ" FZ TEXT
  textEntry createSurfMX "MX" MX TEXT
  textEntry createSurfMY "MY" MY TEXT
  textEntry createSurfMZ "MZ" MZ TEXT
  frame END

dataEntryDialog END
#---------------------------------------------------------------------------------------------------
dataEntryDialog createExistingForceDEZ "Modify Force" nosave 
  textEntry createExistingForceName "Name" name READONLY
  dropDownEntry createExistingForceLS "Load Set" loadSetList loadSet FALSE
  dialogSpace 1

  dropDownEntry createExistingForceCYL "LCS" LCSList LCS TRUE
  textEntry createExistingFScale "Scale" scale TEXT
  textEntry lsdynaExistingFNodeSetId "Node Set ID" lsdyna_nsid INT

  dialogSpace 1
  radioGroup createExistingForceType "Force Type" 2 force_type 1 NULL
     radioItem createExistingForceType1 "Uniform" 0
     radioItem createExistingForceType2 "Total" 1
  radioGroup END
  dialogSpace 1
  
  frame createExistingForceFrame "Forces" 
  textEntry createExistingForceFX "FX" FX TEXT
  textEntry createExistingForceFY "FY" FY TEXT
  textEntry createExistingForceFZ "FZ" FZ TEXT
  textEntry createExistingForceMX "MX" MX TEXT
  textEntry createExistingForceMY "MY" MY TEXT
  textEntry createExistingForceMZ "MZ" MZ TEXT
  frame END

dataEntryDialog END
#---------------------------------------------------------------------------------------------------
dataEntryDialog createSubsetForceDEZ "Create Force on Subset" nosave 
  textEntry createSubsetForceName "Name" name TEXT
  dropDownEntry createSubsetForceLS "Load Set" loadSetList loadSet FALSE
  dialogSpace 1

  entityChooser createSubsetForcePick "Subsets" objList SUBSET ANY
  dropDownEntry createSubsetForceCYL "LCS" LCSList LCS TRUE
  textEntry createSubsetFScale "Scale" scale TEXT
  textEntry lsdynaSubsetFNodeSetId "Node Set ID" lsdyna_nsid INT

  dialogSpace 1
  radioGroup createSubsetForceType "Force Type" 2 force_type 1 NULL
     radioItem createSubsetForceType1 "Uniform" 0
     radioItem createSubsetForceType2 "Total" 1
  radioGroup END
  dialogSpace 1
  
  #dropDownEntry createSubsetForceDOF "DOF's" currentDOFs dofs TRUE
  frame createSubsetForceFrame "Forces" 
  textEntry createSubsetForceFX "FX" FX TEXT
  textEntry createSubsetForceFY "FY" FY TEXT
  textEntry createSubsetForceFZ "FZ" FZ TEXT
  textEntry createSubsetForceMX "MX" MX TEXT
  textEntry createSubsetForceMY "MY" MY TEXT
  textEntry createSubsetForceMZ "MZ" MZ TEXT
  frame END

dataEntryDialog END
# ---------------------------------------------------------------
dataEntryDialog createForceDEZ "Create Force" nosave
    textEntry createForceName "Name" name TEXT
    dropDownEntry createForceLS "Load Set" loadSetList loadSet FALSE
    dropDownEntry createForceLCS "LCS" LCSList LCS TRUE
    textEntry createForceScale "Scale" scale TEXT
    textEntry lsdynacreateForceNodeSetId "Node Set ID" lsdyna_nsid INT
    dialogSpace 1
    exclusiveGroup createForce "Entity Type" " " -3 ICON
        exclusiveGroupItem createForcePoint "CreateForce on Point" L_PointForce$icon_size2.gif
          entityChooser createForcePointPick "Points" objList POINT_0D_EL ANY
          radioGroup createForcePointType "Force Type" 2 force_type 1 NULL
             radioItem createForcePointType1 "Uniform" 0
             #radioItem createForcePointType2 "Total" 1
          radioGroup END
        exclusiveGroupItem END
        exclusiveGroupItem createForceCurve "Create Force on Curve" L_CurveForce$icon_size2.gif
          entityChooser createForceCurvePick "Curves" objList CURVE_1D_EL ANY
          radioGroup createForceCurveType "Force Type" 2 force_type 1 NULL
             radioItem createForceCurveType1 "Uniform" 0
             radioItem createForceCurveType2 "Total" 1
          radioGroup END
        exclusiveGroupItem END
        exclusiveGroupItem createForceSurface "Create Force on Surface" L_SurfaceForce$icon_size2.gif
          entityChooser createForceSurfPick "Surfaces" objList SURF_2D_EL ANY
          radioGroup createForceSurfType "Force Type" 2 force_type 1 NULL
             radioItem createForceSurfType1 "Uniform" 0
             radioItem createForceSurfType2 "Total" 1
          radioGroup END
        exclusiveGroupItem END
        exclusiveGroupItem createForceSubset "Create Force on Subset" L_SubsetForce$icon_size2.gif
          entityChooser createForceSubsetPick "Subsets" objList SUBSET ANY
          radioGroup createForceSubsetType "Force Type" 2 force_type 1 NULL
             radioItem createForceSubsetType1 "Uniform" 0
             radioItem createForceSubsetType2 "Total" 1
          radioGroup END
        exclusiveGroupItem END
        exclusiveGroupItem createForcePart "Create Force on Part" L_PartForce$icon_size2.gif
          entityChooser createForcePartPick "Parts" objList PART ANY
          radioGroup createForcePartType "Force Type" 2 force_type 1 NULL
             radioItem createForcePartType1 "Uniform" 0
             radioItem createForcePartType2 "Total" 1
          radioGroup END
        exclusiveGroupItem END
    exclusiveGroup END
    dialogSpace 1
    frame createForceFrame "Forces" 
       textEntry createForceFX "FX" FX TEXT
       textEntry createForceFY "FY" FY TEXT
       textEntry createForceFZ "FZ" FZ TEXT
       textEntry createForceMX "MX" MX TEXT
       textEntry createForceMY "MY" MY TEXT
       textEntry createForceMZ "MZ" MZ TEXT
    frame END
dataEntryDialog END
#---------------------------------------------------------------------------------------------------
dataEntryDialog createCurvePresDEZ "Place Pressure on Curves" nosave 
  textEntry createCurvePresName "Name" name TEXT
  dropDownEntry createCurvePresLS "Load Set" loadSetList loadSet FALSE
  dialogSpace 1
  
  entityChooser createCurvePresPick "Curves" objList CURVE_1D_EL ANY
  dialogSpace 1

  textEntry createCurvePrs "Pressure" pres TEXT
dataEntryDialog END
#---------------------------------------------------------------------------------------------------
dataEntryDialog createSurfPresDEZ "Place Pressure on Surfaces" nosave 
  textEntry createSurfPresName "Name" name TEXT
  dropDownEntry createSurfPresLS "Load Set" loadSetList loadSet FALSE
  dialogSpace 1
  
  entityChooser createSurfPresPick "Surfaces" objList SURF_2D_EL ANY
  dialogSpace 1

  exclusiveGroup PressureOptions "Pressure Type:" " " 1 DROPDOWN pres_type

      exclusiveGroupItem PressureOption1 "Uniform Normal Pressure Load"
         textEntry createSurfPrs "Pressure" pres TEXT
      exclusiveGroupItem END

      exclusiveGroupItem PressureOption2 "General Pressure Load"
         textEntry createSurfPrs1 "Pressure P1" pres TEXT
         textEntry createSurfPrs2 "Pressure P2" pres2 TEXT
         textEntry createSurfPrs3 "Pressure P3" pres3 TEXT
         textEntry createSurfPrs4 "Pressure P4" pres4 TEXT
         #textEntry createCIDPrs "Coord. Sys. CID" cid TEXT
         dropDownEntry createCIDPrs "Coord. Sys. CID" LCSList LCS TRUE
        textEntry createSurfVect1 "Dir. Vector N1" vect1 TEXT
         textEntry createSurfVect2 "Dir. Vector N2" vect2 TEXT
         textEntry createSurfVect3 "Dir. Vector N3" vect3 TEXT
       exclusiveGroupItem END

ifdef AI_ENV_BETA
      exclusiveGroupItem PressureOption3 "Interpolated Normal Pressure Load"
         textLabel PressureOption3Img " " ZZZ_Construc$icon_size1.gif
         textEntry PressureInterpScalFactor "Scaling Factor" scale_factor TEXT
         dropDownEntry PressureInterpA "Interpolate from " ::v3p_interp_select_interp_type ::v3p_interp_data(type) FALSE MENULIKE
         #textButton PressureInterpAVar "Select Variables" "aie_v3p_interp_select vars"
         #textButton PressureInterpAMat "Select Materials" "aie_v3p_interp_select mats"
         entryButton PressureInterpAVar "Select Variables" NULL ::v3p_interp_data(selected_vars) \
                   "aie_v3p_interp_select vars" "Select Variables"   
        entryButton PressureInterpAMat "Select Materials" NULL ::v3p_interp_data(selected_mats) \
                   "aie_v3p_interp_select mats" "Select Materials"   
        textEntry PressureInterpConvFactor "Conversion Factor" ::v3p_interp_data(conv_factor) NUM
      exclusiveGroupItem END
endif

  exclusiveGroup END
dataEntryDialog END
#---------------------------------------------------------------------------------------------------
dataEntryDialog createSubsetPresDEZ "Place Pressure on Subsets" nosave 
  textEntry createSubsetPresName "Name" name TEXT
  dropDownEntry createSubsetPresLS "Load Set" loadSetList loadSet FALSE
  dialogSpace 1
  
  entityChooser createSubsetPresPick "Subsets" objList SUBSET ANY
  dialogSpace 1

  exclusiveGroup SubsetPressureOptions "Pressure Type:" " " 1 DROPDOWN pres_type

      exclusiveGroupItem SubsetPressureOption1 "Uniform Normal Pressure Load"
         textEntry createSubsetPrs "Pressure" pres TEXT
      exclusiveGroupItem END

      exclusiveGroupItem SubsetPressureOption2 "General Pressure Load"
         textEntry createSubsetPrs1 "Pressure P1" pres TEXT
         textEntry createSubsetPrs2 "Pressure P2" pres2 TEXT
         textEntry createSubsetPrs3 "Pressure P3" pres3 TEXT
         textEntry createSubsetPrs4 "Pressure P4" pres4 TEXT
         #textEntry createCIDSubset "Coord. Sys. CID" cid TEXT
         dropDownEntry createCIDSubset "Coord. Sys. CID" LCSList LCS TRUE
         textEntry createSubsetVect1 "Dir. Vector N1" vect1 TEXT
         textEntry createSubsetVect2 "Dir. Vector N2" vect2 TEXT
         textEntry createSubsetVect3 "Dir. Vector N3" vect3 TEXT
       exclusiveGroupItem END

  exclusiveGroup END
dataEntryDialog END
#---------------------------------------------------------------------------------------------------
dataEntryDialog createExistingPresDEZ "Modify Pressure" nosave 
  textEntry createExistingPresName "Name" name READONLY
  dropDownEntry createExistingPresLS "Load Set" loadSetList loadSet FALSE
  dialogSpace 1
  
   exclusiveGroup ExistingPressureOptions "Pressure Type:" " " 1 DROPDOWN pres_type

      exclusiveGroupItem ExistingPressureOption1 "Uniform Normal Pressure Load"
         textEntry createExistingPrs "Pressure" pres TEXT
      exclusiveGroupItem END

      exclusiveGroupItem ExistingPressureOption2 "General Pressure Load"
         textEntry createExistingSurfPrs1 "Pressure P1" pres TEXT
         textEntry createExistingSurfPrs2 "Pressure P2" pres2 TEXT
         textEntry createExistingSurfPrs3 "Pressure P3" pres3 TEXT
         textEntry createExistingSurfPrs4 "Pressure P4" pres4 TEXT
         #textEntry createExistingCIDPrs "Coord. Sys. CID" cid TEXT
         dropDownEntry createExistingCIDPrs "Coord. Sys. CID" LCSList LCS TRUE
         textEntry createExistingSurfVect1 "Dir. Vector N1" vect1 TEXT
         textEntry createExistingSurfVect2 "Dir. Vector N2" vect2 TEXT
         textEntry createExistingSurfVect3 "Dir. Vector N3" vect3 TEXT
       exclusiveGroupItem END

  exclusiveGroup END
dataEntryDialog END
# ---------------------------------------------------------------
dataEntryDialog createPressureDEZ "Place Pressure" nosave
    textEntry createPressureName "Name" name TEXT
    dropDownEntry createPressureLS "Load Set" loadSetList loadSet FALSE
    dialogSpace 1
    exclusiveGroup createPressure "Entity Type" " " -3 ICON
        exclusiveGroupItem createPressureSurface "Place Pressure on Surface" L_SurfacePress$icon_size2.gif
          entityChooser createPressureSurfPick "Surfaces" objList SURF_2D_EL ANY
          exclusiveGroup createPressureSurfOptions "Pressure Type:" " " 1 DROPDOWN pres_type
             exclusiveGroupItem createPressureSurfOption1 "Uniform Normal Pressure Load"
                textEntry createPressureSurfPrs "Pressure" pres TEXT
             exclusiveGroupItem END
             exclusiveGroupItem createPressureSurfOption2 "General Pressure Load"
                textEntry createPressureSurfPrs1 "Pressure P1" pres TEXT
                textEntry createPressureSurfPrs2 "Pressure P2" pres2 TEXT
                textEntry createPressureSurfPrs3 "Pressure P3" pres3 TEXT
                textEntry createPressureSurfPrs4 "Pressure P4" pres4 TEXT
                dropDownEntry createPressureSurfCIDPrs "Coord. Sys. CID" LCSList LCS TRUE
                textEntry ccreatePressureSurfVect1 "Dir. Vector N1" vect1 TEXT
                textEntry createPressureSurfVect2 "Dir. Vector N2" vect2 TEXT
                textEntry createPressureSurfVect3 "Dir. Vector N3" vect3 TEXT
             exclusiveGroupItem END
ifdef AI_ENV_BETA
             exclusiveGroupItem createPressureSurfOption3 "Interpolated Normal Pressure Load"
                textLabel createPressureSurfOption3Img " " ZZZ_Construc$icon_size1.gif
                textEntry createPressureSurfInterpScalFactor "Scaling Factor" scale_factor TEXT
                dropDownEntry createPressureSurfInterpA "Interpolate from " ::v3p_interp_select_interp_type ::v3p_interp_data(type) FALSE MENULIKE
                entryButton createPressureSurfInterpAVar "Select Variables" NULL ::v3p_interp_data(selected_vars) \
                   "aie_v3p_interp_select vars" "Select Variables"   
                entryButton createPressureSurfInterpAMat "Select Materials" NULL ::v3p_interp_data(selected_mats) \
                   "aie_v3p_interp_select mats" "Select Materials"   
                textEntry createPressureSurfInterpConvFactor "Conversion Factor" ::v3p_interp_data(conv_factor) NUM
             exclusiveGroupItem END
endif
          exclusiveGroup END
        exclusiveGroupItem END
        exclusiveGroupItem createPressureSubset "Place Pressure on Subset" L_SubsetPres$icon_size2.gif
          entityChooser createPressureSubsetPick "Subsets" objList SUBSET ANY
          exclusiveGroup createPressureSubsetOptions "Pressure Type:" " " 1 DROPDOWN pres_type
             exclusiveGroupItem createPressureSubsetOption1 "Uniform Normal Pressure Load"
                textEntry createPressureSubsetPrs "Pressure" pres TEXT
             exclusiveGroupItem END
             exclusiveGroupItem createPressureSubsetOption2 "General Pressure Load"
                textEntry createPressureSubsetPrs1 "Pressure P1" pres TEXT
                textEntry createPressureSubsetPrs2 "Pressure P2" pres2 TEXT
                textEntry createPressureSubsetPrs3 "Pressure P3" pres3 TEXT
                textEntry createPressureSubsetPrs4 "Pressure P4" pres4 TEXT
                dropDownEntry createPressureSubsetCIDSubset "Coord. Sys. CID" LCSList LCS TRUE
                textEntry createPressureSubsetVect1 "Dir. Vector N1" vect1 TEXT
                textEntry createPressureSubsetVect2 "Dir. Vector N2" vect2 TEXT
                textEntry createPressureSubsetVect3 "Dir. Vector N3" vect3 TEXT
             exclusiveGroupItem END
          exclusiveGroup END
        exclusiveGroupItem END
        exclusiveGroupItem createPressurePart "Place Pressure on Part" L_PartPress$icon_size2.gif
          entityChooser createPressurePartPick "Parts" objList PART ANY
          exclusiveGroup createPressurePartOptions "Pressure Type:" " " 1 DROPDOWN pres_type
             exclusiveGroupItem createPressurePartOption1 "Uniform Normal Pressure Load"
                textEntry createPressurePartPrs "Pressure" pres TEXT
             exclusiveGroupItem END
             exclusiveGroupItem createPressurePartOption2 "General Pressure Load"
                textEntry createPressurePartPrs1 "Pressure P1" pres TEXT
                textEntry createPressurePartPrs2 "Pressure P2" pres2 TEXT
                textEntry createPressurePartPrs3 "Pressure P3" pres3 TEXT
                textEntry createPressurePartPrs4 "Pressure P4" pres4 TEXT
                dropDownEntry createPressurePartCIDSubset "Coord. Sys. CID" LCSList LCS TRUE
                textEntry createPressurePartVect1 "Dir. Vector N1" vect1 TEXT
                textEntry createPressurePartVect2 "Dir. Vector N2" vect2 TEXT
                textEntry createPressurePartVect3 "Dir. Vector N3" vect3 TEXT
             exclusiveGroupItem END
          exclusiveGroup END
        exclusiveGroupItem END
    exclusiveGroup END
dataEntryDialog END



#---------------------------------------------------------------------------------------------------
dataEntryDialog createNodePresDEZ "Place Pressure on Nodes" nosave 
  textEntry createNodePresName "Name" name TEXT
  dropDownEntry createNodePresLS "Load Set" loadSetList loadSet FALSE
  dialogSpace 1
  
  entityChooser createNodePresPick "Nodes" nodeList NODE ANY
  dialogSpace 1

  textEntry createNodePrs "Pressure" pres TEXT
dataEntryDialog END
#---------------------------------------------------------------------------------------------------
dataEntryDialog createFacePresDEZ "Place Pressure on Faces" nosave 
  textEntry createFacePresName "Name" name TEXT
  dropDownEntry createFacePresLS "Load Set" loadSetList loadSet FALSE
  dialogSpace 1
  
#ERM Need to replace ELEM with ELMFACE!!!!
  entityChooser createFacePresPick "Faces" faceList ELEM ANY
  dialogSpace 1

  textEntry createFacePrs "Pressure" pres TEXT
dataEntryDialog END
#---------------------------------------------------------------------------------------------------
dataEntryDialog defineTempInitDEZ "Initial System Temperature" nosave 
  dropDownEntry defineTempInitLS "Temperature Set" loadSetList loadSet FALSE
  dialogSpace 1

  textEntry defineTempInit "Temperature" initialTemp TEXT
dataEntryDialog END
#---------------------------------------------------------------------------------------------------
dataEntryDialog defineTempFinalDEZ "Final System Temperature" nosave 
  dropDownEntry defineTempFinalLS "Temperature Set" loadSetList loadSet FALSE
  dialogSpace 1

  textEntry defineTempFinal "Temperature" finalTemp TEXT
dataEntryDialog END
#---------------------------------------------------------------------------------------------------
dataEntryDialog createPointTmpDEZ "Define Temperature Boundary Condition on Points" nosave 
  textEntry createPointTmpName "Name" name TEXT
  dropDownEntry createPointTmpLS "Temperature Set" loadSetList loadSet FALSE
  textEntry lsdynaPointTmpNodeSetId "Node Set ID" lsdyna_nsid INT
  dialogSpace 1
  
  entityChooser createPointTmpPick "Points" objList POINT_0D_EL ANY
  dialogSpace 1

  textEntry createPointTmpVal "Temperature" temp NUM

  dialogSpace 1
ifdef AI_ENV_BETA
  exclusiveGroup TemperatureOptions "Temperature Type:" " " 1 DROPDOWN temp_type
      exclusiveGroupItem TemperatureOption1 "Uniform Temperature Load"
         textLabel TemperatureImg " " ZZZ_Construc$icon_size1.gif
      exclusiveGroupItem END
      exclusiveGroupItem TemperatureOption2 "Interpolated Temperature Load"
         textLabel TemperatureImg1 " " ZZZ_Construc$icon_size1.gif
         textEntry TemperatureInterpScalFactor "Scaling Factor" scale_factor TEXT
         dropDownEntry TemperatureInterpA "Interpolate from " ::v3p_interp_select_interp_type ::v3p_interp_data(type) FALSE MENULIKE
         entryButton TemperatureInterpAVar "Select Variables" NULL ::v3p_interp_data(selected_vars) \
                   "aie_v3p_interp_select vars" "Select Variables"   
         entryButton TemperatureInterpAMat "Select Materials" NULL ::v3p_interp_data(selected_mats) \
                   "aie_v3p_interp_select mats" "Select Materials"   
         textEntry TemperatureInterpConvFactor "Conversion Factor" ::v3p_interp_data(conv_factor) NUM
      exclusiveGroupItem END
  exclusiveGroup END
endif
dataEntryDialog END
#---------------------------------------------------------------------------------------------------
dataEntryDialog createCurveTmpDEZ "Define Temperature Boundary Condition on Curves" nosave 
  textEntry createCurveTmpName "Name" name TEXT
  dropDownEntry createCurveTmpLS "Temperature Set" loadSetList loadSet FALSE
  textEntry lsdynaCurveTmpNodeSetId "Node Set ID" lsdyna_nsid INT

  dialogSpace 1
  
  entityChooser createCurveTmpPick "Curves" objList CURVE_1D_EL ANY
  dialogSpace 1

  textEntry createCurveTmpVal "Temperature" temp TEXT
dataEntryDialog END
#---------------------------------------------------------------------------------------------------
dataEntryDialog createSurfTmpDEZ "Define Temperature Boundary Condition on Surfaces" nosave 

  textEntry createSurfTmpName "Name" name TEXT
  dropDownEntry createSurfTmpLS "Temperature Set" loadSetList loadSet FALSE
  textEntry lsdynaSurfTmpNodeSetId "Node Set ID" lsdyna_nsid INT
  dialogSpace 1
  
  entityChooser createSurfTmpPick "Surfaces" objList SURF_2D_EL ANY
  dialogSpace 1

  textEntry createSurfTmpVal "Temperature" temp TEXT
dataEntryDialog END
#---------------------------------------------------------------------------------------------------
dataEntryDialog createBodyTmpDEZ "Define Temperature Boundary Condition on Body" nosave 

  textEntry createBodyTmpName "Name" name TEXT
  dropDownEntry createBodyTmpLS "Temperature Set" loadSetList loadSet FALSE
  textEntry lsdynaBodyTmpNodeSetId "Node Set ID" lsdyna_nsid INT
  dialogSpace 1
  
  entityChooser createBodyTmpPick "Bodies" objList BODY_3D_EL ANY
  dialogSpace 1

  textEntry createBodyTmpVal "Temperature" temp TEXT
dataEntryDialog END
#---------------------------------------------------------------------------------------------------
dataEntryDialog createSubsetTmpDEZ "Define Temperature Boundary Condition on Subset" nosave 

  textEntry createSubsetTmpName "Name" name TEXT
  dropDownEntry createSubsetTmpLS "Temperature Set" loadSetList loadSet FALSE
  textEntry lsdynaSubsetTmpNodeSetId "Node Set ID" lsdyna_nsid INT
  dialogSpace 1
  
  entityChooser createSubsetTmpPick "Subsets" objList SUBSET ANY
  dialogSpace 1

  textEntry createSubsetTmpVal "Temperature" temp TEXT
dataEntryDialog END
#---------------------------------------------------------------------------------------------------
dataEntryDialog createExistingTmpDEZ "Modify Temperature Boundary Condition" nosave 
 
  textEntry createExistingTmpName "Name" name READONLY
  dropDownEntry createExistingTmpLS "Temperature Set" loadSetList loadSet FALSE
  textEntry lsdynaExistingTmpNodeSetId "Node Set ID" lsdyna_nsid INT
  dialogSpace 1
  
  textEntry createExistingTmpVal "Temperature" temp TEXT
dataEntryDialog END
# ---------------------------------------------------------------
dataEntryDialog createTemperatureDEZ "Create Temperature Boundary Condition" nosave
    textEntry createTemperatureName "Name" name TEXT
    dropDownEntry createTemperatureLS "Temperature Set" loadSetList loadSet FALSE
    textEntry lsdynacreateTemperatureNodeSetId "Node Set ID" lsdyna_nsid INT
    dialogSpace 1
    exclusiveGroup createTemperature "Entity Type" " " -4 ICON
        exclusiveGroupItem createTemperaturePoint "Create Temperature Boundary Condition on Point" L_PointTemp$icon_size2.gif
          entityChooser createTemperaturePointPick "Points" objList POINT_0D_EL ANY
          exclusiveGroup createTemperaturePointOptions "Temperature Type:" " " 1 DROPDOWN temp_type
             exclusiveGroupItem createTemperaturePointOption1 "Uniform Temperature Load"
                textEntry createTemperaturePointVal "Temperature" temp NUM
             exclusiveGroupItem END
ifdef AI_ENV_BETA
             exclusiveGroupItem createTemperaturePointOption2 "Interpolated Temperature Load"
                textLabel createTemperaturePointImg1 " " ZZZ_Construc$icon_size1.gif
                textEntry createTemperaturePointInterpScalFactor "Scaling Factor" scale_factor TEXT
                dropDownEntry createTemperaturePointInterpA "Interpolate from " ::v3p_interp_select_interp_type ::v3p_interp_data(type) FALSE MENULIKE
                entryButton createTemperaturePointVar "Select Variables" NULL ::v3p_interp_data(selected_vars) \
                   "aie_v3p_interp_select vars" "Select Variables"   
                entryButton createTemperaturePointMat "Select Materials" NULL ::v3p_interp_data(selected_mats) \
                   "aie_v3p_interp_select mats" "Select Materials"   
                textEntry createTemperaturePointConvFactor "Conversion Factor" ::v3p_interp_data(conv_factor) NUM
             exclusiveGroupItem END
endif
          exclusiveGroup END
        exclusiveGroupItem END
        exclusiveGroupItem createTemperatureCurve "Create Temperature Boundary Condition on Curve" L_CurveTemp$icon_size2.gif
          entityChooser createTemperatureCurvePick "Curves" objList CURVE_1D_EL ANY
          textEntry createTemperatureCurveVal "Temperature" temp NUM
        exclusiveGroupItem END
        exclusiveGroupItem createTemperatureSurface "Create Temperature Boundary Condition on Surface" L_SurfaceTemp$icon_size2.gif
          entityChooser createTemperatureSurfPick "Surfaces" objList SURF_2D_EL ANY
          textEntry createTemperatureSurfVal "Temperature" temp NUM
        exclusiveGroupItem END
        exclusiveGroupItem createTemperatureBody "Create Temperature Boundary Condition on Body" L_BodyTemp$icon_size2.gif
          entityChooser createTemperatureBodyPick "Bodies" objList BODY_3D_EL ANY
          textEntry createTemperatureBodyVal "Temperature" temp NUM
        exclusiveGroupItem END
        exclusiveGroupItem createTemperatureSubset "Create Temperature Boundary Condition on Subset" L_SubsetTemp$icon_size2.gif
          entityChooser createTemperatureSubsetPick "Subsets" objList SUBSET ANY
          textEntry createTemperatureSubsetVal "Temperature" temp NUM
        exclusiveGroupItem END
        exclusiveGroupItem createTemperaturePart "Create Temperature Boundary Condition on Part" L_PartTemp$icon_size2.gif
          entityChooser createTemperaturePartPick "Parts" objList PART ANY
          textEntry createTemperaturePartVal "Temperature" temp NUM
        exclusiveGroupItem END
    exclusiveGroup END
dataEntryDialog END


#---------------------------------------------------------------------------------------------------
dataEntryDialog createNodeTmpDEZ "Define Temperature Boundary Condition on Nodes" nosave 

  textEntry createNodeTmpName "Name" name TEXT
  dropDownEntry createNodeTmpLS "Temperature Set" loadSetList loadSet FALSE
  dialogSpace 1
  
  entityChooser createNodeTmpPick "Nodes" nodeList POINT_0D_EL ANY
  dialogSpace 1

  textEntry createNodeTmpVal "Temperature" temp TEXT
dataEntryDialog END
#---------------------------------------------------------------------------------------------------
dataEntryDialog deleteLoadDEZ "Delete Loads" nosave  
  dropDownEntry delteLoadPick "Loads" curLoadGroups delList TRUE
dataEntryDialog END
#---------------------------------------------------------------------------------------------------
dataEntryDialog setAxialVelAccDEZ "Axial Velocity & Acceleration " nosave  
  #textEntry setAxialVelAccName "Name" name TEXT
  #dialogSpace 1

  frame setAxialVelFrame "Velocity"  
       textEntry setAxialVelAccVX "X" VX TEXT
       textEntry setAxialVelAccVY "Y" VY TEXT
       textEntry setAxialVelAccVZ "Z" VZ TEXT
  frame END
  #dialogSpace 1

  #frame setAxialAccFrame "Acceleration"  
  #     textEntry setAxialVelAccAX "X" AX TEXT
  #     textEntry setAxialVelAccAY "Y" AY TEXT
  #     textEntry setAxialVelAccAZ "Z" AZ TEXT
  #frame END
  #dialogSpace 1
dataEntryDialog END
#---------------------------------------------------------------------------------------------------
dataEntryDialog setGravityDEZ "Gravity" nosave
  #checkItem setGravityOn "Enabled" on FALSE
  #dialogSpace 1

  dropDownEntry setGravityLS "Load Set" loadSetList sid FALSE
  dialogSpace 1

  dropDownEntry setGravityCS "LCS" LCSList LCS TRUE
  textEntry setGravityS "Scale" scale TEXT
  dialogSpace 1

  frame setGravityValFrame "Value"
    textEntry setGravityX "X" x TEXT
    textEntry setGravityY "Y" y TEXT
    textEntry setGravityZ "Z" z TEXT
  frame END
dataEntryDialog END
#---------------------------------------------------------------------------------------------------
dataEntryDialog setRotVelAccDEZ "Rotational Velocity & Acceleration " nosave  
  textEntry setRotVelAccName "Name" name TEXT
  dropDownEntry setRotVelAccLS "Load Set" loadSetList loadSet FALSE
  dialogSpace 1

  frame setRotVelFrame "Velocity"  
       textEntry setRotVelAccVX "R" RVX TEXT
       textEntry setRotVelAccVY "Theta" RVY TEXT
       textEntry setRotVelAccVZ "Z" RVZ TEXT
  frame END
  dialogSpace 1

  frame setRotAccFrame "Acceleration"  
       textEntry setRotVelAccAX "R" RAX TEXT
       textEntry setRotVelAccAY "Theta" RAY TEXT
       textEntry setRotVelAccAZ "Z" RAZ TEXT
  frame END
  dialogSpace 1
dataEntryDialog END
#---------------------------------------------------------------------------------------------------
dataEntryDialog createDynamicTimeDEZ "Set Time Excitation" nosave
   textLabel createDynamicTimeImg " " ZZZ_Construc$icon_size2.gif

   exclusiveGroup DynamicTimeExcite "Excitation Area" " " 2 RADIO dynamic_time_excite
      exclusiveGroupItem DynamicTimeExcite1 "On Point"
         textEntry createDynamicTimePointName "Name" name TEXT
         dropDownEntry createDynamicTimePointLS "Load Set" loadSetList loadSet FALSE
         dialogSpace 1 
         entityChooser createDynamicTimePointPick "Points" objListP POINT_0D_EL ANY
         integerEntry createDynamicTimePointType1C1 "Component Number (C1)" compnum1 1 6 1
         textEntry createDynamicTimePointType1A1 "Scale Factor (A1)" at1 NUM
      exclusiveGroupItem END
      exclusiveGroupItem DynamicTimeExcite2 "On Curve"
         textEntry createDynamicTimeCurveName "Name" name TEXT
         dropDownEntry createDynamicTimeCurveLS "Load Set" loadSetList loadSet FALSE
         dialogSpace 1 
         entityChooser createDynamicTimeCurvePick "Curves" objListC CURVE_1D_EL ANY
         integerEntry createDynamicTimeCurveType1C1 "Component Number (C1)" compnum1 1 6 1
         textEntry createDynamicTimeCurveType1A1 "Scale Factor (A1)" at1 NUM
      exclusiveGroupItem END
      exclusiveGroupItem DynamicTimeExcite3 "On Surface"
         textEntry createDynamicTimeSurfaceName "Name" name TEXT
         dropDownEntry createDynamicTimeSurfaceLS "Load Set" loadSetList loadSet FALSE
         dialogSpace 1 
         entityChooser createDynamicTimeSurfacePick "Surfaces" objListS SURF_2D_EL ANY
         integerEntry createDynamicTimeSurfaceType1C1 "Component Number (C1)" compnum1 1 6 1
         textEntry createDynamicTimeSurfaceType1A1 "Scale Factor (A1)" at1 NUM
      exclusiveGroupItem END
      exclusiveGroupItem DynamicTimeExcite4 "On Subset"
         textEntry createDynamicTimeSubsetName "Name" name TEXT
         dropDownEntry createDynamicTimeSubsetLS "Load Set" loadSetList loadSet FALSE
         dialogSpace 1 
         entityChooser createDynamicTimeSubsetPick "Subsets" objListB SUBSET ANY
         integerEntry createDynamicTimeSubsetType1C1 "Component Number (C1)" compnum1 1 6 1
         textEntry createDynamicTimeSubsetType1A1 "Scale Factor (A1)" at1 NUM
      exclusiveGroupItem END
   exclusiveGroup END

   dialogSpace 1 

   exclusiveGroup DynamicTimeType "Type" " " 1 DROPDOWN dynamic_excite_type
      exclusiveGroupItem DynamicTimeType1 "Transient Response (TLOAD1)"
         textEntry DynamicTimeType1ID "Set Identification ID (SID)" sid NUM
         dropDownEntry DynamicTimeType1Delay "Identification ID (DELAY)" DELAYList delay_id TRUE		   
         integerEntry DynamicTimeType1type "Excitation Type" excite_type 0 3 1
         dropDownEntry DynamicTimeType1Table "Identification ID (TABLEDi)" TABLEDList table1_id TRUE		   
      exclusiveGroupItem END
      exclusiveGroupItem DynamicTimeType2 "Transient Response (TLOAD2)"
         textEntry DynamicTimeType2ID "Set Identification ID (SID)" sid NUM
         dropDownEntry DynamicTimeType2Delay "Identification ID (DELAY)" DELAYList delay_id TRUE		   
         integerEntry DynamicTimeType2type "Excitation Type" excite_type 0 3 1
         textEntry DynamicTimeType2T1 "Time constant (T1)" t1 NUM
         textEntry DynamicTimeType2T2 "Time constant (T2)" t2 NUM
         textEntry DynamicTimeType2F "Frequency (F)" freq NUM
         textEntry DynamicTimeType2P "Phase Angle (P)" phase NUM
         textEntry DynamicTimeType2C "Exponential Coef. (C)" exp_coef NUM
         textEntry DynamicTimeType2B "Growth Coef. (B)" g_coef NUM
      exclusiveGroupItem END
   exclusiveGroup END
dataEntryDialog END
#---------------------------------------------------------------------------------------------------
dataEntryDialog createDynamicFreqDEZ "Set Frequency Excitation" nosave
   textLabel createDynamicFreqImg " " ZZZ_Construc$icon_size2.gif
dataEntryDialog END

