发几个源码生成bom表源代码供大家学习参考

dhdfsjnsdnjsns · 发表于 2015-5-9 11:47

本帖最后由 dhdfsjnsdnjsns 于 2015-5-9 12:00 编辑

生成bom表源代码

生成bom表ENTITY/obj(1000),ln1,ln2,ln3,pla(6),$
            ln4,ln5,ln6,ln7,ln8,ln9,ln10,ln(1000)
   NUMBER/x(1000),y(1000),z(1000),p(6),h,w(50),I,J,N,lo,$
            xmin,xmax,ymin,ymax,zmin,zmax,w1,distan(7),$
            x1,y1,z1,v,ans,m(100),u1,mindis(6),$
            m1(1000),num(1000),num1(1000),l,p1,q1,r1
   STRING/a(1000),b(1000),c(1000),d(1000),getname(1000,1000),$
         name(1000,1000),t(10),stock(1000,1000),fix(1000),$
         half(4,1000),part_name(132)
   DATA/half,'罗鸣提示:选择的实体是哪侧镶件',$
         '定模镶件',$
         '动模镶件',$
         '滑块镶件'
l10:
   mask/70
   ident/'罗鸣提示:选择镶件实体，数目小于100',obj,CNT,N,rsp
   jump/l10:,hal:,,,rsp
   p1=0
l20:
   DO /l30:,J,1, N
  l21: getname(J)=&NAME(obj(J))
      ifthen/lenf(getname(J))==0
      r1=&COLOR(obj(J))
      &COLOR(obj(J))=&RED
      messg/'罗鸣提示:红色实体没有命名'

a7:
      TEXT/'罗鸣提示:输入红色实体名称',part_name,RSP1
   JUMP/a7:,hal:,,RSP1
      &name(obj(J))=part_name
      &COLOR(obj(J))=r1
      jump/l21:
      ELSE
      endif

l30:
   J=1
m(J)=1
num(J)=0
l40:
   DO /L50:,I,1,N
      ans=CMPSTR(getname(J),getname(I))
      IFTHEN/ans==1
            m(J)=m(J)+ans
            num(J)=num(J)
      ELSEIF/ans==0
         m(J)=m(J)
         num(J)=num(J)+1
      ELSE
         m(J)=m(J)
         num(J)=num(J)
      ENDIF
L50:
IFTHEN/J>N
      JUMP/l60:
   ELSE
      J=J+1
      m(J)=1
      num(J)=0
      JUMP/l40:
   ENDIF
l60:
   CHOOSE/half(1..4),DEFLT,1,RSP
   JUMP/l60:,hal:,,,l70:,l80:,l90:,RSP
l70:
   fix='_fix_'
   l=100
   JUMP/l100:
l80:
   fix='_move_'
      l=300
   JUMP/l100:
l90:
   fix='_slide_'
      l=500
l100:
   VIEW/1
   GPOS/'罗鸣提示:选择备料单表格放置点',$
      x1,y1,z1,rsp
   JUMP/l100:,hal:,,,,rsp
   w(1)=10
   w(2)=30
   w(3)=60
   w(4)=10
   h=6
   ln1=LINE/x1,y1,x1+w(1)+w(2)+w(3)+w(4),y1
   u1=0
l110:
   DO /l120:,I,1,N
      IFTHEN/num(I)==1
   u1=u1+num(I)
   ELSE
   u1=u1+1/num(I)
      ENDIF
l120:
   K=1
   J=1
l130:
   DO /l160:, K, 1, N
      DO /l150: , I, 1, N
      IFTHEN/m(I)==K
         m1(J)=I
         name(J)=ISTR(l+J)+fix+&NAME(obj(I))
         num1(J)=num(I)
         I=N
         lo=1

      ELSE
         lo=0

      ENDIF
l150:
   IFTHEN/lo==0
      J=J

   ELSE
      J=J+1

      ENDIF
l160:
   N=u1
   NOTE/x1+w(1)/2,y1-(h/2),'NO.'
            NOTE/x1+w(1)+w(2)/2,y1-(h/2),'NAME'
            NOTE/x1+w(1)+w(2)+w(3)/2,y1-(h/2),'STOCK'
            NOTE/x1+w(1)+w(2)+w(3)+w(4)/2,y1-(h/2),'QTY'

DO /l170:, I, 1, N

            ln(I)=LINE/PARLEL,ln1,YSMALL,I*h

            p=solbox/obj(m1(I))
            xmin=minf(p(1),p(4))
            xmax=maxf(p(1),p(4))
            ymin=minf(p(2),p(5))
            ymax=maxf(p(2),p(5))
            zmin=minf(p(3),p(6))
            zmax=maxf(p(3),p(6))
