hi, i have some lidar las files (ground point only)
and each one have draw some breakline (*.BLN)
i hope to grid them with las point and BLN
i got a grid.bas running well, from LAS to GRD , as follow
but i have no idea about the automation script to add a breakline ?
'Gets the existing Surfer instance. If Surfer isn't open, it opens it.
On Error GoTo createnew
Set SurferApp = GetObject(, "Surfer.Application")
On Error GoTo 0
Set SurferApp = CreateObject("Surfer.Application")
SurferApp.Visible = False
'Specifies the file path where the data file to grid resides
path1 = "D:\las\"
'Specifies the data file
infile1 = path1+"aaa_ground.las"
'Specifies the file to save the output grid to
outfile1 = path1+"aaa_Kriging.grd"
'Specifies the grid spacing
gridspacing = 5
'Grids the data with kriging
SurferApp.GridData4(DataFile:=infile1, xSize:=gridspacing, ySize:=gridspacing, Algorithm:=2, Outgrid:=outfile1)
Please sign in to leave a comment.