Infrastructure Modeling DevBlog

AutoCAD FIELD Expression to display Lat/Long value as Text

By Partha Sarkar

What FIELD Expression should I use to show the Lat/Long value of a Point object in a DWG file in AutoCAD Map 3D which has an assigned coordinate system ? 

Here is an example of a 'FIELD Expression' you can use to how the Lat/Long value as Text in AutoCAD Map 3D -

%<\AcObjProp Object(%<\_ObjId 8796087804352>%).Coordinates \f "%lu6">%

 

Mark errors when doing mapclean in Map 3D

By Daniel Du

In Map 3D map clean tool, it marks the errors it finds.Here is an example to demonstrate how to use do it with API:

[CommandMethod("clean")]
public void DrawingCleanUp()
{
    string sGroupKeyword = "GROUP";
    string sErrorKeyword = "ERROR";
    string sYes = "YES";
    string sNo = "NO";

    int iGrpErrCnt = 0;
    Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;

    Autodesk.Gis.Map.Topology.Variable cadAction =
        new Autodesk.Gis.Map.Topology.Variable();
    cadAction.LoadProfile(@"C:\MapCleanDemo\myClean.dpf");

    PromptKeywordOptions pkoCleanupType =
        new PromptKeywordOptions("Cleanup Type:");
    pkoCleanupType.Keywords.Add(
        sGroupKeyword, sGroupKeyword, sGroupKeyword, true, true);
    pkoCleanupType.Keywords.Add(
        sErrorKeyword, sErrorKeyword, sErrorKeyword, true, true);
    pkoCleanupType.AllowNone = true;

    PromptKeywordOptions pkoFixError = new PromptKeywordOptions("Fix?");
    pkoFixError.Keywords.Add(sYes, sYes, sYes, true, true);
    pkoFixError.Keywords.Add(sNo, sNo, sNo, true, true);
    pkoFixError.AllowNone = true;

    PromptResult pres = ed.GetKeywords(pkoCleanupType);
    if (pres.Status != PromptStatus.Cancel)
    {
        using (Autodesk.Gis.Map.Topology.TopologyClean cadCleanobj
            = new Autodesk.Gis.Map.Topology.TopologyClean())
        {
            cadCleanobj.Init(cadAction, null);

            cadCleanobj.Start();
            cadCleanobj.GroupNext();
            if (pres.StringResult.ToUpper().Equals(sErrorKeyword))
            {
                while (!cadCleanobj.Completed)
                {
                    iGrpErrCnt = cadCleanobj.GroupErrorCount;

                    ed.WriteMessage("\nGroup Error Count: " + iGrpErrCnt);
                    ed.WriteMessage("\n* Iterating over Errors.");

                    for (int i = 0; i < iGrpErrCnt; i++)
                    {
                        cadCleanobj.ErrorCur(i);
                        ed.WriteMessage("\n* Current Error (X: "
                            + Math.Round(cadCleanobj.ErrorPoint.X, 2)
                            + " Y: " + Math.Round(cadCleanobj.ErrorPoint.Y, 2) + ")");
                        cadCleanobj.ErrorDraw();

                        if (ed.GetKeywords(pkoFixError).StringResult.ToUpper().Equals(sYes))
                            cadCleanobj.ErrorFix();
                        else
                            cadCleanobj.ErrorMark();
                    }

                    cadCleanobj.GroupNext();
                }
            }
            else if (pres.StringResult.ToUpper().Equals(sGroupKeyword))
            {
                ed.WriteMessage("\nGroup Cleanup");
                ed.WriteMessage("\n* Iterating over Groups.");
                while (!cadCleanobj.Completed)
                {
                    iGrpErrCnt = cadCleanobj.GroupErrorCount;

                    ed.WriteMessage("\nGroup Error Count: " + iGrpErrCnt);

                    cadCleanobj.GroupDraw();

                    if (ed.GetKeywords(pkoFixError).StringResult.ToUpper().Equals(sYes))
                        cadCleanobj.GroupFix();
                    else
                        cadCleanobj.GroupMark();

                    cadCleanobj.GroupNext();
                }
            }
            else
                ed.WriteMessage("\n" + pres.StringResult + " is not a valid option.");

            cadCleanobj.End();
        }
    }
}

ODTables.Item(tableName) does not work on Windows7/Vista?

By Daniel Du

Issue

I am migrating my Map 3D VBA application to .NET, but when I call ODTables.Item(strTableName), it always crashes AutoCAD on Windows 7/Vista, and it works well on WinXP.

Solution

You can use following workaround on Windows 7/Vista to solve this problem:

VB.NET:

<code_begin>
    Dim ODTbl As AutocadMAP.ODTable
    ODTbl = Nothing
    For index = 0 To ODTbls.Count - 1
       Debug.WriteLine( ODTbls.Item(index).Name.ToString())
       If (ODTbls.Item(index).Name.ToString() = TargetTable) Then
            ODTbl = ODTbls.Item(index)
        Exit For
       End If
    Next

<code_end>

VBA code:

