AutoCAD DevBlog

How to export specific layers to a dxf file using ObjectARX?

By Philippe Leefsma

Q:

I want to export some specific layers to a .DXF file. AcDbDatabase::dxfOut() can export a drawing, but I only want to export specific layers. How can I do this using ObjectARX?

A:

To make a DXF file that contains entities from specified layers, use acedSSGet() with a filter to select the entities on the required layers. Then wblock these entities to a new database and call dxfOut() to create the dxf file. Below is one of the functions from the attached example. The function named FilterObjects (not shown here) fills a selectionSet with the entities on layer 0 and a layer named "Layer1".

- 

int FilterObjects(ads_name ss)

{

        int resVal;

        char *chLayerName[] = {"0", "Layer1"};

        struct resbuf * resBufLayerFilter = NULL;

        struct resbuf **resBufTemp;

 

        resBufTemp = &resBufLayerFilter;

        *resBufTemp = acutBuildList(-4, "<OR", 0);

        resBufTemp = &(*resBufTemp)->rbnext;

 

        for (int nIndex = 0 ; nIndex<2;nIndex++)

        {

                *resBufTemp = acutBuildList (8, chLayerName[nIndex], 0);

                resBufTemp = &(*resBufTemp)->rbnext;

        }       

 

        *resBufTemp = acutBuildList(-4, "OR>", 0);

        resBufTemp = &(*resBufTemp)->rbnext;

 

        while(true)

        {

                //select all objects only on layer '0, Layer1'

                resVal = acedSSGet(L"_X", NULL, NULL, resBufLayerFilter, ss);

 

                if (resVal == RTCAN || resVal == RTERROR)

                {

                        //user selected zero objects

                        if (resVal == RTERROR)

                            acutPrintf (L"\nZero objects are selected.\n");

                        acutRelRb(resBufLayerFilter);

                        return resVal;

                }

                else

                        break;

        }

 

        acutRelRb(resBufLayerFilter);

        return resVal;

}

 

void ADSKDEX()

{

        Acad::ErrorStatus es;

        AcGePoint3d  pt (0.,0.,0.) ;

        AcGeVector3d    ex(1., 0., 0.), ey(0., 1., 0.), ez(0., 0., 1.) ;

 

        ads_name SourceSS;

        long  sslen = -1;

        AcDbObjectIdArray ObjIDArray;

        ads_name ename;

        long  sscur;

        CString ClasseObj, Result;

        AcDbObjectId       eId;

 

        FilterObjects(SourceSS); //filter the objects based on the layers

 

        int nRet = acedSSLength(SourceSS, &sslen);

 

        if (nRet == RTNORM)

        {

                acutPrintf(L"%d objects selected for export\n",sslen);

        }

 

        if( acedSSLength( SourceSS, &sslen) != RTNORM)

        {

                acutPrintf(L"No Objects are selected for export");

                return;

        }

 

        for (sscur = 0; sscur < sslen; sscur++)

        {

                acedSSName(SourceSS, sscur, ename);   

                acdbGetObjectId(eId, ename);

                ObjIDArray.append(eId);

        }

 

        AcDbDatabase *pDB = NULL;

 

        if( ( es = acdbHostApplicationServices()->workingDatabase()->wblock(

                pDB, ObjIDArray, pt ))!=Acad::eOk)

        {

                AfxMessageBox(L"wblock failed", MB_ICONEXCLAMATION | MB_OK);

                return;

        }

 

        es = pDB->dxfOut(L"c:\\test.dxf");

 

        if(pDB)

        {

                delete pDB; // delete the database.

                pDB = NULL;

        }

 

        acedSSFree(SourceSS);

        acedSSFree(ename);

}

 

Render is all black after assign solid mapping using (C:SETUV) with the "R" parameter

By Philippe Leefsma

Q:

I am trying to make a solid mapping using c:setuv with the "R" parameter. When the entity is rendered it is completely black.

A:

A change request is pending against this behavior. One work around to consider would be to use the "P" option as illustrated below:

