Changes between Initial Version and Version 1 of PerlshapefileObj

Timestamp:

Jan 29, 2009, 10:56:57 AM (15 years ago)

Author:

jmckenna

Comment:

--

PerlshapefileObj

@@ +1 @@
+= shapefileObj =
+
+{{{
+#!perl
+$shapefile = new mapscript::shapefileObj('lakes',-1) or die "Unable to open lakes shapefile";
+
+$extents = $shapefile->{bounds};
+
+$numshapes = $shapefile->{numshapes};
+
+$typeno = $shapefile->{type};
+
+$shapefile->add($shape);
+
+This example saves a selected polygon shape into a new shapefile.
+#
+# Open the map.
+my $map = new mapscript::mapObj('your.map');
+#
+# Create the layer object to query.
+my $layer = new mapscript::layerObj($map);
+#
+# Create a new shapefile for the selection set.
+my $newshpf = new mapscript::shapefileObj("$newshpfname",  $mapscript::MS_SHAPEFILE_POLYGON);
+#
+# Set index value for selected shape.
+my $poly = 400;
+#
+# Create a shapefile object for getting queried shape.
+my $shpf = new mapscript::shapefileObj("data_shapefile", -1);
+#
+# Create shape object for storing queried shape.
+my $shp = new mapscript::shapeObj(-1);
+#
+# Retrieve shape into shape object.
+$shpf->get($poly, $shp);
+#
+# Put shape into new shapefile.
+$newshpf->add($shp);
+#
+# Create dbf to go with new.
+@toucherror = system("touch $newshpfname.dbf");
+#
+# Get the extent of the new shapefile.
+my $newrect = $newshpf->{bounds};
+my $newminx = $newrect->{minx};
+my $newminy = $newrect->{miny};
+my $newmaxx = $newrect->{maxx};
+my $newmaxy = $newrect->{maxy};
+#
+# Close new shapefile.
+undef $newshpf;
+}}}
+----
+back to PerlMapScript