POST
|
Hi Luc, You have to create a LAS dataset with the new "Create LAS Dataset" tool. You'll find this in 3D Analyst Tools / Data Management / LAS Dataset (or just do a search for "LAS Dataset"). You are not able to add LAS files to ArcMap or ArcScene directly, but after you create the LAS Dataset you're good to go. You may also be interested in this Esri video where native support for Lidar is explained by Nathan Shephard: http://video.esri.com/watch/454/native-support-for-lidar Good luck! Kind regards, Hi Xander, Thanks for the reply. I found out how to deal with it with some help from esrinl how to create the LASD. Now I am going to watch the video :). regards Luc
... View more
11-13-2011
05:20 AM
|
0
|
0
|
8676
|
POST
|
There are several websites that provide LAS files. I have tested ArcScene 10.1 beta with some of the LAS files located at http://liblas.org/samples/. LAS file "2398_400.las" contains RGB values. Alternatively, you could use software to convert your text files to LAS. I have installed LP360 (30 day evaluation) and it can convert text files (like PTS) to LAS. Make sure to choose LAS version 1.2 in LP360 to enable RGB. Good luck! Hi Xander, I downloaded the file to experiment with. I seem to be unable to load *.las (v1.2) in ArcScene (and toolboxes). Could you tell me how to do this? Thanks in advance. regards Luc
... View more
10-16-2011
05:45 AM
|
0
|
0
|
8676
|
POST
|
Hi, I have an autonumber script that worked fine in ArcPad 7 with shapefiles. Now I am trying to get this script to work in ArcPad 10 wihtin an AXF. As you allready can imagine it gives an error, otherwise I would not create a new thread ;). The script I am trying to use: Option Explicit Sub autonumber 'Do any form initialization in this sub Dim objEFPageOneControls, objEditForm Set objEditForm = ThisEvent.Object Set objEFPageOneControls = objEditForm.Pages("form").Controls 'Initialization for form in any mode 'Disable the Tree ID edit box objEFPageOneControls("txtElmId").Enabled = False 'Initialization for form when adding new records If objEditForm.Mode = 3 Then 'Initialize DATE to current date objEFPageOneControls("dtpDate").Value = Now 'Get the City Trees layer's recordset (to pass into the ReturnNextID function) Dim objCityTreesRS Set objCityTreesRS = Layer.Records 'Update the Tree ID objEFPageOneControls("txtElmID").Value = ReturnNextID (objCityTreesRS, "ElmID") End If 'Free objects Set objEFPageOneControls = Nothing Set objEditForm = Nothing Set objCityTreesRS = Nothing End Sub Function ReturnNextID (objRS, strFieldName) Dim intMax 'Get the first record objRS.MoveFirst 'Initialize the max value to the first record intMax = CInt(objRS.Fields(strFieldName).Value) 'Loop through the records, updating the max value if necessary Dim intCurrVal While Not objRS.EOF intCurrVal = CInt(objRS.Fields(strFieldName).Value) If (intCurrVal > intMax) Then intMax = intCurrVal End If objRS.MoveNext Wend ReturnNextID = intMax + 1 End Function It gives an script error 800A000D I really like to get this to work under 10. For many applications an own auto numbering is needed. Kind regards, Lucien
... View more
04-06-2011
01:31 AM
|
0
|
1
|
2886
|
Online Status |
Offline
|
Date Last Visited |
11-11-2020
02:23 AM
|