-
(defun 3DPOINT (pt cx cy cz /)
   (if cx (setq pt (list (+ (car pt) cx) (cadr pt) (caddr pt))))
   (if cy (setq pt (list (car pt) (+ (cadr pt) cy) (caddr pt))))
   (if cz (setq pt (list (car pt) (cadr pt) (+ (caddr pt) cz))))
)
(defun c:test ()
  (setq ss_obj (ssget) 
           p0 (list 0.0 0.0 0.0)
           current_mapsize 5 
  ) ;setq
  (C:MATLIB "I" "APE" (findfile "RENDER.MLI")) 
  (C:RMAT "A" "APE" ss_obj)
  (c:setuv "A" ss_obj "P" p0 (polar p0 0 current_mapsize)(polar p0 (/ pi 2.0) current_mapsize)(3dpoint p0 nil nil current_mapsize))
  (c:rpref "TOGGLE" "SKIPRDLG" "ON")
  (c:rpref "STYPE" "ASCAN")
  (c:render)
)

How to detect when AutoCAD is running for a background plot?

By Philippe Leefsma

Q:

I need to detect when AutoCAD is running in background plot in order to handle this appropriately concerning my custom applications.

What is the best way to achieve this?

A:

One suggestion is to check using Win32 API “GetCommandLine” the command line string used to run AutoCAD and parse it to see if it contains the “-b” and “-pl” switches.

Here is my demand loaded arx startup procedure:

virtual AcRx::AppRetCode On_kInitAppMsg (void *pkt)

{

      // TODO: Load dependencies here

 

      // You *must* call On_kInitAppMsg here

      AcRx::AppRetCode retCode =AcRxArxApp::On_kInitAppMsg (pkt) ;

     

      // TODO: Add your initialization code here

      ACHAR* cmdline = GetCommandLine();

 

      std::ofstream ofs(

          L"c:\\Temp\\log.txt",

          std::ios::out | std::ios::binary);

 

      std::wstring wstr(cmdline);

 

      ofs.write((char *) wstr.c_str(), wstr.length() * sizeof(wchar_t));

 

      ofs.close();

     

      return (retCode) ;

}

-

Once a background plot has been run, the content of my log file is as follow:

"C:\Program Files\Autodesk\ACADM 2009\acad.exe" 

-pl  -b C:\DOCUME~1\leefsmp\LOCALS~1\Temp\BG074D~1\BGPlot.scr

Associative Framework: How to retrieve all constraints in database or applied to a specific entity?

By Philippe Leefsma

The following examples illustrate how to dive into the Associative Framework in order to retrieve existing constraints. In a database, constraints are contained inside an AcDbAssoc2dConstraintGroup. So the most direct way to list all constraints is to iterate through each group and retrieve its owned constraints

This first example illustrates that principle:

////////////////////////////////////////////////////////////////////////////////////

// Use: AcDbDatabase* pDb = acdbHostApplicationServices()->workingDatabase();

//  AcDbObjectId spaceId = pDb->currentSpaceId();

//  es = dumpConstraints(spaceId);

////////////////////////////////////////////////////////////////////////////////////

Acad::ErrorStatus dumpConstraints(const AcDbObjectId& spaceId)

{

 Acad::ErrorStatus es;

 

 AcDbObjectId networkId = AcDbAssocNetwork::getInstanceFromObject(spaceId, true);

 

 if (networkId.isNull())

 {

  return Acad::eNullObjectId;

 }

 

 AcDbObjectPointer pNetwork(networkId, kForRead);

 

 if (pNetwork.openStatus() != Acad::eOk)

 {

  return Acad::eNullObjectId;

 }

 

 const AcDbObjectIdArray& actionsInNetwork = pNetwork->getActions();

 

 for (int nCount = 0; nCount < actionsInNetwork.length(); ++nCount)

 {

 

  const AcDbObjectId& idAction = actionsInNetwork[nCount];

 

  if (idAction == AcDbObjectId::kNull)

   continue;

 

  if ( actionsInNetwork[nCount].objectClass() == NULL ||

    !actionsInNetwork[nCount].objectClass()->isDerivedFrom(

                AcDbAssoc2dConstraintGroup::desc()))

   continue;

 

  AcDbObjectPointer pAction(idAction, kForRead);

 

  if (pAction.openStatus() != Acad::eOk)

   continue;

 

  const AcDbAssoc2dConstraintGroup* const pConstGrp =

   static_cast(pAction.object());

 

  if (!pConstGrp)

   continue;

 

  acutPrintf(L"\n");

 

  AcArray apConstraints;

  if((es = pConstGrp->getConstraints(apConstraints)) != Acad::eOk)

  {

   acutPrintf(L"\nFailed to get constraints for group...");

   continue;

  }

 

  for(int i = 0; i < apConstraints.length(); ++i)

  {

   acutPrintf(L"\n - Constraint: %s", apConstraints[i]->isA()->name());

  }

 }

}

