[ANSYS宏]BEAM 188/189单元的端部释放

对于BEAM 188/189单元，ANSYS中提供了一个端部释放命令“ENDRELEASE”，试用中偶发现这个命令有一定局限性：假如要释放单元A，你得首选选择与单元A相交的至少两个单元进入当前选择集中，然后执行“ENDRELEASE”命令（使用格式见帮助文件）时，程序只会将选择集中单元号较大的单元进行相应的自由度释放，而单元号最小的那个（很有可能是你想释放的单元）则没有进行释放。

为了解决这个问题，偶写了这个宏文件，主要是想通过最原始的自由度耦合方法实现对任意BEAM 188/189单元（在考虑材料非线性进行结构全过程分析时，必须使用这两个单元）进行自由度释放功能。附件中有两个宏文件：“relbeam.mac”实现对单个梁单元的释放，“redata.mac”实现从一个输入文件读取释放单元数组，然后进行批量释放。

由于偶还有一个问题没有解决，就是任意梁单元的单元坐标系不容易提取，因此目前的功能只是实现了梁单元铰接（释放roty和rotz）的功能。希望了解这方面的高人指点。