Good Night, I actualized the script (for a final project of my class LIDAR) ExplodeLASMultipoint for Visual Studio 2010 .Net and now I have an error in the lines with smiles: For i = 0 To pPC.PointCount - 1 pPC.QueryPoint(i, pPoint) Dim X As Double X = pPoint.X Dim Y As Double Y = pPoint.Y If (X >= pEnv.XMin) And (X <= pEnv.XMax) And (Y >= pEnv.YMin) And (Y <= pEnv.YMax) Then 😄 pOutFBuf.Shape = pPoint pOutFBuf.Value(lSpotInx) = pPoint.Z 😄 If (bHasBlobFields) Then For j = 0 To pOutFieldInx.Count - 1 pBlob = pBlobs.Element(j) pOutFBuf.Value(pOutFieldInx.Element(j)) = pBlob.GetValue(pPoint.ID) Next j End If pOutFCur.InsertFeature(pOutFBuf) End If Next i Can someone help me?
... View more