-

-

If you want to list all constraints applied to a specific entity, things are a bit more tricky:

Acad::ErrorStatus getConstraintsOnGeometry(

    const AcConstrainedGeometry* pConsGeom)

{

 

 Acad::ErrorStatus es;

 

 acutPrintf(L"\nConstrained Geometry: %s", pConsGeom->isA()->name());

 

 if(pConsGeom->isKindOf(AcConstrainedCurve::desc()))

 {

  AcConstrainedCurve* pConsCurve = AcConstrainedCurve::cast(pConsGeom);

 

  AcArray apImplicitPoints;

  pConsCurve->getConstrainedImplicitPoints(apImplicitPoints);

 

  for(int k = 0; k < apImplicitPoints.length(); ++k)

  {

 

   acutPrintf(L"\n", k);

 

   AcArray apConstraints;

   if((es = apImplicitPoints[k]->getConnectedConstraints(apConstraints))

       != Acad::eOk)

   {

    acutPrintf(L"\nFailed to get connected constraints...");

    continue;

   }

 

   for(int l = 0; l < apConstraints.length(); ++l)

   {

    acutPrintf(L"\n - Constraint: %s", apConstraints[l]->isA()->name());

   }

  }

 }

 

 if(pConsGeom->isKindOf(AcConstrainedPoint::desc()))

 {

 

  AcConstrainedPoint* pConsPoint = AcConstrainedPoint::cast(pConsGeom);

 

  AcArray apConstraints;

  if((es = pConsPoint->getConnectedConstraints(apConstraints)) != Acad::eOk)

  {

   acutPrintf(L"\nFailed to get connected constraints...");

   return es;

  }

 

  for(int l = 0; l < apConstraints.length(); ++l)

  {

   acutPrintf(L"\n - Constraint: %s", apConstraints[l]->isA()->name());

  }

 }

 

 if(pConsGeom->isKindOf(AcConstrainedRigidSet::desc()))

 {

 

  AcConstrainedRigidSet* pConsSet = AcConstrainedRigidSet::cast(pConsGeom);

 

  AcArray apConstraints;

  if((es = pConsSet->getConnectedConstraints(apConstraints)) != Acad::eOk)

  {

   acutPrintf(L"\nFailed to get connected constraints...");

   return es;

  }

 

  for(int l = 0; l < apConstraints.length(); ++l)

  {

   acutPrintf(L"\n - Constraint: %s", apConstraints[l]->isA()->name());

  }

 

  for(int k = 0; k < pConsSet->numOfConstrainedGeoms(); ++k)

  {

 

   AcConstrainedGeometry* pConsGeomAtIdx = pConsSet->getConstrainedGeomAt(k);

 

   //Recursive call...

   if((es = getConstraintsOnGeometry(pConsGeomAtIdx)) != Acad::eOk)

   {

    return es;

   }

  }

 }

 

 return es;

 

}

 

 

Acad::ErrorStatus getConstraintsOnEntity(const AcDbObjectId& entityId)