$$print/xmin,xmax,ymin,ymax,zmin,zmax
draw/off

      pla(1)=PLANE/YZPLAN,(xmin-10)
      pla(2)=PLANE/YZPLAN,(xmax+10)
      pla(3)=PLANE/XZPLAN,(ymin-10)
      pla(4)=PLANE/XZPLAN,(ymax+10)
      pla(5)=PLANE/XYPLAN,(zmin-10)
      pla(6)=PLANE/XYPLAN,(zmax+10)



            distan=reldst/pla(1),obj(m1(I))       $$测量两个物体的距离

            mindis(1)=absf(distan(7))       $$mindis(7)为距离


            distan=reldst/pla(2),obj(m1(I))

            mindis(2)=absf(distan(7))


            distan=reldst/pla(3),obj(m1(I))

            mindis(3)=absf(distan(7))


            distan=reldst/pla(4),obj(m1(I))

            mindis(4)=absf(distan(7))


            distan=reldst/pla(5),obj(m1(I))

            mindis(5)=absf(distan(7))


            distan=reldst/pla(6),obj(m1(I))

            mindis(6)=absf(distan(7))
DELETE/pla
draw/on

            xmin=(xmin-10)+mindis(1)
            xmax=(xmax+10)-mindis(2)
            ymin=(ymin-10)+mindis(3)
            ymax=(ymax+10)-mindis(4)
            zmin=(zmin-10)+mindis(5)
            zmax=(zmax+10)-mindis(6)

      x(I)=absf(xmax-xmin)
      y(I)=absf(ymax-ymin)
      z(I)=absf(zmax-zmin)
   &DECPL = 3
   a=FSTRL(x(I))
   b=FSTRL(y(I))
   c=FSTRL(z(I))
   stock(I)=a+'*'+b+'*'+c
            t=ISTR(I)
            NOTE/x1+w(1)/2,y1-(h/2)-I*h,t

   NOTE/(x1+w(1)+w(2)/2),y1-(h/2)-I*h,name(I)
   NOTE/x1+w(1)+w(2)+w(3)/2,y1-(h/2)-I*h,stock(I)
   NOTE/x1+w(1)+w(2)+w(3)+w(4)/2,y1-(h/2)-I*h,ISTR(num1(I))
l170:
      ln2=LINE/x1,y1,x1,y1-(N+1)*h
      ln3=LINE/PARLEL,ln2,XLARGE,w(1)
      ln4=LINE/PARLEL,ln3,XLARGE,w(2)
      ln5=LINE/PARLEL,ln4,XLARGE,w(3)
      ln6=LINE/PARLEL,ln5,XLARGE,w(4)
      ln7=LINE/PARLEL,ln1,YSMALL,(N+1)*h
hal:
HALT

dhdfsjnsdnjsns · 发表于 2015-5-9 11:57

自动分层指定从第几层起，

修改了一下被人的，加了一个开始层。用的着的就拿去用吧。
entity/obj(5000)
l10:
PARAM/'Input param',$
'输入开始层',x,resp
ident/'选择实体,不超过5000个',obj,cnt,num,resp
jump/l10:,trm:,,,resp
i=1
m=x
l20:
&layer(obj(i))=m
if/i==num,jump/trm:
if/m==256,m=1
m=m+1
i=i+1
jump/l20:
trm:
halt

dhdfsjnsdnjsns · 发表于 2015-5-9 11:59

entity/a(1000)

ident/'选择',a,cnt,i,resp

l10:
&layer(a(i))=100
i=i-1
if/i==0,jump/end:
jump/l10:

end:
HAL

dhdfsjnsdnjsns · 发表于 2015-5-9 12:04

一个模仁自动出简图的外挂！可是在制图的环境下自动标最大外形我做不好还请高手帮我看看：
源代码如下：
  ENTITY/PT,ENT(1000),DIMX1,DIMX2,DIMY1,DIMY2,DIMZ,CSYS1,$
   PT0,PTX1,PTX2,PTY1,PTY2,PTZ1,PTZ2,e_top,e_front,e_iso
ENTITY/PT1,PT2,PT3
NUMBER/N,OBJ(6),MINX,MINY,MINZ,MAXX,MAXY,MAXZ,K,A1,LEN_X,LEN_Y,LEN_Z
NUMBER/mat(4,12)
MASK/ALL