<code_begin>
Public Sub GetMapApp()
Dim amap As AcadMap
Dim tbl As ODTable
Dim tbls As ODTables
Set amap = ThisDrawing.Application.GetInterfaceObject("AutoCADMap.Application")
Debug.Print amap.Projects.Count 

'' workaround
Set tbls = amap.Projects(ThisDrawing).ODTables

If (tbls.Count) > 0 Then
For Each tbl In tbls
If tbl.Name = "Building" Then ‘ set OD Table name here as per your data
Debug.Print tbl.Name
End If
Next
End If

End Sub

<code_end>

Is there a .NET equivalent for ade_projentityforward ?

By Partha Sarkar

ade_* functions are not exposed in the .NET API. We can work around this by defining a LISP command and calling ade_* function in it and then in .NET application invoke the command defined in LISP. See the bellow codes.

(defun c:LispADE ()
(setq cscode (ade_projgetwscode))
(if (= cscode null)
(progn
(alert "Error in getting current coordinate system!")
(exit)
)
)
(setq rt (ade_projsetsrc "LL84"))
(if (/= rt t)
(progn
(alert "Error in getting current coordinate system!")
(exit)
)
)

(setq rt1 (ade_projsetdest cscode))
(if (/= rt1 t)
(progn
(alert "Error in setting destination coordinate system!")
(exit)
)
)
(setq entdata (car (entsel "select entity:")))
(setq rt2 (ade_projentityforward entdata))
(if (/= rt2 t)
(progn
(alert
"Error in projecting entity to destination coordinate system!"
)
(exit)
)
(alert "ok")
)

)

The .NET invoking code is here:

[CommandMethod("MyADE")]

public void InvokeAdeFun()

{

  Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.SendStringToExecute("LispADE", false, true, false);

}

 

Hope this is useful to you!

 

Creating an AutoCAD Selection set from the Map 3D Platform Selection set (MgSelectionBase)

By Partha Sarkar

I am trying to use the _MAPExtractFeatureGeometry from SendStringToExecute() function and I want to pass in a selection set containing a Feature.

I have used Geospatial Platform API and MgSelectionBase to create a selection set of features which works fine as I could highlight the selected feature. But subsequently when I use  _MAPExtractFeatureGeometry from SendStringToExecute(), I get a response 'there is no selection set'. I am trying to avoid the user intervention to select a feature on screen. How do I create an AutoCAD selection set from the Map 3D Platform Selection set (MgSelectionBase) ?

 

Here is a C# .NET code snippet demonstrating the same –

// Select using API

 

AcMapMap currentMap = AcMapMap.GetCurrentMap();

MgLayerCollection layers = currentMap.GetLayers();

MgLayerBase layer = layers.GetItem("Parcels");

MgFeatureService fs = AcMapServiceFactory.GetService(MgServiceType.FeatureService) as MgFeatureService;

 

string fsId = layer.GetFeatureSourceId();

string className = layer.GetFeatureClassName();

MgFeatureQueryOptions query = new MgFeatureQueryOptions();

// Parcels.shp file is used

query.SetFilter("FeatId = 166");

MgResourceIdentifier resId = new MgResourceIdentifier(fsId);

MgFeatureReader featureReader = fs.SelectFeatures(resId, className, query);

 

MgSelectionBase selectionSet = new MgSelectionBase(currentMap);

 

//Add all features in the feature reader to the newly constructed selection set

selectionSet.AddFeatures(layer, featureReader, 0);

 

AcMapFeatureEntityService.HighlightFeatures(selectionSet);

 

// create an AutoCAD selection

SelectionSet acadSelSet = AcMapFeatureEntityService.AddFeaturesToSelectionSet(null, selectionSet);

 

// force this selection to be the implied selection

Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument

.Editor.SetImpliedSelection(acadSelSet);  

Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument

.SendStringToExecute("_MAPExtractFeatureGeometry ", true, false, true);

 

featureReader.Close();        

 

Hope this is useful to you!

Read FDO Geometry Area using Map 3D Geospatial Platform API

By Partha Sarkar

This blog post is in continuation of my previous post on “Read FDO Features using Map 3D Geospatial Platform API “.  If FDO data has an attribute like “AREA” as shown in the screenshot below, we can access the same using –

String ftrArea = ftrRdr.GetString("AREA");

However, if there is no such attribute or data field in the FDO data, in that case we can use the following approach to access the FDO Geometry and then read it’s Area property as shown in the code snippet below :

//this is just an example; change this according to your FDO data field                         

 

Int32 ftrID = ftrRdr.GetInt32("Autogenerated_SDF_ID");

 

String geomName = mapLayer.GetFeatureGeometryName();

MgByteReader reader = ftrRdr.GetGeometry(geomName);

 

// Convert the AGF binary data to MgGeometry.

MgAgfReaderWriter agfReaderWriter = new MgAgfReaderWriter();

MgGeometry ftrGeometry = agfReaderWriter.Read(reader);

ed.WriteMessage("\n Feature ID :" + ftrID.ToString() + "   " + "Area  : " + ftrGeometry.Area.ToString());  

 

Hope this is useful to you! 

Coordinate Transformation using Map LISP API

By Partha Sarkar

How to use Map LISP function ade_projptforward to achieve coordinate transformation?