{

 

 Acad::ErrorStatus es;

 

 AcDbObjectPointer  pEntity(entityId, AcDb::kForRead);

 

 if((es = pEntity.openStatus()) != Acad::eOk)

  return es;

 

 AcDbObjectIdArray actionIds;

 if((es = AcDbAssocAction::getActionsDependentOnObject(

         pEntity, true, true, actionIds))!= Acad::eOk)

  return es;

 

 AcDbObjectIdArray dependencyIds;

 if((es = AcDbAssocDependency::getDependenciesOnObject(

         pEntity, true, true, dependencyIds))!= Acad::eOk)

  return es;

 

 for(int i = 0; i < actionIds.length(); ++i)

 {

  AcDbObjectPointer constraintGroup(actionIds[i], AcDb::kForRead);

  if(constraintGroup.openStatus() != Acad::eOk)

   continue;

 

  for(int j = 0; j < dependencyIds.length(); ++j)

  {

   AcDbObjectPointer geomDependency(dependencyIds[j], AcDb::kForRead);

   if(geomDependency.openStatus() != Acad::eOk)

    continue;

  

   AcConstrainedGeometry* pConsGeom = NULL;

   if((es = constraintGroup->getConstrainedGeometry(

           geomDependency, pConsGeom)) != Acad::eOk)

   {

    acutPrintf(L"\nFailed to get constrained geometry...");

    continue;

   }

   getConstraintsOnGeometry(pConsGeom);

  }

 }

 

 return es;

 

}

 

static void ADSConstraintModeling_ListEntConstr(void)

{

 Acad::ErrorStatus es;

 AcDbObjectId id;

 ads_name name;

 ads_point pt;

 if(acedEntSel(L"\nSelect Entity: ", name, pt) != RTNORM)

 {

  return;

 }

 

 acdbGetObjectId(id, name);

 es = getConstraintsOnEntity(id);

}

Incorrect EXTMIN / EXTMAX values for a drawing

By Balaji Ramamoorthy

AutoCAD assumes a default value of EXTMIN and EXTMAX as (1.0E+20,1.0E+20,1.0E+20) and (-1.0E+20,-1.0E+20,-1.0E+20) and as a developer put it, it is :(1/10)^th the distance of the Universe away :)

There have been a few drawings that have these values even though there are entities added to it. One possible reason for such an issue could be that the "Database.UpdateExt" method has not been called after the entities have been added to the database programmatically.

Here is a code snippet that will make this point clear :

Editor ed

        = Application.DocumentManager.MdiActiveDocument.Editor;

 

// Test-1

using (Database db1 = new Database(true, false))

{

    ed.WriteMessage(String.Format("{0}Test - 1 ", Environment.NewLine));

 

    using (Transaction tr = db1.TransactionManager.StartTransaction())

    {

        BlockTable bt = tr.GetObject

                                    (

                                        db1.BlockTableId,

                                        OpenMode.ForRead

                                    ) as BlockTable;

 

        BlockTableRecord btr = tr.GetObject

                                    (

                                        db1.CurrentSpaceId,

                                        OpenMode.ForWrite

                                    ) as BlockTableRecord;

 

        Circle c = new Circle(Point3d.Origin, Vector3d.ZAxis, 10.0);

        btr.AppendEntity(c);

        tr.AddNewlyCreatedDBObject(c, true);

 

        tr.Commit();

    }

 

    db1.SaveAs(@"C:\Temp\Test1.dwg", DwgVersion.Newest);

    ed.WriteMessage(

            String.Format(

                            "{0}ExtMin : {1}",

                            Environment.NewLine,

                            db1.Extmin

                         )

                    );

 

    ed.WriteMessage(

            String.Format(

                            "{0}ExtMax : {1}",

                            Environment.NewLine,

                            db1.Extmax

                        )

                    );

 

    ed.WriteMessage(

            String.Format(

                            "{0}Saved Test1.dwg",

                            Environment.NewLine

                         )

                    );

}

 

// Test-2

using (Database db2 = new Database(true, false))

{

    ed.WriteMessage(String.Format("{0}Test - 2 ", Environment.NewLine));

 

    using (Transaction tr = db2.TransactionManager.StartTransaction())

    {

        BlockTable bt = tr.GetObject

                                    (

                                        db2.BlockTableId,

                                        OpenMode.ForRead

                                    ) as BlockTable;

 

        BlockTableRecord btr = tr.GetObject

                                    (

                                        db2.CurrentSpaceId,

                                        OpenMode.ForWrite

                                    ) as BlockTableRecord;

 

        Circle c = new Circle(Point3d.Origin, Vector3d.ZAxis, 10.0);

        btr.AppendEntity(c);

        tr.AddNewlyCreatedDBObject(c, true);

 

        tr.Commit();

    }

 

    db2.UpdateExt(true);

 

    db2.SaveAs(@"C:\Temp\Test2.dwg", DwgVersion.Newest);

    ed.WriteMessage(

            String.Format(

                            "{0}ExtMin : {1}",

                            Environment.NewLine,

                            db2.Extmin

                         )

                    );

 

    ed.WriteMessage(

            String.Format(

                            "{0}ExtMax : {1}",

                            Environment.NewLine,

                            db2.Extmax

                        )

                    );

 

    ed.WriteMessage(

            String.Format(

                            "{0}Saved Test2.dwg",

                            Environment.NewLine

                         )

                    );

}

