NX Nastran DMAP Programmer's Guide - Kxcad.net

1219
MODUSET
Modifies the degree-of-freedom set membership table (USET)
COPY Copy degrees-of-freedom from SET0 to MAJOR
EXPAND Extend uset length by USETADD.
MOVE Move SET0 degrees-of-freedom to MAJOR
FILTER Remove degrees-of-freedom from USET that correspond to zero
rows in EDITVEC.
2. EDITVEC may be purged if USETOP≠'FILTER'.
Examples:
1. Scalar degrees-of-freedom 1 through 5 will be defined in the u1-set and u3-set and
scalar degrees-of-freedom 6 through 10 in the u2-set and u3-set.
SOL ...
COMPILE ...
ALTER ...
MODUSET ,,USET/USET1 $
CEND
BEGIN BULK
SPOINT,1,THRU,10
USET1,U1,0,1,THRU,5
USET1,U3,0,6,THRU,10
2. The u1-set will be empty. The u2-set will contain the a-set and the u3-set will
contain the f-set.
MODUSET ,,USET/VSET/'COMP0'/'F' /'U1'/'A' $
MODUSET ,,VSET/WSET/'COMP1'/'F' / /'U2' $
MODUSET ,,WSET/XSET/'UNION'/'U3'/'U1'/'U2' $
3. The following alter puts all degrees-of-freedom automatically constrained by
GPSP into the sg-set.
COMPILE SEKR0
ALTER 'GPSP'(,-1) $ BEFORE GPSP
$ MOVE DOF IN SET SB INTO SET U3
MODUSET, ,USET0/VSET/'MOVE'/'U3'/'SB'/ $
EQUIVX VSET/USET0/ALWAYS $
MESSAGE //'SB SET SHOULD NOW BE EMPTY - CHECK BELOW'/ $
TABPRT USET0,EQEXINS//'USET'/11
ALTER 'GPSP' $ AFTER GPSP
MESSAGE //'SB SET SHOULD NOW BE ONLY AUTOSPC DOF - CHECK BELOW'/ $
TABPRT USET,EQEXINS//'USET'/11
$ MOVE CURRENT SB (ALL FROM AUTOSPC) INTO SG
MODUSET, ,USET/VSET1/'MOVE'/'SG'/'SB'/ $
MESSAGE //'SB SET SHOULD NOW BE EMPTY,SG SHOULD BE PS + AUTOSPC'/ $
TABPRT VSET1,EQEXINS//'USET'/11
$ NOW MOVE SET U3 BACK INTO SB
MODUSET, ,VSET1/VSET2/'MOVE'/'SB'/'U3'/ $
EQUIVX VSET2/USET/ALWAYS $
MESSAGE //'SB SET SHOULD NOW BE ONLY SPC DOF'/
' SG SHOULD BE PS + AUTOSPC'/ $
TABPRT USET,EQEXINS//'USET'/11 $