Here is a LISP code snippet which demonstrates the same :

;;Coordinate transform with LISP.

(defun c:test (/ result pt)
(ade_projsetsrc "LL")
(ade_projsetdest "ITALY-W-ROME")
(setq result(ade_projptforward '(10.0 20.0 0.0)))
(if(null result)
(prompt "\nError in Transformation ")
)
(princ result)
);

How to apply Coordinate system Transformation using API ?

By Partha Sarkar

Coordinate transformation is converting a coordinate value in one coordinate system into its equivalent in another coordinate system.

 

Here is a code snippet which demonstrates how to apply Coordinate system Transformation :

string mapSRS = AcMapMap.GetCurrentMap().GetMapSRS();

// create MgCoordinateSystemFactory

 

MgCoordinateSystemFactory coordSysFactory = new MgCoordinateSystemFactory();

MgCoordinateSystem coordSys = coordSysFactory.Create(mapSRS);

MgCoordinateSystem wgs84Sys = coordSysFactory.Create("LL84");

 

MgCoordinateSystemTransform transform = null;

transform = coordSysFactory.GetTransform(wgs84Sys, coordSys);

MgCoordinate coord = null;

 

if (transform != null && !double.IsNaN(pnt.Z))

  coord = transform.Transform(pnt.Z, pnt.Y, pnt.Z);

else

  coord = transform.Transform(pnt.X, pnt.Y);   

How to extract all of the coordinate system names from the coordinate system dictionary and check their types?

By Partha Sarkar

The OSGeo.MapGuide namespace contains a set of classes which provide access to the CS-Map coordinate system functionality in both the AutoCAD Map 3D and AIMS environments.

MgCoordinateSystemFactory is used to get the coordinate system categories and the coordinate system catalog. MgCoordinateSystemCatalog is used to get the various dictionaries. MgCoordinateSystemDictionary contains definitions for earth-based and Euclidean coordinate systems.

 

The following code extracts all of the coordinate system names from the coordinate system dictionary, uses those names to get all of the coordinate system definitions from the dictionary and determines the type (projected, geographic, or arbitrary) of the coordinate system from its definition, and stores the name of the coordinate system in a list according to its type. 

//MgCoordinateSystemFactory coordSysFactory = new MgCoordinateSystemFactory();

//MgCoordinateSystemCatalog csCatalog = coordSysFactory.GetCatalog();

//MgCoordinateSystemDictionary csDict = csCatalog.GetCoordinateSystemDictionary();

 

List<string> arbitraryCs = new List<string>();

List<string> geographicCs = new List<string>();

List<string> projectedCs = new List<string>();

 

MgCoordinateSystemEnum csDictEnum = csDict.GetEnum();

 

// the following line gets all of the names in the dictionary

// uses those names to get the coordinate

 

int csCount = csDict.GetSize();

ed.WriteMessage("\nCoordinate System Count : " + csCount.ToString());

ed.WriteMessage("\n-------------------------------------------------");

MgStringCollection csNames = csDictEnum.NextName(csCount);

string csName = null;

MgCoordinateSystem cs = null;

int csType = 0;

for (int i = 0; i < csCount; i++)

{

 csName = csNames.GetItem(i);

 cs = csDict.GetCoordinateSystem(csName);

 csType = cs.GetType();

 if (csType == MgCoordinateSystemType.Arbitrary)

 {

  arbitraryCs.Add(csName);

 }

 else if (csType == MgCoordinateSystemType.Geographic)

 {

  geographicCs.Add(csName);

 }

 else if (csType == MgCoordinateSystemType.Projected)

 {

  projectedCs.Add(csName);

 }         

  ed.WriteMessage("\nCoordinate System Name : " + csName.ToString());

}

Hope this is useful to you !

How do I turn off the "Map Base" Layer using API ?

By Partha Sarkar

I want to switch off the "Map Base" Layer using Map 3D API.

 

 

Here is the C# code snippet to switch off the "Map Base" Layer using Map 3D managed API :

 

using (Transaction trans = transManager.StartTransaction())

{

  ObjectId managerId = DisplayManager.Create(proj).MapManagerId(proj, true);

  MapManager manager = trans.GetObject(managerId, OpenMode.ForRead) as MapManager;

 

  if (manager != null)

  {

    currentmapId = manager.CurrentMapId;

    Map currentMap = trans.GetObject(currentmapId, OpenMode.ForWrite) as Map;

 

    IEnumerator iterator = currentMap.NewIterator(true, true);

    Type groupType = typeof(Autodesk.Gis.Map.DisplayManagement.Group);

 

    while (iterator.MoveNext())

    {

      ObjectId objId = (ObjectId)iterator.Current;

      Object obj = trans.GetObject(objId, OpenMode.ForWrite);             

 

      if (obj.GetType().ToString() == "Autodesk.Gis.Map.DisplayManagement.BaseElement")

      {

        Autodesk.Gis.Map.DisplayManagement.BaseElement baseElement = obj as Autodesk.Gis.Map.DisplayManagement.BaseElement;

        baseElement.SetVisible(0, false);                 

      }

    }

  }

  trans.Commit();

}