[原创] UG自动生成bom表源代码

luoming1023

源代码如下：

1. 生成bom表ENTITY/obj(1000),ln1,ln2,ln3,pla(6),$
   
2.                 ln4,ln5,ln6,ln7,ln8,ln9,ln10,ln(1000)
   
3.       NUMBER/x(1000),y(1000),z(1000),p(6),h,w(50),I,J,N,lo,$
   
4.               xmin,xmax,ymin,ymax,zmin,zmax,w1,distan(7),$
   
5.                 x1,y1,z1,v,ans,m(100),u1,mindis(6),$
   
6.                m1(1000),num(1000),num1(1000),l,p1,q1,r1
   
7.       STRING/a(1000),b(1000),c(1000),d(1000),getname(1000,1000),$
   
8.              name(1000,1000),t(10),stock(1000,1000),fix(1000),$
   
9.              half(4,1000),part_name(132)
   
10.       DATA/half,'罗鸣提示:选择的实体是哪侧镶件',$
    
11.              '定模镶件',$
    
12.              '动模镶件',$
    
13.              '滑块镶件'
    
14. l10:
    
15.       mask/70
    
16.       ident/'罗鸣提示:选择镶件实体，数目小于100',obj,CNT,N,rsp
    
17.       jump/l10:,hal:,,,rsp
    
18.       p1=0
    
19. l20:
    
20.       DO /l30:,J,1, N
    
21.   l21:    getname(J)=&NAME(obj(J))
    
22.          ifthen/lenf(getname(J))==0
    
23.          r1=&COLOR(obj(J))
    
24.           &COLOR(obj(J))=&RED
    
25.          messg/'罗鸣提示:红色实体没有命名'
    
26.       
    
27.     a7:
    
28.         TEXT/'罗鸣提示:输入红色实体名称',part_name,RSP1
    
29.        JUMP/a7:,hal:,,RSP1
    
30.          &name(obj(J))=part_name
    
31.         &COLOR(obj(J))=r1
    
32.         jump/l21:
    
33.         ELSE
    
34.         endif
    
35.          
    
36. l30:
    
37.      J=1
    
38.     m(J)=1
    
39.     num(J)=0
    
40. l40:   
    
41.       DO /L50:,I,1,N
    
42.         ans=CMPSTR(getname(J),getname(I))
    
43.          IFTHEN/ans==1
    
44.               m(J)=m(J)+ans
    
45.               num(J)=num(J)
    
46.          ELSEIF/ans==0
    
47.             m(J)=m(J)
    
48.             num(J)=num(J)+1
    
49.           ELSE
    
50.              m(J)=m(J)
    
51.              num(J)=num(J)
    
52.           ENDIF
    
53. L50:
    
54.     IFTHEN/J>N
    
55.          JUMP/l60:
    
56.       ELSE
    
57.          J=J+1
    
58.          m(J)=1
    
59.          num(J)=0
    
60.          JUMP/l40:
    
61.       ENDIF
    
62. l60:
    
63.        CHOOSE/half(1..4),DEFLT,1,RSP
    
64.        JUMP/l60:,hal:,,,l70:,l80:,l90:,RSP
    
65. l70:        
    
66.       fix='_fix_'
    
67.        l=100
    
68.       JUMP/l100:
    
69. l80:
    
70.        fix='_move_'
    
71.         l=300
    
72.        JUMP/l100:
    
73. l90:
    
74.        fix='_slide_'
    
75.         l=500
    
76. l100:
    
77.       VIEW/1
    
78.      GPOS/'罗鸣提示:选择备料单表格放置点',$
    
79.          x1,y1,z1,rsp
    
80.      JUMP/l100:,hal:,,,,rsp
    
81.       w(1)=10
    
82.       w(2)=30
    
83.       w(3)=60
    
84.       w(4)=10
    
85.       h=6     
    
86.       ln1=LINE/x1,y1,x1+w(1)+w(2)+w(3)+w(4),y1
    
87.       u1=0
    
88. l110:
    
89.       DO /l120:,I,1,N
    
90.         IFTHEN/num(I)==1
    
91.        u1=u1+num(I)
    
92.        ELSE
    
93.        u1=u1+1/num(I)
    
94.         ENDIF
    
95. l120:
    
96.        K=1
    
97.        J=1
    
98. l130:
    
99.       DO /l160:, K, 1, N
    
100.         DO /l150: , I, 1, N
     
101.          IFTHEN/m(I)==K
     
102.            m1(J)=I
     
103.            name(J)=ISTR(l+J)+fix+&NAME(obj(I))
     
104.            num1(J)=num(I)
     
105.            I=N
     
106.            lo=1
     
107.          
     
108.          ELSE
     
109.             lo=0
     
110.          
     
111.           ENDIF
     
112. l150:
     
113.      IFTHEN/lo==0
     
114.           J=J
     
115.      
     
116.        ELSE
     
117.           J=J+1
     
118.    
     
119.         ENDIF
     
120. l160:
     
121.      N=u1
     