K=0
L10:
IDENT/'SELECT A ENT',ENT,CNT,N,RESP
JUMP/L10:,end:,RESP
L20:
IFTHEN/K<=N
K=K+1
OBJ=SOLBOX/ENT(K),IFERR,ERR1:
   IFTHEN/K<=1
  MINX=MINF(OBJ(1),OBJ(4))
  MINY=MINF(OBJ(2),OBJ(5))
  MINZ=MINF(OBJ(3),OBJ(6))
  MAXX=MAXF(OBJ(1),OBJ(4))
  MAXY=MAXF(OBJ(2),OBJ(5))
  MAXZ=MAXF(OBJ(3),OBJ(6))
   ELSE
  MINX=MINF(MINX,OBJ(1),OBJ(4))
  MINY=MINF(MINY,OBJ(2),OBJ(5))
  MINZ=MINF(MINZ,OBJ(3),OBJ(6))
  MAXX=MAXF(MAXX,OBJ(1),OBJ(4))
  MAXY=MAXF(MAXY,OBJ(2),OBJ(5))
  MAXZ=MAXF(MAXZ,OBJ(3),OBJ(6))
   ENDIF
JUMP/L20:
ENDIF
$$
JUMP/L30:
ERR1:
L30:
  LEN_X=ABSF(MAXX-MINX)
  LEN_Y=ABSF(MAXY-MINY)
  LEN_Z=ABSF(MAXZ-MINZ)
   pt0=point/0,0,MINZ
   ptX1=point/MINX,0,MINZ
   ptX2=point/MAXX,0,MINZ
   ptY1=point/0,MINY,MINZ
   ptY2=point/0,MAXY,MINZ
   ptZ1=point/0,0,0
   ptZ2=point/0,0,MINZ

      DRAW/ON
&layer(pt0)=250
  &layer(ptX1)=250
  &layer(ptX2)=250
&layer(ptY1)=250
&layer(ptY2)=250
&layer(ptZ1)=250
&layer(ptZ2)=250
&LYRSEL(250)=2

&CSMODE=2
e_top=CSYS/&WCS
mat(1,1..12)=MATRIX/YZROT,90
e_front=TRANSF/mat(1,1..12),e_top
mat(2,1..12)=MATRIX/YZROT,45
mat(3,1..12)=MATRIX/XYROT,45
mat(4,1..12)=MATRIX/mat(2,1..12),mat(3,1..12)
e_iso=TRANSF/mat(4,1..12),e_top
crtnvie:
VIEWC/'e_top',e_top,WORK,AUTO,IFERR,delvie:
  VIEWE/'e_top',REF,80,10,DSCALE,0.2,SAVE

VIEWC/'e_front',e_front,WORK,AUTO,IFERR,delvie:
VIEWE/'e_front',REF,80,10,DSCALE,0.2,SAVE

VIEWC/'e_iso',e_iso,WORK,AUTO,IFERR,delvie:
VIEWE/'e_iso',REF,10,10,DSCALE,0.2,SAVE

JUMP/crt_draw:
delvie:
VIEW/1
VIEWD/'e_top',IFERR,crtnvie:
VIEWD/'e_front',IFERR,crtnvie:
VIEWD/'e_iso',IFERR,crtnvie:
JUMP/crtnvie:
crt_draw:
DRAWC/'CNC',MMETER,210,297,WORK,IFERR,ERR:

  DRAWE/ADD,'e_TOP',75,140
  DRAWE/ADD,'e_FRONT',75,50
  DRAWE/ADD,'e_ISO',220,100

end:
HALT

ERR:
MESSG/'图纸重名'
HALT

  DRAWE/ADD,'e_TOP',75,140
  DRAWE/ADD,'e_FRONT',75,50
  DRAWE/ADD,'e_ISO',220,100
HALT

dhdfsjnsdnjsns · 发表于 2015-5-9 12:31

entity/a(100),pt(100)

l30:

choose/'选择你需要的开闭器型号',$
      '直径10','直径13','直径16','直径20',resp
jump/l30:,end:,,,w10:,w13:,w16:,w20:,resp

w10:
hh=3
h1=18
h2=11
h3=15
d1=10
d2=5
d3=7.5
d4=4
jump/l10:

w13:
hh=3
h1=20.2
h2=13
h3=17
d1=13
d2=6
d3=11
d4=6
jump/l10:

w16:
hh=3
h1=26
h2=16
h3=22
d1=16
d2=8
d3=14
d4=6
jump/l10:

