大家帮我看看这个后处理怎么改成公制的,谢谢~~

eaphoenix · 发表于 2006-6-4 12:38:15

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

这个是CIMATRON FOR 米克朗的后处理，希望高手帮我看看怎么把处理出来的程序改成公制的，具体文件请看附件。谢谢大家

*
***************************************************
*          CamNet (c) PostNet                *
*-------------------------------------------------*
*          Name : Hnc_3x                      *
*       Machine : Heidenhain                   *
*       Control :                            *
*             CO : Micro Moules Inc.          *
* Cimatron Ver : 8.0/9.0                      *
*             By : Ogen Goldstein             *
*          Date : April, 02, 1998             *
*          Type : 3-AXIS MILL                *
*          Unit : Inch/Metric                *
*       Platform : Any (Source writen on NT4.0)  *
*-------------------------------------------------*
*          Tel :                            *
*          Log # 4678                         *
*    Modified by :                            *
*          Date :                            *
*       PLATFORM :                            *
***************************************************
*
*============ New Variable ================================================
FORMAT (COORDINATES) Clr Depth Total Zinit Xlast Ylast Zlast CycPeck CycXshft ;
FORMAT (SEQUENCING)  Seq FlagCool FlagBeginLine MoveNum FlagCircle ;
FORMAT (CHARACTER) SPC UserUnits FileGpp Gunits FlagZdm ArcFlag Comm1;
FORMAT (TOOL)       FirsTool FlagTool next_tool NexTool;
FORMAT (TOOL)       NumTool OffsetLen OffsetDia  OffsetFix FlagSpin;
FORMAT (COORDINATES) Xi Yj Xendpt Yendpt Zendpt CycReduc;
FORMAT (real)       UF UF1;
FORMAT (TOOL)       OffLen OffDia OffFix;
FORMAT (CHARACTER) FlagOffDia FlagOffFix FlagOffLen Zdm ElsFlag sEls SpcFlag;
FORMAT (FEED)       AdjustedFeed ;
*==========================================================================

*-------------------------------------------------------------------------
INTERACTION (SEQUENCING)  "Prog_Num"             Pgn       = 100    ;
INTERACTION (CHARACTER) "Seq(Y/N)"             SeqNum    = "Y"    ;
INTERACTION (SEQUENCING)  "Start_Seq"             SeqStart = 10    ;
INTERACTION (SEQUENCING)  "Increment_Seq"       SeqIncr    = 10    ;
INTERACTION (COORDINATES) "BLK FORM 0.1 X"       BlkForm1X = -76.2 ;
INTERACTION (COORDINATES) "BLK FORM 0.1 Y"       BlkForm1Y = -76.2 ;
INTERACTION (COORDINATES) "BLK FORM 0.1 Z"       BlkForm1Z = -25.4 ;
INTERACTION (COORDINATES) "BLK FORM 0.2 X"       BlkForm2X = 76.2    ;
INTERACTION (COORDINATES) "BLK FORM 0.2 Y"       BlkForm2Y = 76.2    ;
INTERACTION (COORDINATES) "BLK FORM 0.2 Z"       BlkForm2Z = 0.0    ;
INTERACTION (CHARACTER) "Divide_G-Code(N/Y)"    DivideFlag  = "N"    ;
INTERACTION (CHARACTER) "Path_Save(No:-1)"    sDrive    = "e:\" ;
INTERACTION (CHARACTER) "DeBug_Post(N/Y)"       DeBugFlag = "N"    ;
*-------------------------------------------------------------------------
*
identical x_curpos x_endpt;
identical y_curpos y_endpt;
*
*---- Interaction var
non_modal Pgn SeqNum SeqStart SeqIncr Comm1 SpcFlag FlagZdm Zdm
FlagOffLen OffLen  FlagOffDia OffDia FlagOffFix DivideFlag
OffFix DeBugFlag ArcFlag ElsFlag sEls BlkForm1X BlkForm2X
BlkForm1Y BlkForm2Y BlkForm1Z BlkForm2Z sDrive;
*---- System Var
non_modal i_origin j_origin k_origin i_coord j_coord k_coord post_name
part_name tp_name diameter_ proc_name leng_comp pfm_units
x_origin x_mach y_origin y_mach z_origin z_mach next_tool
x_home y_home z_home cyc_clear cyc_depth cyc_dzinit cyc_retr cyc_dwell;

*---- Local Var
non_modal Xi Yj SPC OffsetLen OffsetDia OffsetFix Xendpt Yendpt MoveNum
         FirsTool FlagTool FlagCool Xlast Ylast Zlast FlagBeginLine Clr
      Depth Zinit NumTool NexTool FlagSpin UF UF1
      FlagCircle Total AdjustedFeed;

*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
NEW_LINE_IS $ ;
if_set(SeqNum _eq_ "Y")
if_set (SpcFlag _eq_ "Y")
      output \J "N" Seq SPC ;
else
      output \J "N" Seq;
