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

已知一些节点（编号不连续、无规律），将这些点沿某一坐标轴复制（比如：偏移量Y=2100），分别在原来的点和复制之后的点之间一一对应的生成弹簧单元：type,3   mat,2  real,31， to3J@:V8e  
模型较小节点数量较少时，可以采用GUI操作；由于模型很大，节点非常多，希望采用APDL循环语句实现在两节点之间创建单元的命令。 d<'xpdxc  
有高手提供一下循环语句，操作时总是有错误提示，不知道问题出在哪儿，请各位过路大侠指点迷津！谢谢！ MbfzGYA2~  
*GET,NOD_NUM,NODE,0,COUNT {n]sRz  
*GET,NOD_I,NODE,0,NUM,MIN eEQ[^i  
*DO,I,1,NOD_NUM    !对选择集合内所有节点进行循环     H#inr^Xa  
ND_X=Nx(NOD_I)   !获取节点I的坐标 ?_aR-[XRg  
ND_Y=Ny(NOD_I) [fp"MPP3  
ND_Z=NZ(NOD_I)             spJ(1F{|V  
N,tmpNodeID,ND_X,ND_Y+2100,ND_Z !创建新结点 blcKtrYg  
type,3 Q$1K{14I  
mat,2 c*dw
w  
real,31 Nd!VR+IZ  
E,NOD_I,tmpNodeID 9#<Og>t2y  
tmpNodeID=tmpNodeID+1 vi8~j  
NOD_I=Ndnext(NOD_I)  !获取下个结点编号 5-^%\?,x  
*ENDDO 6mdnEmFM]  
8-
:k@W  

非常感谢，确实不错！   

非常感谢，确实不错！