用vb实现道路断面测量数据的提取与图形绘制（Implementation of Road intersection measurement data extraction and graph drawing using VB）.docVIP

用vb实现道路断面测量数据的提取与图形绘制（Implementation of Road intersection measurement data extraction and graph drawing using VB） “数据提取过程开始私有子command1_click() opendlg。过滤器=“高程文件*。肺| *。肺”打开测量文件 opendlg.showopen filenamel = LTrim（RTrim（opendlg美元美元。文件名）） Text文本= filenamel。 如果filenamel =“”然后嘟嘟：Exit Sub 温度= instrrev（filename1，“，”） tempfile =左（filenamel、温度）和“txt” 输入为1开filenamel # “如果瓦迩（饰$（中文本））＜0 Exit Sub do而不是EOF（1） 线路输入# 1美元，chenl 如果InStr（chenl $，$） 0、缬氨酸（chenstrl（chenl $））= Val（装饰$（中文本））然后判断是”与编码美元” N = Val（chenstrl（chenstr2（chenl $））） ReDim cbNumber（n，3）为双 cbstring =“”：cbcount = 0 我= 1到n的把数据调入数组 线路输入# 1美元，chenl 如果InStr（UCase（chenstrl美元（ehenl $）），“K”）然后cbcount =我：cbstring = chenstrl（chenl美元） 中文同义词（I，0）= Val（chenstrl（chenstr2（chenl $））） 中文同义词（I，1）= Val（chenstrl（chenstr2（chenstr2（chenl $）））） 中文同义词（I，2）= Val（chenstrl（chenstr2（chenstr2（chenstr2（chenl )))))美元 如果我cbcount = 0 = N，然后显示编码错误。请检查中心桩编号”：Exit Sub 下一个我 打开tempfile追加为2把数据计算后写入数据文件# 打印# 2，cbstring 打印# 2，“0”格式（中文同义词（cbcount美元，2）、“0”） 对于i = 1到n 如果我cbcount然后 cbdist = sqr（（中文同义词（I，0）-（cbcount玻纤，0））*（中文同义词（I，0）-（cbcount玻纤，0））+（中文同义词（I，1）-（cbcount玻纤，1））*（中文同义词（I，1）-（cbcount中文同义词，1））） 如果我有cbcount然后打印# 2、格式（cbdist美元，“0”），格式为（中文同义词（I，2），“0”） 如果我cbcount然后打印格式（cbdist # 2美元，0美元），格式（中文同义词（I，2），“0”） 最后如果 下一个我 近2 # 擦除范围 最后如果 环 近1 # 结束的数据提取过程结束 私有函数chenstrl（ByVal ChR1）的字符串空格前的字符函数 chenchr = LTrim（RTrim美元美元（ChR1）） 如果InStr（chenchr，”） 0 SPL =仪器（chenchr，”） chenstrl =左（chenchr，SPL - 1） 最后如果 端功能 私有函数chenstr2（ByVal ChR1）为字符串的实现截取字符串空格后的字符函数 chenchr = LTrim（RTrim美元美元（ChR1）） numl = len (chenchr) if instr (chenchr, ) 0 then spl = instr (chenchr, ) chenstr2 = right (chenchr, numl (sp1) end if end function private sub command2 _ click () 断面绘制过程开始 chen3 as string dim dim acadapp as acadapplication on error resume next set acadapp = getobject() (, autocad.application) if err then err. clear set acadapp = createobject (autocad.application) if err then msgbox err. description exit sub end if end if dim acaddoc as acaddocument set acaddoc = acadapp.activedocument di