[软件应用交流]创建地层弹簧的循环语句 [复制链接]

已知一些节点（编号不连续、无规律），将这些点沿某一坐标轴复制（比如：偏移量Y=2100），分别在原来的点和复制之后的点之间一一对应的生成弹簧单元：type,3   mat,2  real,31， s5,@=(,  
模型较小节点数量较少时，可以采用GUI操作；由于模型很大，节点非常多，希望采用APDL循环语句实现在两节点之间创建单元的命令。 %$BRQ-O  
有高手提供一下循环语句，操作时总是有错误提示，不知道问题出在哪儿，请各位过路大侠指点迷津！谢谢！ 7
uBx  
*GET,NOD_NUM,NODE,0,COUNT x;ik   
*GET,NOD_I,NODE,0,NUM,MIN K'OG-fn;  
*DO,I,1,NOD_NUM    !对选择集合内所有节点进行循环     g&RpE41x  
ND_X=Nx(NOD_I)   !获取节点I的坐标 "2e3 <:$  
ND_Y=Ny(NOD_I) l;$F[/3a  
ND_Z=NZ(NOD_I)             pj'gTQ),0  
N,tmpNodeID,ND_X,ND_Y+2100,ND_Z !创建新结点 ODJ"3 J  
type,3 N=mvr&arP  
mat,2 KFM[caKeJO  
real,31 q4BXrEOw  
E,NOD_I,tmpNodeID 'r'=%u$1C  
tmpNodeID=tmpNodeID+1 2[ sY?C  
NOD_I=Ndnext(NOD_I)  !获取下个结点编号 tqZ91QpW  
*ENDDO Qu
th5  
0%xktf  

非常感谢，确实不错！   

非常感谢，确实不错！