w20:
hh=3
h1=32
h2=18
h3=27
d1=20
d2=10
d3=17.5
d4=8
jump/l10:

l10:

  gpos/'选择一个点来确定开闭器存放的位置',x,y,z,resp
  jump/l10:,l30:,,,resp

l20:

  param/'输入坐标值','XC',x,'YC',y,'ZC',z,resp
  jump/l20:,end:,,,resp

pt(1)=point/x+d1/2,y,z+h3
pt(2)=point/x+d2/2,y,z-h2
pt(3)=point/x+d3/2,y,z+h1

a(1)=solcyl/origin,x,y,z-hh,height,hh+h3,diamtr,d1,axis,0,0,1
a(2)=solcyl/origin,x,y,z,height,h1,diamtr,d3,axis,0,0,1
a(3)=solcyl/origin,x,y,z,height,h2,diamtr,d2,axis,0,0,-1
a(4)=solpri/origin,x,y,z+h1,height,h1-h3,diamtr,d4,side,6,axis,0,0,-1
a(5)=unite/a(1),with,a(2..3)
a(6)=subtra/a(5),with,a(4)
blend/a(6),chamfr,0.5,pt(1..3)
delete/pt
&color(a(6))=133

jump/l10:

end:

halt

dhdfsjnsdnjsns · 发表于 2015-5-9 12:33

高手写的nc原代码！拿出来给大家看看！

在ＮＣＯＰ.ＧＲＳ中输入如下代码
ENTITY/OBJ(25),SURF1(5000),cbnd(90),BEID
ENTITY/surf2(5000)
NUMBER/NUM
L00:
PARAM/'请您输入料厚数据',$'
输入料厚数据',LH,RSP
JUMP/L00:,,,RSP
MESSG/'请选择加工几何体'
L10:
IDENT/'请选择加工面',surf1,CNT,NUM,$
CURSOR,X,Y,Z,RSP
JUMP/L10:,L20:,,RSP
L20:
MESSG/'请选择加工边界'
mask/3
ident/'选择曲线边界',cbnd,cnt,cbnd_cnt,rspu
JUMP/O4:,O9:,,rspu
&MODULE = &MACH $$ 激活加工模块$$
&MCS=&WCS       $$ 使用当前坐标为加工坐标$$
   $$ 以下为选择使用的模版及要生成的操作名称$$
$$标记A
&OPTSET='D:\resource\template_set\nc_grip.opt'
OPER/NEW, OPNAME, 'c.50','cam_metric_template', 'c.50'
TOOL/'B30',MILL,30,15,100 $$刀具设置，具体为‘MILL’类$
                        $$的直径30，半径15，刀长100
&tname='B30'          $$选择使用该刀具
TAXIS/0,0,1          $$刀轴方向，使用I,J,K方式。
OPGEOM/GLIST, PART
OPGEOM/GITEM, surf1(1..NUM) $$选择加工几何体
OPGEOM/BND,PART,START       $$边界选择开始
&BNDTYP=&CLOSED                $$边界为封闭
&CMTSID=&OUTSID                $$加工内侧
DO/O6:,j,1,cbnd_cnt,1          $$依次选择各个轮廓
OPGEOM/BNDITM,cbnd(j)
&TOOLOC = &ON                   $$使用ON边界
O6:                   $$ 结束循环
&FSTOCK=LH          $$余量设置，此处设置等于料厚
&cuttyp=&ZZ       $$刀具轨迹样式，此处沿边
&PATTRN=&PROFILE
&CUTANG=45
&stpty=&CNSTEP    $$步距设置为固定步距
&STEP=10             $$步距为10
OPGEOM/BND,END    $$边界选择结束
&GENPTH=&YES       $$生成刀轨
OPER/ SAVE$$          $$保存操作
$$...
　　$$从标记A开始到该位置的内容可以多次复制，产生多个 OPERATION，$$仅仅修改余量，刀具等参数内容，即可产生不同的操作，通过多个操作$$的组合，完成一个工艺过程。
HALT

moyi668 · 发表于 2016-10-14 21:48

很好的东西啊！！

gogocat1233 · 发表于 2017-4-25 17:59

做为一名UG爱好者，不管你信不信，反正我是信了。

		自动登录	找回密码
密码			注册

[分享] 发几个源码生成bom表源代码供大家学习参考

浏览过的版块

[分享] 发几个源码 生成bom表源代码 供大家学习参考

浏览过的版块

[分享] 发几个源码生成bom表源代码供大家学习参考