dim projection
Set projection = CreateObject(\"NCMacro.NetcadProjection\")
projection.GetFromCurrentProject
sabangul_ts.WriteLine projection.GetAsWKT
sabangul_ts.WriteLine projection.GetAsEPSG
sabangul_ts.WriteLine projection.Datum
sabangul_ts.WriteLine projection.Zone
sabangul_ts.WriteLine projection.ProjectionType