topic Re: How to change a layer's symbology using VBscript in ArcPad Questions

How to change a layer's symbology using VBscript

DanikBourdeau — Thu, 16 May 2013 03:42:49 GMT

I can't seem to figure out how to manipulate a layers symbology using VBscript. In my code below I'm creating a new polyline shapefile and then adding it to the map (along with a new feature). I want to set a specific colour for this layer, how would I go about doing so?

Set TrackRS = CreateAppObject("recordset") lnShape = Preferences.Properties("DataPath") & "\TracksShape\TrackLog" & TrackDte & ".shp" TrackRS.Create lnShape, 3, Application.Map.CoordinateSystem TrackRS.Fields.Append "Length", 5  Set TrackShape = Map.AddLayerFromFile(lnShape) If TrackShape Is Nothing then exit sub TrackShape.Editable = true TrackShape.Records.AddNew ln TrackShape.Records.Update  Map.Extent = TrackShape.Extent Map.Refresh True

Thanks,

Re: How to change a layer's symbology using VBscript

ThaiTruong — Thu, 16 May 2013 19:28:10 GMT

Looks like you need to create a layer definition file (apl), name it to the same name with the shapefile, and write it to the same location with the shapefile. It's just a simple XML file like this:

<ArcPad>  <LAYER>   <SYMBOLOGY>    <SIMPLERENDERER>     <SIMPLELINESYMBOL width='1' color='blue'/>    </SIMPLERENDERER>   </SYMBOLOGY>   <SYSTEMOBJECTS/>  </LAYER> </ArcPad>

You need to create this XML file before adding the layer to your map (Set TrackShape = Map.AddLayerFromFile(lnShape))

Hope this helps!

Re: How to change a layer's symbology using VBscript

DanikBourdeau — Fri, 17 May 2013 01:25:06 GMT

Thanks Thai, I figured it had something to do with that.

I do find it strange though, that I can't manipulate the symbology of a layer directly through the Map object. I guess what I'll do is create a bunch of dummy apl's and keep them stored on the devices, then whenever I need one I'll just copy and rename it.

Thanks again.