编制直线曲线及转角表.pptVIP

第6章 编制直线、曲线及转角表程序设计方法 教学内容： （1） VB调用Excel自动制表的基本原理与技术支持 （2）编制直线、曲线及转角表所需的设计资料 （3）程序设计方法及流程框图 第6章 编制直线、曲线及转角表程序设计方法 6.1.1 程序功能 根据平面设计的结果自动编制直线、曲线及转角表，并以Excel文件形式保存。 6.1.2 设计资料 本程序需要两个数据文件资料： （1）设计参数资料Sjcszl.dat：路段名称 （2）平面设计结果数据Zqzbsj.dat 6.1.3 自动制表程序设计常用方法 6.2 VB调用Excel自动制表的基本原理与技术支持 基本原理： 使用VB的ActiveX部件，获取对Excel进行操作的控制句柄，直接控制Excel的一系列操作。 Activex部件简称为部件，是一段可重复使用的编程代码和数据，它是由Activex技术所创建的由一个或多个对象组成的。使用Activex部件，可以使VB应用程序具有Excel一样的分析和计算功能。 6.2.2 用VB创建外部EXCEL对象 6.3 编制直线、曲线及转角表程序设计方法与步骤 6.3.1 控制窗体设计 6.3.2 程序设计流程框图 6.3 编制直线、曲线及转角表程序设计方法与步骤 6.3.1 控制窗体设计 6.3 编制直线、曲线及转角表程序设计方法与步骤 6.3.1 控制窗体设计 6.3.2 程序设计流程框图 Dim xlApp As Excel.Application Private Sub Command1_Click() Dim path As String path = Text1.text Open path + \sjcszl.dat For Input As #1 Input #1, ldmc Close FileCopy App.path + \直线、曲线及转角表.xls, path + \zjb.xls“ Open path + \zqzbsj.dat For Input As #3 Dim xlApp As Excel.Application Private Sub Command1_Click() Dim path As String path = Text1.text Open path + \sjcszl.dat For Input As #1 Input #1, ldmc Close FileCopy App.path + \直线、曲线及转角表.xls, path + \zjb.xls“ Open path + \zqzbsj.dat For Input As #3 Row = 38 ：hs = 0：pg = 0 Do While Not EOF(3) If Row 36 Then Cells(38+hs,1).Select ActiveSheet.Paste ‘粘贴空表 Row = 8 ：hs = hs + 37 ：pg = pg + 1 For i = 7 To 36 xlApp.Rows(i + hs).RowHeight = 19 Next i End If Input #3, num, qxlx, jd, pj_r, r, ls, ls2, t, t2, l, e, j, zh, hy, qz, yh, hz, zxjl, jdjl, fwj If qxlx = 1 Then Input #1, jda, pja_r, jdb pj_dms = rad_dms(Abs(pj_r)) fwj_dms = rad_dms(fwj) 弧度化度分秒 If Sgn(pj_r) = 1 Then pj_dms = 右 + pj_dms Else pj_dms = 左 + pj_dms End If zh_s = km_lcz(zh) ： hy_s = km_lcz(hy) qz_s = km_lcz(qz) ： yh_s = km_lcz