3.2.5：增加坐标未设检测功能

若枫

3.2.5：增加坐标未设检测功能
在加工时程序中没有G54，G55...是非常危险的。这很容易造成撞机或是损坏产品，刀具，工装夹具等。
这时我们可以利用后处理来对刀路进行相关的检查，并达到提示用户的作用，可以有效的防止重大事故的发生。


3 z# f4 ^( U* jmastercam V9.1代码
/ `9 w, ]/ m" S( `% o1.增加错误提示信息
sworkerror  "WARNING - WORK OFFSET IS INVALID"
3 q' Q$ ]3 S2 u1 ]+ l
) }' P# q, g0 v* x2.增加发生错误时的后处理动作
3 t  F% T# F! z3 c. e: xp_real   #Remove Program
1 m, S0 K7 M8 f1 X9 S% d1 n; L          exitpost
- b2 z! ~9 d9 ]" L" Q7 j5 F
: J1 o4 z: k6 f; u7 R( Q- Z3.更改Pwcs下面的代码。这个代码较多。只需要完整的替换即可
pwcs            #G54+ coordinate setting at toolchange
      if mi1 > one,
        [
6 y! f9 ~5 {! L$ _3 X4 I        sav_frc_wcs = force_wcs
        if sub_level > 0, force_wcs = zero
        if workofs <> prv_workofs | (force_wcs & toolchng),
          [
" a6 A4 B* Z2 D/ L         if workofs > 0 & workofs < 7,
; ]+ _5 k3 V3 Z  {            [
( Y' w% c6 C( T2 r0 n            g_wcs = workofs + 53
            *g_wcs
; a1 F0 z4 w2 P3 |* r- e            ]
; H$ U% `! g& U$ m          else,
            [
             if workofs > 6 & workofs < 55,
6 R' d4 D* G/ X' a5 j# ^, f( W  m  t             [
            p_wcs = workofs - six
6 @! {' ^" v  n6 R3 D              "G54.1", *p_wcs  #"G54.1",
            ]
          ]
        force_wcs = sav_frc_wcs
+ l. Y5 g7 u  \        !workofs
           if workofs  > 55,  result = mprint(sworkerror),"(ERROR)",e
            [
5 C- ^" o! m# j$ g3 F8 m            "(", sworkerror,")",e
            p_real
            ]
* m( L/ y  V. b" r( u" ^. b( s* H           if workofs  < 1,  result = mprint(sworkerror),"(ERROR)",e
           [
           "(", sworkerror,")",e
8 p3 x8 X9 [4 Z* I! D6 v1 q4 |7 h* a           p_real
& @# }9 V  {& t  b           ]
           ]
          ]


: ?$ X  H1 v5 |$ c0 P" Fmastercam X5代码
1.增加错误提示信息
' a8 }# w9 G, M) r6 Y6 a8 u+ h7 zsworkerror  : "WARNING - WORK OFFSET IS INVALID"
+ g3 f, P! Z7 j
9 C5 ?7 m! O# D1 U  {2.增加发生错误时的后处理动作
! M3 ^: A# x) }/ zp_real   #Remove Program
          exitpost$
1 P9 b. `3 i) d8 N7 I" P4 O5 t# \3 g6 R% x
) ]! Z5 I  d; ]) j0 b1 \3.更改Pwcs下面的代码。这个代码较多。只需要完整的替换即可
8 B$ i8 s' p2 P, A# g* ^pwcs            #G54+ coordinate setting at toolchange
      if mi1$ > one,
8 O9 D: x( @9 o/ X# l8 J- K3 y        [
1 o6 Y* }3 e6 g% b# ^, l9 C        sav_frc_wcs = force_wcs
' ]  H$ J9 s0 i$ _) p        if sub_level$ > 0, force_wcs = zero
        if workofs$ <> prv_workofs$ | (force_wcs & toolchng),
          [
' F4 a( `9 \0 e: Y         if workofs$ > 0 & workofs$ < 7,
. T6 [) Z4 J& u" i4 G) ^/ y            [
            g_wcs = workofs$ + 53
            *g_wcs
, k! c1 V8 I( ]- c1 E6 ?" F& {2 D            ]
0 q* d0 \5 o! z; w7 l) E+ P: H5 G          else,
            [
             if workofs$ > 6 & workofs$ < 55,
             [
            p_wcs = workofs$ - six
              "G54.1", *p_wcs  #"G54.1",
            ]
9 Q6 Y3 J# @' \" l! ?4 q          ]
        force_wcs = sav_frc_wcs
) B/ n8 Q0 ?) t( h  X        !workofs$
! o  ^5 K# ~, s! y/ M7 u           if workofs$  > 55,  result = mprint(sworkerror),"(ERROR)",e$
            [
3 T/ v8 K5 v; Y  ]" H$ K* z0 \            "(", sworkerror,")",e$
+ t1 u5 ]8 _6 K  u# @            p_real
* r9 v1 m2 a8 A; e! c( l% W            ]
& s' b* K4 {: f$ B4 U           if workofs$  < 1,  result = mprint(sworkerror),"(ERROR)",e$
! w: O  k) [6 L' E7 A) Q/ D& t           [
           "(", sworkerror,")",e$
- _* ?) Z  Z, y9 k7 `! \- r           p_real
1 t1 h- P. `) e3 y1 D; l9 W, C0 k/ c           ]
           ]
          ]
& v8 S9 l2 F" q+ d+ L' T4 ~3 g+ G: g
4.刀路设置如图
确保该数值大于0小于54，否则在处理时将会报错，提示坐标未设或是未定义。



) U1 Z7 Y; g) y5.测试结果

ya574544187

学习了好资料

yjqytkhh

学习了，好资料

queede

学习学习学习