end_if;
else
      output \J ;
end_if;
Seq = Seq + SeqIncr ;

*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
BEGINNING OF TAPE:
SpcFlag    = "Y" ;
ElsFlag    = "N" ;
sEls       = "*" ;
Zdm       = "N" ;
cyc_dwell = 0.0 ;
OffLen    = 0    ;
OffDia    = 0    ;
OffFix    = 1    ;
FlagOffDia  = "N" ;
FlagOffFix  = "N" ;
FlagOffLen  = "C" ;
FlagZdm    = "N" ;
Comm1    = "None" ;
ArcFlag    = "N" ;
if_set(Zdm _ne_ "N") if_set(Zdm _ne_ "n")
FlagZdm = "Y";
end_if;end_if;
*********************************** For Convert Units
if_set(factor_ _eq_ 1.0)
Gunits = "G71" ;
UserUnits = "Metric";
else
Gunits = "G70" ;
UserUnits = "Inch"  ;
end_if;
if_set(pfm_units _eq_ "INCH")
if_set(UserUnits _eq_ "Inch")
UF1  = 0.039370078 ;
UF = 1.0;
end_if;
if_set(UserUnits _eq_ "Metric")
UF1  = 1.0;
UF = 25.4 ;
end_if;
else
if_set(UserUnits _eq_ "Inch")
UF1  = 0.039370078 ;
UF = 0.039370078 ;
end_if;
if_set(UserUnits _eq_ "Metric")
UF1  = 1.0;
UF = 25.4 ;
end_if;
end_if;
*********************************** For Convert Units
SPC       = " ";
Seq       = SeqStart;
FlagCool = 0;
FirsTool = 1;
NumTool = 1;
next_tool  = 0;
NexTool = 0;
cyc_clear  = 0.0;
cyc_depth  = 0.0;
cyc_dzinit = 0.0;
****************************************
*******<<< OutPut CMD File >>>**********
****************************************
***<<< Begin >>>****
*=======================================
* OutPut To Cmd Win Version
*=======================================
if_set(sDrive _ne_ "-1")
print0 \j "copy " part_name "." tp_name "." post_name " " sDrive "\" tp_name ".hnc" ;
else
print0 \j "copy " part_name "." tp_name "." post_name " " tp_name ".hnc" ;
end_if;
if_set(sDrive _ne_ "-1")
print0 \j "copy " part_name "." tp_name ".tools "  sDrive "\" tp_name ".too" ;
else
print0 \j "copy " part_name "." tp_name ".tools "  tp_name ".too" ;
end_if;
print0 \j "del *." post_name;
print0 \j "del *.txt" ;
print0 \j "del print0.bat" ;
***<<< End >>>****

******************************************
*******<<< OutPut Begin Tape >>>**********
******************************************
***<<< Begin >>>****
BlkForm1X = BlkForm1X * UF1;
BlkForm1Y = BlkForm1Y * UF1;
BlkForm1Z = BlkForm1Z * UF1;
BlkForm2X = BlkForm2X * UF1;
BlkForm2Y = BlkForm2Y * UF1;
BlkForm2Z = BlkForm2Z * UF1;
output $ "BEGIN PGM " Pgn " INCH";
output $ "BLK FORM 0.1 Z X" BlkForm1X " Y" BlkForm1Y " Z" BlkForm1Z;
output $ "BLK FORM 0.2 X" BlkForm2X " Y" BlkForm2Y " Z" BlkForm2Z;
Xlast = x_home; Ylast = y_home; Zlast = z_home;
***<<< End >>>****

*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
END OF TAPE :
******************************************
********<<< OutPut END Tape >>>***********
******************************************
***<<< Begin >>>****
output $  "L R F M05";
if_set( FlagCool _eq_ 1)
output "M09" ;
FlagCool = 0;
end_if;
output $ "L R F M02" ;
output $ "END PGM " Pgn " INCH ";

if_set(DivideFlag _eq_ "Y")
print1 \j "( Divid Prog )";
if_set (ElsFlag _eq_ "Y") output sEls ; end_if;
end_if;
***<<< End >>>****

*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
BEGINNING OF TLPATH:
if_set(DivideFlag _eq_ "Y")
set_on cut_file;
end_if;
if_set(DeBugFlag _eq_ "Y")
output \j ";( <<< BEGINNING OF PROC = " tp_name " >>> )" ;
if_set (ElsFlag _eq_ "Y") output sEls ; end_if;
end_if;

*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
BEGINNING OF PROC:
FlagSpin = 0;
MoveNum  = 0;
if_set(DeBugFlag _eq_ "Y")
output \j ";( <<< BEGINNING OF PROC = " proc_name " >>> )" ;
if_set (ElsFlag _eq_ "Y") output sEls ; end_if;
end_if;

wszgr2006 · 发表于 2007-8-7 14:30:29

怎么没有看到解答呀

:L :L

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

通知

[已解决] 大家帮我看看这个后处理怎么改成公制的,谢谢~~

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块