122.      NOTE/x1+w(1)/2,y1-(h/2),'NO.'
     
123.               NOTE/x1+w(1)+w(2)/2,y1-(h/2),'NAME'
     
124.               NOTE/x1+w(1)+w(2)+w(3)/2,y1-(h/2),'STOCK'
     
125.               NOTE/x1+w(1)+w(2)+w(3)+w(4)/2,y1-(h/2),'QTY'
     
126. 
     
127.     DO /l170:, I, 1, N
     
128. 
     
129.               ln(I)=LINE/PARLEL,ln1,YSMALL,I*h
     
130.             
     
131.                 p=solbox/obj(m1(I))
     
132.                 xmin=minf(p(1),p(4))
     
133.                 xmax=maxf(p(1),p(4))
     
134.                 ymin=minf(p(2),p(5))
     
135.                 ymax=maxf(p(2),p(5))
     
136.                 zmin=minf(p(3),p(6))
     
137.                 zmax=maxf(p(3),p(6))
     
138. $print/xmin,xmax,ymin,ymax,zmin,zmax
     
139. draw/off
     
140. 
     
141.         pla(1)=PLANE/YZPLAN,(xmin-10)
     
142.         pla(2)=PLANE/YZPLAN,(xmax+10)
     
143.         pla(3)=PLANE/XZPLAN,(ymin-10)
     
144.         pla(4)=PLANE/XZPLAN,(ymax+10)
     
145.         pla(5)=PLANE/XYPLAN,(zmin-10)
     
146.         pla(6)=PLANE/XYPLAN,(zmax+10)
     
147. 
     
148.            
     
149. 
     
150.                 distan=reldst/pla(1),obj(m1(I))        $测量两个物体的距离
     
151.                
     
152.                 mindis(1)=absf(distan(7))        $mindis(7)为距离
     
153.         
     
154.         
     
155.                 distan=reldst/pla(2),obj(m1(I))        
     
156.                
     
157.                 mindis(2)=absf(distan(7))
     
158.                
     
159.         
     
160.                 distan=reldst/pla(3),obj(m1(I))        
     
161.                
     
162.                 mindis(3)=absf(distan(7))
     
163.         
     
164.         
     
165.                 distan=reldst/pla(4),obj(m1(I))        
     
166.                
     
167.                 mindis(4)=absf(distan(7))
     
168.         
     
169. 
     
170.                 distan=reldst/pla(5),obj(m1(I))        
     
171.                
     
172.                 mindis(5)=absf(distan(7))
     
173.         
     
174. 
     
175.                 distan=reldst/pla(6),obj(m1(I))        
     
176.                
     
177.                 mindis(6)=absf(distan(7))
     
178. DELETE/pla        
     
179. draw/on
     
180.                
     
181.                 xmin=(xmin-10)+mindis(1)
     
182.                 xmax=(xmax+10)-mindis(2)
     
183.                 ymin=(ymin-10)+mindis(3)
     
184.                 ymax=(ymax+10)-mindis(4)
     
185.                 zmin=(zmin-10)+mindis(5)
     
186.                 zmax=(zmax+10)-mindis(6)
     
187.          
     
188.         x(I)=absf(xmax-xmin)
     
189.         y(I)=absf(ymax-ymin)
     
190.         z(I)=absf(zmax-zmin)
     
191.       &DECPL = 3
     
192.        a=FSTRL(x(I))
     
193.        b=FSTRL(y(I))
     
194.        c=FSTRL(z(I))
     
195.        stock(I)=a+'*'+b+'*'+c
     
196.               t=ISTR(I)
     
197.               NOTE/x1+w(1)/2,y1-(h/2)-I*h,t
     
198.            
     
199.        NOTE/(x1+w(1)+w(2)/2),y1-(h/2)-I*h,name(I)
     
200.        NOTE/x1+w(1)+w(2)+w(3)/2,y1-(h/2)-I*h,stock(I)
     
201.        NOTE/x1+w(1)+w(2)+w(3)+w(4)/2,y1-(h/2)-I*h,ISTR(num1(I))
     
202. l170:
     
203.         ln2=LINE/x1,y1,x1,y1-(N+1)*h
     
204.         ln3=LINE/PARLEL,ln2,XLARGE,w(1)
     
205.         ln4=LINE/PARLEL,ln3,XLARGE,w(2)
     
206.         ln5=LINE/PARLEL,ln4,XLARGE,w(3)
     
207.         ln6=LINE/PARLEL,ln5,XLARGE,w(4)
     
208.         ln7=LINE/PARLEL,ln1,YSMALL,(N+1)*h     
     
209. hal:
     
210.     HALT
     

复制代码

Whggagui

你好啊，呵呵

w_y8266*

感谢分享

baton520

这个是真的很历害的源代码，很实用

seang*

无法编译

qjwlq

这是什么语言写的啊

oaht

有谁知道这个怎么用的啊？！

且伴蔷薇@新

你好，感谢分享

lai635104

非厉害，怎么用？各位老大

lai635104

有使用方法吗?