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

已知一些节点（编号不连续、无规律），将这些点沿某一坐标轴复制（比如：偏移量Y=2100），分别在原来的点和复制之后的点之间一一对应的生成弹簧单元：type,3   mat,2  real,31， @LFB}B  
模型较小节点数量较少时，可以采用GUI操作；由于模型很大，节点非常多，希望采用APDL循环语句实现在两节点之间创建单元的命令。 k'*vG6!  
有高手提供一下循环语句，操作时总是有错误提示，不知道问题出在哪儿，请各位过路大侠指点迷津！谢谢！ D>^g2!b:  
*GET,NOD_NUM,NODE,0,COUNT DAg*  
*GET,NOD_I,NODE,0,NUM,MIN (.iwD&  
*DO,I,1,NOD_NUM    !对选择集合内所有节点进行循环     ujl?!  
ND_X=Nx(NOD_I)   !获取节点I的坐标 '? -N  
ND_Y=Ny(NOD_I) Z4:^#98c.  
ND_Z=NZ(NOD_I)             7z$bCO L=S  
N,tmpNodeID,ND_X,ND_Y+2100,ND_Z !创建新结点 `m
I5Z*]-  
type,3 L0I|V[  
mat,2 p5py3k  
real,31 u\MxQIo'u  
E,NOD_I,tmpNodeID =HB(N|9_d  
tmpNodeID=tmpNodeID+1 =c
$x xEDD  
NOD_I=Ndnext(NOD_I)  !获取下个结点编号 [$uKI,l  
*ENDDO LitdO>%#2  
"LH!Trl@k  

非常感谢，确实不错！   

非常感谢，确实不错！