Get/Set
The Projection property provides access to the Projection used in this ProjectedCoordSys.
Private Sub GeoCalcNET_ProjectedCoordSys_Projection(ByVal cs As GeoCalcNET.ProjectedCoordSys, ByVal data As GeoCalcNET.DataSourceComponent)
Dim p As GeoCalcNET.Projection = cs.Projection
cs.Projection = New GeoCalcNET.Projection(GeoCalcNET.Projection.ClassType.TransverseMercator, cs.Datum)
If cs.Projection.Parameters.Exists("central_meridian") Then
Dim av As New GeoCalcNET.AngularValue
av.InDegrees = 147
cs.Projection.Parameters.AngularItem("central_meridian") = av
End If
If cs.Projection.Parameters.Exists("latitude_of_origin") Then
Dim av As New GeoCalcNET.AngularValue
av.InDegrees = 0
cs.Projection.Parameters.AngularItem("latitude_of_origin") = av
End If
If cs.Projection.Parameters.Exists("false_easting") Then
Dim lv As New GeoCalcNET.LinearValue
lv.InMeters = 500000
cs.Projection.Parameters.LinearItem("false_easting") = lv
End If
If cs.Projection.Parameters.Exists("false_northing") Then
Dim lv As New GeoCalcNET.LinearValue
lv.InMeters = 0
cs.Projection.Parameters.LinearItem("false_northing") = lv
End If
End Sub
private void GeoCalcNET_ProjectedCoordSys_Projection(GeoCalcNET.ProjectedCoordSys cs, GeoCalcNET.DataSourceComponent data)
{
GeoCalcNET.Projection proj = cs.Projection;
cs.Projection = new GeoCalcNET.Projection(GeoCalcNET.Projection.ClassType.TransverseMercator, cs.Datum);
if(cs.Projection.Parameters.Exists("central_meridian"))
{
GeoCalcNET.AngularValue av = new GeoCalcNET.AngularValue();
av.InUnits = 46.5;
cs.Projection.Parameters.set_AngularItem("central_meridian", av);
}
if(cs.Projection.Parameters.Exists("latitude_of_origin"))
{
GeoCalcNET.AngularValue av = new GeoCalcNET.AngularValue();
av.InUnits = 29.0262683333333;
cs.Projection.Parameters.set_AngularItem("latitude_of_origin", av);
}
if(cs.Projection.Parameters.Exists("false_easting"))
{
GeoCalcNET.LinearValue lv = new GeoCalcNET.LinearValue();
lv.InUnits = 800000;
cs.Projection.Parameters.set_LinearItem("false_easting", lv);
}
if(cs.Projection.Parameters.Exists("false_northing"))
{
GeoCalcNET.LinearValue lv = new GeoCalcNET.LinearValue();
lv.InUnits = 0;
cs.Projection.Parameters.set_LinearItem("false_northing", lv);
}
}