Test1.dwg has the extents at 1e20 even though it has an entity in the database. The reason for this is because the “UpdateExt” has not been called before saving the drawing.

Test2.dwg has the right extents after an entity is added to the database, because of the “UpdateExt” call before saving the drawing.

In ObjectARX, the equivalent method is the AcDbDatabase::updateExt().

eFileAccessErr while saving Dxf using Database.DxfOut

By Balaji Ramamoorthy

Attempting to save a DXF file opened in AutoCAD using the Database.DxfOut method throws the "eFileAccessErr". This is a known behavior and the workaround for it is to use the "SendCommand" method to send the "dxfout" command to the AutoCAD command line.

Here is a sample code to save all the documents opened in AutoCAD as Dxf and close them.

There is a change in the way the AcadDocument is retrieved in 2013 SDK and also in the way the "SendCommand" can be invoked as compared the earlier versions. So, I have provided two versions of the code snippet.

// Prior to 2013

[CommandMethod("SaveAndCloseAll", CommandFlags.Session)]

public static void SaveAndCloseAll()

{

    object filediaVariable = Application.GetSystemVariable("FILEDIA");

    Application.SetSystemVariable("FILEDIA", 0);

 

    DocumentCollection acDocMgr = Application.DocumentManager;

    foreach (Document doc in acDocMgr)

    {

        AcadDocument acadDoc = doc.AcadDocument as AcadDocument;

 

        using (DocumentLock doclock = doc.LockDocument())

        {

            object[] dataArry = new object[1];

            dataArry[0] = "dxfout\n\nV\n2010\n\ny\n";

            acadDoc.GetType().InvokeMember

                (

                    "SendCommand",

                    System.Reflection.BindingFlags.InvokeMethod,

                    null,

                    acadDoc,

                    dataArry

                );

        }

    }

    Application.SetSystemVariable("FILEDIA", filediaVariable);

 

    // Close all the documents

    acDocMgr.CloseAll();

}

 

// 2013 onwards

[CommandMethod("SaveAndCloseAll", CommandFlags.Session)]

public static void SaveAndCloseAll()

{

    object filediaVariable = Application.GetSystemVariable("FILEDIA");

    Application.SetSystemVariable("FILEDIA", 0);

 

    DocumentCollection acDocMgr = Application.DocumentManager;

    foreach (Document doc in acDocMgr)

    {

        dynamic acadDoc = doc.GetAcadDocument();

        using (DocumentLock doclock = doc.LockDocument())

        {

            object[] dataArry = new object[1];

            dataArry[0] = "dxfout\n\nV\n2010\n\ny\n";

            acadDoc.SendCommand("dxfout\n\nV\nR12\n\ny\n");

        }

    }

    Application.SetSystemVariable("FILEDIA", filediaVariable);

 

    // Close all the documents

    acDocMgr.CloseAll();

}

Getting Lines on unlocked layers at one go

By Balaji Ramamoorthy

Recently a developer asked this question and here is the code snippet. The code snippet can be modified to fetch entities based on any such criteria. The "acedssget" method can take filter in the form a result buffer. It can be formed using the "acutBuildList" method, but I havent used it in this code snippet since the layers that are unlocked are not known until we iterate the Layer table. Instead, the result buffer is created node by node based on the number of unlocked layer that we find.

resbuf* pLineResbuf;

resbuf* pIter = 0;

 

wchar_t szLineBuff[] = L"LINE";

pLineResbuf = acutNewRb(0);

pIter = pLineResbuf;

pIter->resval.rstring = new wchar_t[wcslen(szLineBuff) + 1];

wcscpy(pIter->resval.rstring, szLineBuff);

 

wchar_t szConditionBuff1[] = L"<OR";

