【doc】用VB二次开发CAXA线切割软件

【doc】用VB二次开发CAXA线切割软件 用VB二次开发CAXA线切割软件 经验交流《电加工与模具))2oo3年第3期 用VB二次开发CAXA线切割软件 李志刚 (东风汽车电气公司装备分厂,湖北襄樊441021) CAXA线切割软件的使用Et益普及,其win— dows界面较其他线切割编程软件有很大的优势,但 是它在线切割3B程序打印输出上存在不足.虽然 它有指令校验格式,紧凑指令格式,对齐指令格式, 详细效验格式多种输出方式,但前3种输出格式对 线切割操作工没有提供圆及圆弧的圆心坐标,半径 信息,虽然第4种输出格式提供此类信息,但格式烦 琐不利于查验,且浪费打印纸.另外,以上4种3B 程序格式打印时,使用Windows操作系统下的记事 本,每次打印都需设置页面信息,影响工作效率. 利用VB二次开发的CAxA线切割软件,可打 印出类似AUTOP生成的3B程序,不仅提供圆及圆 弧的圆心坐标,半径信息,每条程序只占一行,简洁, 节约,而且能和CAxA线切割V2无缝集成. 例如:加工一个边长为40mm,RlOmm过渡正 方形,改进前后的3B程序对比效果如下. (1)改进前 *********************** CAXAWEDM—Version2.0,Name:四边形.3B ConnerR=0.00000,OffsetF:0.00000,Length= 187.553mm *********************** StartPoint=0.00000,0.00000:X,y N1:B20000B10000B20000GXL1 (直线起点:0.0000,0.0000) (终点:20.0000,10.0000) N2:B0B20000B20000GYL4 (直线起点:20.0000,10.0000) (终点:20.0000,一10.0000)N3:B10000B0B 10000GXSR4 (圆弧起点:20.0000,一10.0000) (终点:10.0000,一20.0000) 收穑日期:2003—03—04 (圆心:10.0000,一10.0000) (半径:10.0000) N4:B20000B0B20000GXL3 (直线起点:10.0000,一20.0000) (终点:一10.0000,一20.0000) N5:B0B1OOooB1OOooGYSR3 (圆弧起点:一10.0000,一20.0000) (终点:一20.0000,一10.0000) (圆心:一10.0000,一10.0000) (半径:10.0000) N6:B0B20000B20000GY1.2 (直线起点:一20.0000,一10.0000) (终点:一20.0000,10.0000) N7:B10000B0B10000GXSR2 (圆弧起点:一20.0000,10.0000) (终点:一10.0000,20.0000) (圆心:一10.0000,10.0000) (半径:10.0000) N8:B20000B0B20000GXL1 (直线起点:一10.0000,20.0000) (终点:10.0000.20.0000) N9:B0B10000B10000GYSR1 (圆弧起点:10.0000,20.0000) (终点:20.0000,10.0000) (圆心:10.0000,10.0000) (半径:10.0000) N10:B20000B10000B20000GXL3 (直线起点:20.0000,10.0000) (终点:0.0000,0.0000) N11:FF (2)改进后 WeIcomeHsecut321at03—5—2112:01:30 ****************al-****** CAXAwEDM—Version2.0,Name:四边形.3B ConnerR=0.00000,OffsetF:0.00000,Length: 187.553mm ****************al-****** StartPoint=0.00000,0.00000;X,Y N1:B20000B10000B20000GXL1(20.0000. 3结束语 采用Pro/E软件编制了某游戏机手柄模具的数控 加工程序,并将高速加工策略应用于半精加工和精加 工,大大提高了该模具的生产效率和加工质量.通过 该模具的)~n-r编程可看出,制定)~n-rI艺时必须根据 模具的具体几何特征,综合考虑工序阶段的划分,)~n-r 对象(铣削窗口与铣削 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 面等)与)~n-r方式的选择,走 刀路线以及刀具与切削参数的设置等各种因素. 一59— <电加工与模具)2003年第3期经验交流 10.0000). N2:B0B20000B20000GYL4(20.0000, 一 10.0000) N3:Bl0o00B0B10000GXSR4(10.0000, 一 20.oooo)(1o.0000,一10.oooo)(1o.oooo) N4:B20o00B0B20000GXL3(一l0.0000, 一 20.0000) N5:B0B10000B10000GYSR3(一20.0000, 一 10.0000)(一10.0000,一10.oooo)(1o.0000) N6:B0B20000B20000GYL2(一20.0000, 10.0000) N7:B10000B0B10000GXSR2(一10.0000, 20.0000)(一10.0000,10.0000)(10.0000) N8:B20000B0B20000GXLl(10.0000, 20.oooo) N9:B0B10000B10000GYSRl(20.0000, 10.0000)(10.0000,10.0000)(10.0000) Nl0:B20000B10000B20000GXL3(0.0000, 0.0000) Nll:FF VB6.0程序开发过程:在VB6.0中新建一个工 程,设置form1.Visible=False等相关对象的属性, 添加CommonDialog控件,加入程序. 源程序如下: DimLinesFromFile,NextLine,b,mmm,Dal,TilAs String,aAsInteger OptionExplicit PtivateSubForm.Load() CommonDialogI.CancelErrorTrue OnEITorGoTOErrHandler CommonDialog1.Filter:”AllFileS(*.*)l*.*l Text.FileS(*.txt)l*.txtlText.FileS(*.3b)l*.3b” CommonDialogI.Filterlndex=3 CommonDialogI.ShowOpen b=CommonDialogI.FileName OpenbForInputAs#l DoUntilE0F(1)’ LineInput#1.NextLine IfMid(NextLine,40,1)=…LThen a=l LinesFtomFile=LinesFromFile+NextLine ElseIfMid(NextLine,40,1)=“R”Then LinesFromFileLinesFromFlie+NextLine EI鸵IfMid(NextLine,9,2)=“圆弧”Then a=3 LinesFromFile=LinesFmmFih+”f”+Mid (NextLine,41,22) Else SelectCasea Casel IfMid(NextLine,8,1)=…FThen LinesFromFileLinesFmmFile+NextLine+Chr(13) +Chr(10) 一 60一 Else LinesFromFile=LinesFromFile+”(“+Mid (NextLine,4l,22)+Chr(13)+Chr(10) EndIf Case3 lfMid(NextLine,8,1)=…FThen LinesFromFileLinesFromFile+NextLine+Chr(13) +Chr(10) Else LinesFromFile=LinesFromFile+”(“+Mid (NextLine,16,22)+”(“+Mid(NextLine,43,12)+ Chr(13)+Chr(10) EndIf CaseElse LinesFromFile=LinesFromFile+NextLine+Chr(13) +Chr(1o) EndSelect EndIf Loop Open”C:\b.txt”ForOutputAs#2 Dal=CStr(DateTime.Date) Til=CStr(DateTime.Time) mmm=“Welcomeusecut32lat” Write#2,mmm+…’+Dal+Til+Chr(13)十 Chr(10)+LinesFromFile Printer.TrackDefault=True Ptinter.FontSizell Printer.PaperSize256 Printer.ScaleLeft=0 Printer.ScaleTop=0 Printer.Print”WelcomeuSecut32lAT”十Dal+”一 一 “+Til+Chr(13)+Chr(10)+LinesFromFile Printer.NewPage Ptinter.EndDoe Close#l Close#2. ErrHandler: UnloadMe EndIf EndSub 把以上程序经VB编译生成CUT321.EXE,此 程序加入CAxA线切割的应用程序管理器中,在 CAXA线切割的工具菜单下生成快捷打印命令.此 程序是对LxA线切割生成的详细校验格式3B程 序进行二次编辑,然后直接打印输出,不需进行页面 之类的打印设置,打印格式美观,加工信息数据详 细.另外,具有编制程序的日期和时间,便于复查. 打印完毕后打印机不会自动换纸,便于继续进行下 一 个程序的打印. 以上程序是在Windows98和VB6.0下开发完 成的,实际使用非常方便.