多级序号与所属装配显示；物料号的显示。

kylincy*

由于公司的产品BOM要有“所属装配”一栏，proe又没有相关参数能读取上层组件的图号，在网上搜了好久也没能找到相似的关系式，所以只能借用前辈的代码来改了，我所修改的代码如下：（将下面的代码复制到BOM清单的重复区域内的关系中）

1. /*多级序号与所属装配显示
   
2. if save_idx==pass_num && rpt_index==1
   
3.    save_idx=0
   
4. endif
   
5. 
   
6. if rpt_index>save_idx
   
7.    save_idx=rpt_index
   
8.    pass_num=0
   
9. else
   
10.    pass_num=save_idx
    
11. endif
    
12. 
    
13. if pass_num==0
    
14. totalmass=rpt_qty*asm_mbr_mczl /*自定义重量参数
    
15. 
    
16. if rpt_index==1
    
17.   if exists("asm_mbr_tuhao") /*检查自定义“tuhao”参数
    
18.    atuhao=asm_mbr_tuhao /*如果有，将第一层组件的图号提取到"atuhao"中
    
19. else
    
20.    atuhao="父项无图号" /*如果无，提示父项无图号，以下相同。
    
21.   endif
    
22.    current_level=rpt_level
    
23.    save_2sn=0
    
24.    save_3sn=0
    
25.    save_4sn=0
    
26.    save_5sn=0
    
27.    /*加入点
    
28. endif
    
29. 
    
30. if current_level==rpt_level
    
31.     if rpt_level==2
    
32.          if exists("asm_mbr_tuhao") /*检查“tuhao”参数
    
33.             btuhao=asm_mbr_tuhao /*将第二层的图号提取到"btuhao"中
    
34.          else
    
35.             btuhao="父项无图号"
    
36.          endif
    
37.       futuhao=atuhao /*第二层的父图号等于第一层的图号
    
38.       save_2sn=save_2sn+1
    
39.    endif
    
40.    if rpt_level==3
    
41.          if exists("asm_mbr_tuhao") /*检查“tuhao”参数
    
42.             ctuhao=asm_mbr_tuhao /*将第三层的图号提取到"ctuhao"中
    
43.          else
    
44.             ctuhao="父项无图号"
    
45.          endif
    
46.       futuhao=btuhao /*第三层的父图号等于第二层的图号
    
47.       save_3sn=save_3sn+1
    
48.    endif
    
49.    if rpt_level==4
    
50.          if exists("asm_mbr_tuhao") /*检查“tuhao”参数
    
51.             dtuhao=asm_mbr_tuhao /*将第4层的图号提取到"dtuhao"中
    
52.          else
    
53.             dtuhao="父项无图号"
    
54.          endif
    
55.       futuhao=ctuhao /*第4层的父图号等于第3层的图号
    
56.       save_4sn=save_4sn+1
    
57.    endif
    
58.    if rpt_level==5
    
59.          if exists("asm_mbr_tuhao") /*检查“tuhao”参数
    
60.             etuhao=asm_mbr_tuhao /*将第5层的图号提取到"etuhao"中
    
61.          else
    
62.             etuhao="父项无图号"
    
63.          endif
    
64.       futuhao=dtuhao /*第5层的父图号等于第4层的图号
    
65.       save_5sn=save_5sn+1
    
66.    endif
    
67.    /*加入点
    
68. else      
    
69.    if rpt_level==2
    
70.       save_2sn=save_2sn+1
    
71.       /*save_4sn=save_2sn
    
72.          if exists("asm_mbr_tuhao") /*检查“tuhao”参数
    
73.             btuhao=asm_mbr_tuhao /*将第二层的图号提取到"btuhao"中
    
74.          else
    
75.             btuhao="父项无图号"
    
76.          endif
    
77.       futuhao=atuhao /*第二层的父图号等于第一层的图号
    
78.    endif
    
79.    if rpt_level==3
    
80.       save_3sn=save_3sn+1
    
81.          if exists("asm_mbr_tuhao") /*检查“tuhao”参数
    
82.             ctuhao=asm_mbr_tuhao /*将第三层的图号提取到"ctuhao"中
    
83.          else
    
84.             ctuhao="父项无图号"
    
85.          endif
    
86.       futuhao=btuhao /*第三层的父图号等于第二层的图号
    
87.       if current_level<rpt_level
    
88.          save_3sn=1
    
89.       endif
    
90.       /*save_4sn=save_3sn   
    
91.    endif
    
92.    if rpt_level==4
    
93.       save_4sn=save_4sn+1
    
94.          if exists("asm_mbr_tuhao") /*检查“tuhao”参数
    
95.             dtuhao=asm_mbr_tuhao /*将第4层的图号提取到"dtuhao"中
    
96.          else
    
97.             dtuhao="父项无图号"
    
98.          endif
    
99.       futuhao=ctuhao /*第4层的父图号等于第3层的图号
    
100.       if current_level<rpt_level
     
101.          save_4sn=1
     
102.       endif
     
103.    endif
     
104.    if rpt_level==5
     
105.       save_5sn=save_5sn+1
     
106.          if exists("asm_mbr_tuhao") /*检查“tuhao”参数
     
107.             etuhao=asm_mbr_tuhao /*将第5层的图号提取到"etuhao"中
     
108.          else
     
109.             etuhao="父项无图号"
     
110.          endif
     
111.       futuhao=dtuhao /*第5层的父图号等于第4层的图号
     
112.       if current_level<rpt_level
     
113.          save_5sn=1
     
114.       endif
     
115.    endif
     
116.    /*加入点
     
117.    current_level=rpt_level
     
118. endif
     
119. 
     
120. 
     
121. if rpt_level==2
     
122.    myidx=itos(save_2sn)
     
123. endif
     
124. if rpt_level==3
     
125.    myidx=itos(save_2sn)+"."+itos(save_3sn)
     
126. endif
     
127. if rpt_level==4
     
128.    myidx=itos(save_2sn)+"."+itos(save_3sn)+"."+itos(save_4sn)
     
129. endif
     
130. if rpt_level==5
     
131.    myidx=itos(save_2sn)+"."+itos(save_3sn)+"."+itos(save_4sn)+"."+itos(save_5sn)
     
132. endif
     
133. /*加入点
     
134. endif
     
135. 
     
136. /*显示物料
     
137. if exists("asm_mbr_erpfl")==FALSE /*检查自定义“ERPFL”参数
     
138. wuliao = asm_mbr_tuhao /*没有，则图号就是物料号，公司将自制件的图号当作物料号，所以自制件不设“ERPFL”参数
     
139. else
     
140. if asm_mbr_mcwl==" "||asm_mbr_mcwl=="" /*当自定义“mcwl”参数值为空或只有一个空格时
     
141. wuliao = "没有物料号"  /*提示没有物料号
     
142. else
     
143. wuliao = asm_mbr_mcwl  /*有就显示物料号
     
144. endif
     
145. endif

复制代码

以上是我修改别人的代码，由于我不会编程，所以肯定有很多遗漏或错误的地方，在此只是抛砖引玉，还希望各位能多多指正。
同时也希望能帮助到更多的人。
运行后的：