pIter->rbnext = acutNewRb(-4);

pIter = pIter->rbnext;

pIter->resval.rstring = new wchar_t[wcslen(szConditionBuff1) + 1];

wcscpy(pIter->resval.rstring, szConditionBuff1);

 

AcDbObjectId layerId = AcDbObjectId::kNull;

AcDbLayerTable* pLayerTable;

 

AcApDocument *pActiveDoc = acDocManager->mdiActiveDocument();

AcDbDatabase *pActiveDB = pActiveDoc->database();

pActiveDB->getSymbolTable(pLayerTable, AcDb::kForRead);

 

AcDbLayerTableIterator *pLayerTableIter = NULL;

pLayerTable->newIterator(pLayerTableIter);

pLayerTableIter->setSkipHidden(true);

for (; !pLayerTableIter->done(); pLayerTableIter->step())

{

    AcDbLayerTableRecord *pLTR = NULL;

    pLayerTableIter->getRecord(pLTR, AcDb::kForRead);

    TCHAR *lname;

    pLTR->getName(lname);

 

    if(pLTR->isLocked() == false)

    {

        pIter->rbnext = acutNewRb(8);

        pIter = pIter->rbnext;

        pIter->resval.rstring = new wchar_t[wcslen(lname) + 1];

        wcscpy(pIter->resval.rstring, lname);

    }

    pLTR->close();

}

delete pLayerTableIter;

pLayerTable->close();

 

wchar_t szConditionBuff2[] = L"OR>";

pIter->rbnext = acutNewRb(-4);

pIter = pIter->rbnext;

pIter->resval.rstring = new wchar_t[wcslen(szConditionBuff2) + 1];

wcscpy(pIter->resval.rstring, szConditionBuff2);

 

ads_name selectset;

acedSSGet(L"_X", NULL, NULL, pLineResbuf, selectset);

 

long length=0;

acedSSLength (selectset, &length);

 

acutPrintf(L"\nNumber of Entities: %d", length);

 

for (int idx=0; idx<length; ++idx)

{

    ads_name entres;

    if(acedSSName(selectset, idx, entres) != RTNORM)

    {

          acedSSFree(selectset);

          return;

    }

 

    AcDbObjectId id;

    acdbGetObjectId(id, entres);

 

    AcDbObjectPointer<AcDbEntity> pEntity(id, AcDb::kForRead);

    acutPrintf(L"\nEntity: %s", pEntity->isA()->name());

}

 

acedSSFree(selectset);

acutRelRb(pLineResbuf);

Create a new sheet using COM SheetSet API

By Augusto Goncalves

This example will add a sheet to an existing Sheetset (DST file), on this sample c:\temp\test.dst. The "Sheet Creation Template" property needs to be set on the sheetset for this example to work properly. The code uses .NET COM interoperability to program COM objects with .NET.

Update: a reference to AcSmComponents Type Library is required. Choose it at the COM tab of Visual Studio.

[CommandMethod("testSheet")]

static public void CmdTestSheet()

{

  Editor ed = Application.DocumentManager.

    MdiActiveDocument.Editor;

  string dstFile = "C:\\temp\\test.dst";

  AcSmSheetSetMgr mgr = new AcSmSheetSetMgr();

  AcSmDatabase db = new AcSmDatabase();

 

  // try open the database

  try

  {

    db = mgr.OpenDatabase(dstFile, true);

  }

  catch (System.Exception ex)

  {

    ed.WriteMessage(ex.ToString());

    return;

  }

 

  // lock to perform the operations

  db.LockDb(db);

  try

  {

    IAcSmSheetSet mySheetSet;

    IAcSmSheet newSheet;

    mySheetSet = db.GetSheetSet();

 

    // check the name and location

    if ((mySheetSet.GetDefDwtLayout().GetFileName() == "")

      || (mySheetSet.GetNewSheetLocation() == null))

    {

      ed.WriteMessage("\nCannot add sheet." +

        " Manually set the Sheet Creation Template");

      return;

    }

    else

    {

      AcSmAcDbLayoutReference lytRef2 =

        mySheetSet.GetDefDwtLayout();

      ed.WriteMessage("\nAdding a sheet using Layout1 in"

        + lytRef2.GetFileName().ToString());

 

      IAcSmFileReference fileRef2 =

        mySheetSet.GetNewSheetLocation();

      ed.WriteMessage("\nNew drawing will be created in "

        + fileRef2.GetFileName().ToString());

 

      newSheet = mySheetSet.AddNewSheet(

        "Layout1", "Some Description");

      newSheet.SetTitle("testTitle");

      mySheetSet.InsertComponent(newSheet, null);

    }

  }

  catch (System.Exception ex)

  {

    ed.WriteMessage(ex.ToString());

  }

  finally

  {

    db.UnlockDb(db, true);

    mgr.Close(db);

  }

}

