NX Nastran DMAP Programmer's Guide - Kxcad.net

TABLE GEOM1
Examples:
TABEDIT
Performs editing operations on table data blocks
Let GEOM1 generated by a previous run have a third record consisting of the five
GRID entries.
GRID,10,0,0.0,0.0,0.0,0,3456,0
GRID,20,0,1.0,1.0,0.0,0,3456,0
GRID,30,0,2.0,2.5,0.0,0,3456,0
GRID,40,0,3.0,3.0,0.0,0,3456,0
GRID,50,0,4.0,4.0,0.0,0,3456,0
A printout of GEOM1 using the TABPRT module (with OPT3=1) will show the
following for record 1:
RECORD NO. 0 HEADER
NAME NAME
1) GEOM 1
END OF 2 WORD RECORD.
RECORD NO. 1 GRID
H1 H2 H3 ID CP X1 X2 X3 CD PS
1) 4501 45 1120001 10 0 0.00000E+00 0.00000E+00 0.00000E+00 0 3456
SEID ID CP X1 X2 X3 CD PS SEID ID
11) 0 20 0 1.00000E+00 1.00000E+00 0.00000E+00 0 3456 0 30
CP X1 X2 X3 CD PS SEID ID CP X1
21) 0 2.00000E+00 2.50000E+00 0.00000E+00 0 3456 0 40 0 3.00000E+00
X2 X3 CD PS SEID ID CP X1 X2 X3
31) 3.00000E+00 0.00000E+00 0 3456 0 50 0 4.00000E+00 4.00000E+00 0.00000E+00
CD PS SEID
41) 0 3456 0
END OF 43 WORD RECORD.
RECORD NO. 2
END OF FILE
TRAILER WORD1 = 0 WORD2 = 0 WORD3 = 8 WORD4 = 0 WORD5 = 0 WORD6 =
1. Note that the GRID entry for grid point 30 has an error in the y-location
coordinate, which should be 2.0 instead of 2.5. Make this correction without going
through the conventional XSORT-IFP process by using TABEDIT. Assume
GEOM1 was saved on a user tape on the previous run as GEOM1C.
DTIIN DTI,DTINDX/CONTROL,,,,,,,,, $
INPUTT2 /GEOM1C,,,,/-1 $
TABEDIT GEOM1C,CONTROL,,,/GEOM1X $
EQUIVX GEOM1X/GEOM1/ALWAYS $
END$
CEND
BEGIN BULK
DTI,CONTROL,1,CR,1,DW,23,23,1
,2.0
DTI,CONTROL,2,ER,ENDREC
ENDDATA
143