可将forward生成 的TXT转换成las,软件方便快捷，可用。
objXL.Columns(1).ColumnWidth = 10;
objXL.Columns(2).ColumnWidth = 10;
objXL.Columns(3).ColumnWidth = 10;
objXL.Columns(4).ColumnWidth = 10;
objXL.Cells(2, 1).Value = "砂岩";
objXL.Cells(2, 2).Value = "泥岩";
objXL.Cells(2, 3).Value = "灰岩";
Float vSha=0, vNi=0, vGai=0, val=0, vtem;
Object v =GetTrace(name);
for(int i = 0; i < v.LayerCount; i++) {
object vv = v.GetLayer(i);
if(vv.top >=dep1 && vv.bottom <= dep2) {
if(vv.main>0) {
vtem = vv.bottom - vv.top;
val += vtem;
switch (vv.main) {