Detach a Raster Image using ObjectARX

By Augusto Goncalves

To delete a raster image, first remove the AcDbRasterImageDef reference from the dictionary. Then erase the AcDbRasterImageDef object from AutoCAD database. The following sample code demonstrates the process. A raster image named "rasterimage" is removed from the drawing.

static void AsdkDetachImage_detachimage()

{

  Acad::ErrorStatus es; 

  AcDbObjectId  imageDefId;

 

  // get the image definition dictionary

  AcDbDictionaryPointer pImageDict (

    AcDbRasterImageDef::imageDictionary (

    curDoc()->database()), AcDb::kForWrite);

  if ((es = pImageDict.openStatus ()) != Acad::eOk)

  {

    acutPrintf(acadErrorStatusText (es));

    return;

  }

  // get the object ID of the image definition

  if ((es = pImageDict->getAt (_T("rasterimage"),

    imageDefId)) != Acad::eOk)

  {

    pImageDict->close();

    acutPrintf(acadErrorStatusText (es));

    return;

  }

 

  // remove the image definition from the dictionary

  if ((es = pImageDict->remove (

    _T("rasterimage"))) != Acad::eOk)

  {

    pImageDict->close();

    acutPrintf(acadErrorStatusText (es));

    return;

  }

  pImageDict->close();

 

  //delete raster image definition object

  AcDbRasterImageDef * pImageDef;

  AcDbObject *pObj;

  if ((es = acdbOpenAcDbObject(pObj,

    imageDefId, AcDb::kForWrite)) != Acad::eOk)

  {

    acutPrintf(acadErrorStatusText (es));

    return;

  }

  pImageDef=(AcDbRasterImageDef *)pObj;

  if ((es = pImageDef->erase ()) != Acad::eOk)

  {

    pImageDef->close();

    acutPrintf(acadErrorStatusText (es));

    return;

  }

  pImageDef->close();

}

Setting the Line Number Tag in AutoCAD Plant3d

by Fenton Webb

Leading on from this post I had a question on how to use that same code to set the Line Number Tag; I have to admit, for a newbie, it’s not that obvious...

Selecting the PPG-PIPING-01.dwg from the Plant3d 2012 “Sample Project” project, and then viewing the Properties of the first Pipe I see, I get this view in Plant…

So how to set the Line Number Tag?

Using the code from the previous post I mentioned above, you would think this code would work, but it doesn’t…

[CommandMethod("GetLineGroupInfo")]

public void GetLineGroupInfo()

