有关Component名称的APDL命令

wu330324

选中了12个component，每个component是一个节点，能否对component名称进行循环操作，求高手指点！
具体命令流如下：
allsel,all
CMSEL,S,DOWN_ZJK_L5S1  
CMSEL,a,DOWNFRNTL45
CMSEL,a,UP_ZJK_L5S1
CMSEL,a,UPBACKL5S1  
CMSEL,a,UP_ZJK_L45  
CMSEL,a,DOWN_ZJK_L45
CMSEL,a,UPFRNTL45   
CMSEL,a,DOWNBACKL45
CMSEL,a,DOWNFRNTL5S1
CMSEL,a,UPBACKL45   
CMSEL,a,UPFRNTL5S1  
CMSEL,a,DOWNBACKL5S1
nplot
*GET,Nnod,NODE,0,COUNT　　　　　!得到所选择的节点总数     
*DIM,Cm_Name,CHAR,NNOD,1            !定义数组
*DIM,Xyz,ARRAY,NNOD,4            !定义数组

CMSEL,S,UPBACKL45
Cm_Name(1,1)='A11'
*GET,ID_Nd,NODE,0,NUM,MIN
Xyz(1,1)=ID_Nd                         !提取节点编号        
Xyz(1,2)=NX(ID_Nd)                     !取出节点的X坐标   
Xyz(1,3)=NY(ID_Nd)                    !取出节点的Y坐标      
Xyz(1,4)=NZ(ID_Nd)
CMSEL,S,DOWNBACKL45  
Cm_Name(2,1)='A12'
*GET,ID_Nd,NODE,0,NUM,MIN
Xyz(2,1)=ID_Nd                         !提取节点编号        
Xyz(2,2)=NX(ID_Nd)                     !取出节点的X坐标   
Xyz(2,3)=NY(ID_Nd)                    !取出节点的Y坐标      
Xyz(2,4)=NZ(ID_Nd)

CMSEL,S,UPFRNTL45
Cm_Name(3,1)='A21'
*GET,ID_Nd,NODE,0,NUM,MIN
Xyz(3,1)=ID_Nd                         !提取节点编号        
Xyz(3,2)=NX(ID_Nd)                     !取出节点的X坐标   
Xyz(3,3)=NY(ID_Nd)                    !取出节点的Y坐标      
Xyz(3,4)=NZ(ID_Nd)
CMSEL,S,DOWNFRNTL45  
Cm_Name(4,1)='A22'
*GET,ID_Nd,NODE,0,NUM,MIN
Xyz(4,1)=ID_Nd                         !提取节点编号        
Xyz(4,2)=NX(ID_Nd)                     !取出节点的X坐标   
Xyz(4,3)=NY(ID_Nd)                    !取出节点的Y坐标      
Xyz(4,4)=NZ(ID_Nd)

CMSEL,S,UP_ZJK_L45
Cm_Name(5,1)='A31'
*GET,ID_Nd,NODE,0,NUM,MIN
Xyz(5,1)=ID_Nd                         !提取节点编号        
Xyz(5,2)=NX(ID_Nd)                     !取出节点的X坐标   
Xyz(5,3)=NY(ID_Nd)                    !取出节点的Y坐标      
Xyz(5,4)=NZ(ID_Nd)
CMSEL,S,DOWN_ZJK_L45
Cm_Name(6,1)='A32'
*GET,ID_Nd,NODE,0,NUM,MIN
Xyz(6,1)=ID_Nd                         !提取节点编号        
Xyz(6,2)=NX(ID_Nd)                     !取出节点的X坐标   
Xyz(6,3)=NY(ID_Nd)                    !取出节点的Y坐标      
Xyz(6,4)=NZ(ID_Nd)


CMSEL,S,UPBACKL5S1
Cm_Name(7,1)='B11'
*GET,ID_Nd,NODE,0,NUM,MIN
Xyz(7,1)=ID_Nd                         !提取节点编号        
Xyz(7,2)=NX(ID_Nd)                     !取出节点的X坐标   
Xyz(7,3)=NY(ID_Nd)                    !取出节点的Y坐标      
Xyz(7,4)=NZ(ID_Nd)
CMSEL,S,DOWNBACKL5S1
Cm_Name(8,1)='B12'
*GET,ID_Nd,NODE,0,NUM,MIN
Xyz(8,1)=ID_Nd                         !提取节点编号        
Xyz(8,2)=NX(ID_Nd)                     !取出节点的X坐标   
Xyz(8,3)=NY(ID_Nd)                    !取出节点的Y坐标      
Xyz(8,4)=NZ(ID_Nd)



CMSEL,S,UPFRNTL5S1  
Cm_Name(9,1)='B21'
*GET,ID_Nd,NODE,0,NUM,MIN
Xyz(9,1)=ID_Nd                         !提取节点编号        
Xyz(9,2)=NX(ID_Nd)                     !取出节点的X坐标   
Xyz(9,3)=NY(ID_Nd)                    !取出节点的Y坐标      
Xyz(9,4)=NZ(ID_Nd)
CMSEL,S,DOWNFRNTL5S1
Cm_Name(10,1)='B22'
*GET,ID_Nd,NODE,0,NUM,MIN
Xyz(10,1)=ID_Nd                         !提取节点编号        
Xyz(10,2)=NX(ID_Nd)                     !取出节点的X坐标   
Xyz(10,3)=NY(ID_Nd)                    !取出节点的Y坐标      
Xyz(10,4)=NZ(ID_Nd)

CMSEL,S,UP_ZJK_L5S1
Cm_Name(11,1)='B31'
*GET,ID_Nd,NODE,0,NUM,MIN
Xyz(11,1)=ID_Nd                         !提取节点编号        
Xyz(11,2)=NX(ID_Nd)                     !取出节点的X坐标   
Xyz(11,3)=NY(ID_Nd)                    !取出节点的Y坐标      
Xyz(11,4)=NZ(ID_Nd)
CMSEL,S,DOWN_ZJK_L5S1
Cm_Name(12,1)='B32'
*GET,ID_Nd,NODE,0,NUM,MIN
Xyz(12,1)=ID_Nd                         !提取节点编号        
Xyz(12,2)=NX(ID_Nd)                     !取出节点的X坐标   
Xyz(12,3)=NY(ID_Nd)                    !取出节点的Y坐标      
Xyz(12,4)=NZ(ID_Nd)


*cfopen,geomfile,txt !打开文件，写入数据
*vwrite,0
(F8.0,' Coordinates of each node')
*vwrite,Cm_Name(1,1),Xyz(1,1),Xyz(1,2),Xyz(1,3),Xyz(1,4)
(A10,F8.0,3F10.4)
*vwrite,0
(F8.0)
*cfclos

wu330324

顶上去，请高手支招！！！！