| 主权项 |
一种关于工程勘察剖面图内业整理的方法，其特征在于，该方法包括：对钻孔进行排序，形成钻孔队列；将所述钻孔队列中每相邻前后两个钻孔的土层数据结构进行逐层比对，所述土层数据结构包括：土层底层深度、土层编号、左连和右连、土层名称；根据所述逐层比对的结果判断出土层结构体；将所述土层结构体各个节点的平面位置坐标有序地保存在一数组中；调用所述土层结构体对应的绘制函数，在绘图工具控件中绘制所述土层结构体，其中包括：根据所述数组中保存的所述土层结构体各个节点的平面位置坐标，在绘图工具控件中绘制所述土层结构体对应的封闭曲线；根据所述土层结构体的岩性描述，对所述封闭曲线进行填充；所述逐层比对包括：在开始逐层比对时，前后钻孔的顶层直接相连，调用函数AddlineT()；如果前钻孔的当前土层数据结构体的土层名称不为空，或者后钻孔的当前土层数据结构体的土层名称不为空时，尚有土层，需继续比对；如果前钻孔的当前土层结构体的右连不是“J”也不是“E”，而且后钻孔的当前土层结构体的左连不是“J”也不是“E”，调用函数AddlineT()；“J”表示尖灭、上尖和下尖；“E”表示最后一层；如果前钻孔的当前土层结构体的右连不是“J”也不是“E”，而且后钻孔的当前土层结构体的左连是“J”；如果前钻孔的当前土层结构体的土层编号不等于后钻孔的当前土层结构体的土层编号，右上尖，调用AddlineF1()；否则如果后钻孔当前第二个土层结构体的左连不是“J”而且不是“E”,第一次右下尖，调用AddlineF2()；否则如果后钻孔当前第二个土层结构体的左连是“J”；如果后钻孔当前第三个土层结构体的土层编号等于前钻孔当前土层结构体的土层编号，右尖灭，调用AddlineJ1()；否则如果后钻孔当前第三个土层结构体的左连不是“J”而且不是“E”,第二次右下尖，调用AddlineF2()；否则如果后钻孔当前第三个土层结构体的左连是“J”；如果后钻孔当前第四个土层结构体的土层编号等于前钻孔当前土层结构体的土层编号，右双尖灭，调用AddlineJ2()；否则第三次右下尖，调用AddlineF2()；如果后钻孔的当前土层结构体的左连不是“J”也不是“E”，而且前钻孔的当前土层结构体的右连是“J”；如果前钻孔的当前土层结构体的土层编号不等于后钻孔的当前土层结构体的土层编号，左上尖，调用AddlineF1()；否则如果前钻孔当前第二个土层结构体的右连不是“J”而且不是“E”,第一次左下尖，调用AddlineF2()；否则如果前钻孔当前第二个土层结构体的右连是“J”；如果前钻孔当前第三个土层结构体的土层编号等于后钻孔当前土层结构体的土层编号，左尖灭，调用AddlineJ1()；否则如果前钻孔当前第三个土层结构体的右连不是“J”而且不是“E”,第二次左下尖，调用AddlineF2()；否则如果前钻孔当前第三个土层结构体的右连是“J”；如果前钻孔当前第四个土层结构体的土层编号等于后钻孔当前土层结构体的土层编号，左双尖灭，调用AddlineJ2()；否则第三次左下尖，调用AddlineF2()；如果前钻孔的当前土层结构体的右连和后钻孔的当前土层结构体的左连都是“J”；如果前钻孔当前土层结构体土层底层深度大于等于后钻孔当前土层结构体土层底层深度；如果前钻孔当前土层结构体的土层编号不等于后钻孔当前土层结构体的土层编号，左上尖，调用AddlineF1()；否则如果前钻孔当前第二个土层结构体的右连不是“J”而且前钻孔当前土层结构体的右连不是“E”，第一次左下尖，调用AddlineF2()；否则如果前钻孔当前第二个土层结构体的右连是“J”；如果前钻孔当前土层结构体的土层编号等于前钻孔第三个土层结构体的土层编号，左尖灭，调用AddlineJ1()；否则如果前钻孔当前第三个土层结构体的右连不是“J”也不是“E”，第二次左下尖，调用AddlineF2()；否则如果前钻孔当前第二个土层结构体的右连是“J”；如果前钻孔当前土层结构体的土层编号等于前钻孔当前第四个结构体的土层编号，左双尖灭，调用AddlineJ2()；否则第三次左下尖，调用AddlineF2()；否则如果前钻孔当前土层结构体的土层编号不等于后钻孔当前土层结构体的土层编号，右上尖，调用AddlineF1()；否则如果后钻孔当前第二个土层结构体的左连不是“J”也不是“E”，第一次右下尖，调用AddlineF2()；否则如果后钻孔当前第二个土层结构体的左连是“J”；如果后钻孔当前土层结构体的土层编号等于后钻孔第三个土层结构体的土层编号，右尖灭，调用AddlineJ1()；否则当后钻孔当前第三个土层结构体的左连不是“J”也不是“E”，第二次右下尖，调用AddlineF2()；否则如果后钻孔当前第二个土层结构体的左连是“J”；如果后钻孔当前土层结构体的土层编号等于后钻孔当前第四个结构体的土层编号，右双尖灭，调用AddlineJ2()；否则第三次右下尖，调用AddlineF2()。 |