{

 // get the AutoCAD Editor object so we can print to the command line

 Editor ed = AcadApp.DocumentManager.MdiActiveDocument.Editor; 

 // select the object

 PromptEntityResult res = ed.GetEntity("Pick Object obtain properties : ");

 // if something selected

 if (res.Status == PromptStatus.OK)

{

  // get the current project object

  PlantProject currentProj = PlantApplication.CurrentProject;

  // get the Piping project part

  PipingProject pipeProj = (PipingProject)currentProj.ProjectParts["Piping"];

  // get the data links manager

  DataLinksManager dlm = pipeProj.DataLinksManager;

  // get the 3d data links manager

  DataLinksManager3d dlm3d = pipeProj.DataLinksManager3d;

  // and then get the row id for the selected object

  int rowId = dlm.FindAcPpRowId(res.ObjectId);

 

  // Parts are related to pipe line group via P3dLineGroupPartRelationship.

  // So we need to traverse this relationship to get line group row id

  PnPRowIdArray lgid = dlm.GetRelatedRowIds("P3dLineGroupPartRelationship", "Part", rowId, "LineGroup");

  if (lgid == null || lgid.Count == 0)

  {

   // line group was not found. May happen, for example, if Equipment is picked.

   return;

  }

 

  // this is line group row in the data. (PnPRowIdArray is in fact list

  int lgRowId = lgid.First.Value;

 

  // using lgRowId you may get all line group properties using the following code

  // last parameter doesn't matter

  List<KeyValuePair<string, string>> vals = dlm.GetAllProperties(lgRowId, false);

 

  try

  {

    // or get the same thing from PnPDatabase via row

    PnPRow lgRow = dlm.GetPnPDatabase().GetRow(lgRowId);

    String Tag = lgRow["Tag"].ToString();

    lgRow.BeginEdit();

    lgRow["Tag"] = "98765";

    lgRow.EndEdit();

    Tag = lgRow["Tag"].ToString();

   }

  catch (System.Exception ex)

  {

 

  }

 }

The reason that it doesn’t is because the Tag value is actually defined via the Project Manager->Project Settings to be set via the P3d Line Group ‘Number’ property…

First let’s see how I found worked out that it was using the P3d Line Group…

 

Now let’s see how I worked out that the ‘Number’ property is the one we need…

 

So, finally, to change the Tag, the code should look something like this…

[CommandMethod("GetLineGroupInfo")]

public void GetLineGroupInfo()

{

 // get the AutoCAD Editor object so we can print to the command line

 Editor ed = AcadApp.DocumentManager.MdiActiveDocument.Editor;

 

 // select the object

 PromptEntityResult res = ed.GetEntity("Pick Object obtain properties : ");

 // if something selected

 if (res.Status == PromptStatus.OK)

{

  // get the current project object

  PlantProject currentProj = PlantApplication.CurrentProject;

  // get the Piping project part

  PipingProject pipeProj = (PipingProject)currentProj.ProjectParts["Piping"];

  // get the data links manager

  DataLinksManager dlm = pipeProj.DataLinksManager;

  // get the 3d data links manager

  DataLinksManager3d dlm3d = pipeProj.DataLinksManager3d;

  // and then get the row id for the selected object

  int rowId = dlm.FindAcPpRowId(res.ObjectId);

 

  try

  {

   PipeLineGroupData lginfo = dlm3d.GetLineGroupInfo(rowId);

  }

  catch

  {

   // there is bug in the Plant that prevents getting lginfo by part rowid. Sorry.

   // but we may achieve the same thing using the following workaround

  }

 

  // Parts are related to pipe line group via P3dLineGroupPartRelationship.

      // So we need to traverse this

  // relationship to get line group row id

  PnPRowIdArray lgid = dlm.GetRelatedRowIds("P3dLineGroupPartRelationship", "Part", rowId, "LineGroup");

  if (lgid == null || lgid.Count == 0)

  {

   // line group was not found. May happen, for example, if Equipment is picked.

   return;

  }

 

  // this is line group row in the data. (PnPRowIdArray is in fact list

  int lgRowId = lgid.First.Value;

 

  // using lgRowId you may get all line group properties using the following code

  // last parameter doesn't matter

  List<KeyValuePair<string, string>> vals = dlm.GetAllProperties(lgRowId, false);

 

      try

      {

        // get the pnp row

        PnPRow lgRow = dlm.GetPnPDatabase().GetRow(lgRowId);

        // find out what the original tag was set to

        String Tag = lgRow["Tag"].ToString();

 

        // start an edit transaction

        lgRow.BeginEdit();

        // set the P3d Line Group 'Number'

        lgRow["Number"] = "98765";

        // finish the edit transaction

        lgRow.EndEdit();

 

        // see if it worked

        Tag = lgRow["Tag"].ToString();

        // yes it did!

        // all done

      }

      catch (System.Exception ex)

      {

 

      }

 

  // the following code will only work if linegroup has a valid (not empty) tag. So you may expect

  // exception here if LineGroup is not assigned a tag (not sure why it is done this way)

  try

  {

   PipeLineGroupData lginfoAtLast = dlm3d.GetLineGroupInfo(lgRowId);         

  }

  catch

  {

   // get here if line group doesn't have assigned tag

  }

}

}