AutoCAD DevBlog

Pattern generation of linetype with text on polyline entity

By Deepak Nadig

Generating linetype with text on a Polyline entity could result in linetype pattern generated continuously across all vertices as below image. This is because the linetype generation property of Polyline is ON              

Interactively this can be changed by issuing PEDIT command, setting Ltype gen as Off.

Command: PEDIT
Enter an option [Open/Join/Width/Edit vertex/Fit/Spline/Decurve/Ltype gen/Reverse/Undo]: L
Enter polyline linetype generation option [ON/OFF] <On>: OFF

 

 

Via .NET API, Polyline entity has no property to change this. Thanks to Polyline2d.LinetypeGenerationOn property, we can convert the Polyline entity to Polyline2d and set this property false. Code sample shown below with the output image.  

 

// code modified from the link 
//http://through-the-interface.typepad.com/through_the_interface/2008/01/creating-a-comp.html
[CommandMethod("CCL")]
public void CreateComplexLinetype()
{
    Document doc =
        Application.DocumentManager.MdiActiveDocument;
    Database db = doc.Database;
    Editor ed = doc.Editor;
    Transaction tr =
        db.TransactionManager.StartTransaction();
    using (tr)
    {
        TextStyleTable tt =
            (TextStyleTable)tr.GetObject(
            db.TextStyleTableId,
            OpenMode.ForRead
            );
        LinetypeTable lt =
            (LinetypeTable)tr.GetObject(
            db.LinetypeTableId,
            OpenMode.ForWrite
            );
        LinetypeTableRecord ltr =
            new LinetypeTableRecord();

        ltr.Name = "COLD_WATER_SUPPLY";
        ltr.AsciiDescription =
            "Cold water supply ---- CW ---- CW ---- CW ----";
        ltr.PatternLength = 0.9;
        ltr.NumDashes = 3;
        // Dash #1
        ltr.SetDashLengthAt(0, 0.5);
        // Dash #2
        ltr.SetDashLengthAt(1,-0.2);
        ltr.SetShapeStyleAt(1, tt["Standard"]);
        ltr.SetShapeNumberAt(1, 0);
        ltr.SetShapeScaleAt(1, 0.1);
        ltr.SetTextAt(1, "CW");
        ltr.SetShapeRotationAt(1, 0);
        ltr.SetShapeOffsetAt(1, new Vector2d(0, -0.05));
        // Dash #3
        ltr.SetDashLengthAt(2, -0.2);

        // Add the new linetype to the linetype table
        ObjectId ltId = lt.Add(ltr);                
        tr.AddNewlyCreatedDBObject(ltr, true);
        // Create a test line with this linetype
        BlockTable bt =
            (BlockTable)tr.GetObject(
            db.BlockTableId,
            OpenMode.ForRead
            );
        BlockTableRecord btr =
            (BlockTableRecord)tr.GetObject(
            bt[BlockTableRecord.ModelSpace],
    OpenMode.ForWrite
    );

        using (Polyline acPoly = new Polyline())
        {
            acPoly.SetDatabaseDefaults(db);
            acPoly.AddVertexAt(0, new Point2d(0, 0), 0, 0, 0);
            acPoly.AddVertexAt(1, new Point2d(0, 2), 0, 0, 0);
            acPoly.AddVertexAt(2, new Point2d(2, 2), 0, 0, 0);
            acPoly.AddVertexAt(3, new Point2d(2, 0), 0, 0, 0);
            acPoly.Closed = true;
            btr.AppendEntity(acPoly);
            tr.AddNewlyCreatedDBObject(acPoly, false);
            Polyline2d poly2 = acPoly.ConvertTo(true);
            poly2.LinetypeGenerationOn = false;
            poly2.LinetypeId = ltId;
            tr.AddNewlyCreatedDBObject(poly2, true);
        }
        tr.Commit();
    }
}

Result :

Identify Mechanical Desktop file(MDT) using .NET

By Deepak Nadig

Recently, we had a customer query regarding distinguishing an AutoCAD Mechanical desktop file among a set of drawing files.

Answer:
Mechanical desktop should have entry named AmdtFileType with a value of 84 in the Custom tab of DWGPROPS(image)

One of the ways to distinguish a Autodesk Mechanical desktop file could be to retrieve and check for the custom property as below.
Note : File to be checked is read as a side database in the code below. 

[CommandMethod("testMdtFile")]
public static void testMdtFile()
{
    Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
    try
    {
        using (Database db = new Database(false, true))
        {
            db.ReadDwgFile(@"c:\temp\testMDT.dwg", FileOpenMode.OpenForReadAndAllShare, false, null);
            db.CloseInput(true);
            string val = GetCustomProperty(db, "AmdtFileType");
            System.Windows.Forms.MessageBox.Show("Value of AmdtFileType is " + val);
        }
    }
    catch (System.Exception ex)
    {
        ed.WriteMessage(ex.ToString());
    }
}
public static string GetCustomProperty(Database db, string key)
{
    DatabaseSummaryInfoBuilder sumInfo = new DatabaseSummaryInfoBuilder(db.SummaryInfo);
    IDictionary custProps = sumInfo.CustomPropertyTable;
    return (string)custProps[key];
}

Determine the radius and center of circular cone base using .NET

By Deepak Nadig

We can make use of Brep support to determine the radius and center of a cone( properties shown up in  the image image) with circular base.    

 Below .NET code snippet can be used : 

[CommandMethod("circularConeRadiusAndCenter")]
public void circularConeRadiusAndCenter()
{
    Document doc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument;
    Database db = doc.Database;
    Editor ed = doc.Editor;

    // Ask the user to select a solid
    PromptEntityOptions peo = new PromptEntityOptions("Select a 3D solid");
    peo.SetRejectMessage("\nA 3D solid must be selected.");
    peo.AddAllowedClass(typeof(Solid3d), true);
    PromptEntityResult per = ed.GetEntity(peo);

    if (per.Status != PromptStatus.OK)
        return;

    Transaction tr = db.TransactionManager.StartTransaction();
    using (tr)
    {
        Solid3d sol = tr.GetObject(per.ObjectId, OpenMode.ForRead) as Solid3d;
        using (Brep brep = new Brep(sol))
        {
            //check if base is a circular. If yes, then determine the center and radius
            foreach (Complex cmp in brep.Complexes)
            {
                int edgeCnt = 1;
                foreach (Edge edge in brep.Edges)
                {
                    ed.WriteMessage("\n --> Edge : {0}", edgeCnt++);
                    Curve3d edgeCurve = edge.Curve;
                    if (edgeCurve is ExternalCurve3d)
                    {
                        ed.WriteMessage("\n Edge type : {0}", "ExternalCurve3d");
                        ExternalCurve3d extCurve3d = edgeCurve as ExternalCurve3d;
                        Curve3d nativeCurve = extCurve3d.NativeCurve;
                        if (nativeCurve is CircularArc3d)
                        {
                            ed.WriteMessage("\n Native curve type : {0}", "CircularArc3d");
                            CircularArc3d circArc3d = nativeCurve as CircularArc3d;
                            ed.WriteMessage("\n radius is " + circArc3d.Radius.ToString());                                    
                            ed.WriteMessage("\n center is " + PointToStr(circArc3d.Center));
                        }
                        else
                        {
                            ed.WriteMessage("\n Native curve type of cone is not Circular");
                            return;
                        }

                    }

                }
            }
        }
    }
}
private string PointToStr(Point3d point)
{
    return "[" +
        point.X.ToString("F2") + ", " +
        point.Y.ToString("F2") + ", " +
        point.Z.ToString("F2")
        + "]";
}

AutoCAD 2019 ObjectARX and .NET wizards

By Deepak Nadig

We have had many users asking for new versions of wizards that are Visual Studio 2017 compatible to work with AutoCAD 2019. Here they are  : 

AutoCAD ObjectARX 2019 Wizard 

AutoCAD .NET 2019 Wizard

P.S:
We will soon have these wizards downloadable from the Tools section of https://www.autodesk.com/developer-network/platform-technologies/autocad

Set ColumnType of MText on creation of MText Object

By Deepak Nadig

We recently had a query regarding eNotApplicable runtime exception thrown trying to set ColumnType when MText is created as in the snippet: 

MText mytext = new MText();
mytext.SetDatabaseDefaults();
mytext.Contents = "mytext";
mytext.Layer = "0";
mytext.ColorIndex = 3;
mytext.Location = new Point3d(0.0, 0.0, 0.0);
mytext.ColumnType = ColumnType.NoColumns;

To avoid this exception it is required to set MText.Width value greater than 0.0 before setting the ColumnType. Below command sets ColumnType 

[CommandMethod("TESTMTEXT")]
public static void testMtext()
{
    Document doc = Autodesk.AutoCAD.ApplicationServices.Core.Application.DocumentManager.MdiActiveDocument;
    if (doc == null)
        return;
    try
    {
        using (Transaction tr = doc.TransactionManager.StartTransaction())
        {
            MText mytext = new MText();
            mytext.SetDatabaseDefaults();
            mytext.Contents = "mytext";
            mytext.Layer = "0";
            mytext.ColorIndex = 3;
            mytext.Location = new Point3d(0.0, 0.0, 0.0);
            mytext.Width = 0.0; // don't forget me 
            if(mytext.Width > 0.0)
            mytext.ColumnType = ColumnType.NoColumns;

            BlockTable bt = (BlockTable)tr.GetObject(doc.Database.BlockTableId, OpenMode.ForRead);
            BlockTableRecord btr = (BlockTableRecord)tr.GetObject(bt[BlockTableRecord.ModelSpace], OpenMode.ForWrite);
            btr.AppendEntity(mytext);
            tr.AddNewlyCreatedDBObject(mytext, true);
            tr.Commit();
        }
    }
    catch (System.Exception ex)
    {
        doc.Editor.WriteMessage("\nError: " + ex.ToString());
    }
}

It is notable that trying to change ColumnType of selected MText without setting Defined width value above 0.0 is not possible in UI :

Creating tables with rows of varying heights using .NET

By Deepak Nadig

Creating table using the Table.InsertColumns and Table.InsertRows is quite tricky and below are certain scenarios that can be useful :

Scenario 1: Using only table.InsertColumns :
Along with the specified number of columns, a single default row(without cells) is created at row index 0.

Scenario 2: Using only table.InsertRows :
Along with the specified number of rows,a single default column is created (with cells) at column index 0.

for example, table.InsertRows(0, 5, 3); creates table as shown below: 

  

 

 

 

Scenario 3: Using index to create rows or columns :
Here, the method is table.InsertRows(int row,double height,int rows)
int row = row index
double height = rows(exculding default row)
int rows = number of rows inserted

As in the above example, table.InsertRows(0, 5, 3); creates a table with 4 rows( 3 + 1 default row) and 1 column at index 0.

Since first parameter(index) is 0, every row is inserted at position 0 and pushes the previously inserted row(if any) below. So we can find the default row at the bottom most position after creation.

Scenario 4:  We can use table.InsertRows in a loop to create rows of varying height :
Rows of varying height can be created as follows :            

List<double> rowHeight = new List<double>();
rowHeight.Add(10);
rowHeight.Add(20);
rowHeight.Add(30);
int nRows = rowHeight.Count;
for (int iRow = 0; iRow < nRows; iRow++)
{
    table.InsertRows(0, rowHeight[iRow], 1);
}

 Image of the table created for above code :

 

 

 

 

 

NOTE : the default row and column can be deleted if not required using DeleteColumns and DeleteRows API

 

 

Check needed to determine if a text is present in a Linetype using .NET

By Deepak Nadig

Recently, an ADN partner requested for a method to check if a text is contained in a Linetype before extracting the text.

To extract a text, LinetypeTableRecord.TextAt is used and it returns eNotApplicable error when text is not present at index in the record. To avoid this, null id check using LinetypeTableRecord.ShapeStyleAt can be used. This method returns null, if text is not present at an index in the LinetypeTableRecord.

Here is a quick sample to check if text is present prior to extraction of the text :  

[CommandMethod("lineTypeText")]
public void lineTypeText() {
Document doc = Application.DocumentManager.MdiActiveDocument;
Database db = doc.Database;
Transaction tr = db.TransactionManager.StartTransaction();

Editor ed = doc.Editor;
using (tr) {
DBObject tmpObj = tr.GetObject(db.LinetypeTableId, OpenMode.ForRead);
LinetypeTable pLineTable = (LinetypeTable)tmpObj;
if ((pLineTable != null)) {
	foreach (ObjectId tblRecId in pLineTable) {

		LinetypeTableRecord pLineType = (LinetypeTableRecord)tr.GetObject(tblRecId, OpenMode.ForRead);
		if ((pLineType != null)) {
			for (int dash = 0; dash < pLineType.NumDashes; dash++) {
				/* LinetypeTableRecord.ShapeStyleAt returns the ObjectId of the TextStyleTableRecord of the shape 
				(or textStyle if it's a text string instead of a shape) at position index in the LinetypeTableRecord.
				If there is no shape or text at index, then Null is returned.*/
				ObjectId objIdShape = pLineType.ShapeStyleAt(dash);
				if (objIdShape != ObjectId.Null) {
					string pText = "";
					pText = pLineType.TextAt(dash);
					if (pText == "") {
						ed.WriteMessage("no dash text ");
					} else {
						ed.WriteMessage("dash :" + dash.ToString());
						ed.WriteMessage("\ndash text :" + pText);
					}

				}
			}
		}
	}
}

}
}

The output generated by this code snippet is as seen in this screenshot :

  

 

 

 

 

 

 

 

 

 

 

Update:  The above code is not equipped to handle shape\symbol in linetype. You can use the LinetypeTableRecord.ShapeNumberAt API to determine if shape exists. It returns 0 if shape does not exist. Below is the modified code that Can be used for testing : 

[CommandMethod("lineTypeText")]
public void lineTypeText()
{
    Document doc = Application.DocumentManager.MdiActiveDocument;
    Database db = doc.Database;
    Transaction tr = db.TransactionManager.StartTransaction();
 
    Editor ed = doc.Editor;
    using (tr)
    {
        DBObject tmpObj = tr.GetObject(db.LinetypeTableId, OpenMode.ForRead);
        LinetypeTable pLineTable = (LinetypeTable)tmpObj;
        if ((pLineTable != null))
        {
            foreach (ObjectId tblRecId in pLineTable)
            {
 
                LinetypeTableRecord pLineType = (LinetypeTableRecord)tr.GetObject(tblRecId, OpenMode.ForRead);
                if ((pLineType != null))
                {
                    for (int dash = 0; dash < pLineType.NumDashes; dash++)
                    {
                        ObjectId objIdShape = pLineType.ShapeStyleAt(dash); //If there is no shape or text at index, then Null is returned.
 
                        int shpNum = pLineType.ShapeNumberAt(dash);
                        if (objIdShape != ObjectId.Null)
                        {
                            ed.WriteMessage("text or shape exist;");
                            string pText = "";
                            //returns 0 if there is no shape\symbol at the index, which means text exist in this context
                            if (shpNum == 0)
                            {
                                pText = pLineType.TextAt(dash);                                       
                                ed.WriteMessage(" dash text :" + pText );
                            }
                            ed.WriteMessage("\n");
 
                        }
                    }
                }
            }
        }
 
    }
}

Rollup of a custom docked PaletteSet using .NET API

By Deepak Nadig

This is my first post of 2017 and here is wishing you all a "Happy New Year" :-)

Recently, we had a query from an ADN partner:
How to roll up a docked and hidden custom PaletteSet using.NET  API ?

The behaviour the ADN partner is expecting to be accomplished using .NET API can be seen in the below screencast:  

With the help of my colleague Madhu, we figured out the answer is to set PaletteSet.RolledUp to false.

In the below code, command MyPalette launches a docked palette and command ExpandPalette rolls up the palette. Subsequently, screencast shows the testing of the code.

public class MyCommands
{
    static System.Windows.Forms.Timer Clock;
    public static PaletteSet m_ps = null;
    [CommandMethod("MyPalette")]
    public void MyPalette()
    {
        if (m_ps == null)
        {
            m_ps = new PaletteSet("My Palette 1",
            new Guid("170B0084-7B01-487E-9CBC-C7018588F26F"));
            m_ps.SetLocation(new System.Drawing.Point(312, 763));
            m_ps.SetSize(new System.Drawing.Size(909, 40));
            m_ps.DockEnabled = DockSides.Bottom;
            if (m_ps.Dock == DockSides.None)
            {
                m_ps.AutoRollUp = true;
                m_ps.Visible = false;
                m_ps.Visible = true;
            }
            // If the palette is docked,
            // we need to undock it first.
            else
            {
                m_ps.Visible = false;
                m_ps.Visible = true;
                CreateTimer();
            }
        }
        m_ps.Visible = true;
    }
    public static void CreateTimer()
    {
        Clock = new System.Windows.Forms.Timer();
        Clock.Interval = 500;
        Clock.Start();
        Clock.Tick += new EventHandler(Timer_Tick);
    }
    static public void Timer_Tick(object sender,
    EventArgs eArgs)
    {
        if (sender == Clock)
        {
            m_ps.Dock = DockSides.None;
            m_ps.AutoRollUp = true;
            m_ps.Dock = DockSides.Left;
            // Note: we need to update the palette
            // window. I found turning it off and
            // on is the most robust way.
            m_ps.Visible = false;
            m_ps.Visible = true;
            // Stop the clock and destroy it.
            Clock.Stop();
            Clock.Dispose();
        }
    }
    [CommandMethod("ExpandPalette")]
    public static void CheckPaletteSetState()
    {
        if (m_ps != null)
        {
            m_ps.RolledUp = false;
        }
    }
}

  Screencast : 

 

Extracting XML data of selected objects from current drawing using .NET

By Deepak Nadig

Here is a blog by Kean Walmsley, which demonstrates Extracting XML data from drawings.

To extract data from the selected objects of current drawing, following modification to the code in the Kean's blog is required :

1) Current drawing name and path can be used in place of that of the external file.
2) Create a List<Handle> of selected objects.
2) The List<Handle> of selected objects to be assigned to the API "IDxDrawingDataExtractor.Settings.SelectedObjects"

Here is the modified code: 

using System;
using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.Geometry;
using Autodesk.AutoCAD.EditorInput;
using System.Collections;
using System.Collections.Specialized;
using System.Collections.Generic;
using Autodesk.AutoCAD.DataExtraction;
using System.IO;
namespace DataExtraction
{
// This class is instantiated by AutoCAD for each document when
 // a command is called by the user the first time in the context
 // of a given document. In other words, non static data in this class
 // is implicitly per-document!
 public class MyCommands
 {
 const string outputXmlFile =
 @"c:\temp\ExtAttr.xml";
[CommandMethod("extd")]
 public void extractData()
 {
 Document doc = Application.DocumentManager.MdiActiveDocument;
 Database db = doc.Database;
 Editor ed = doc.Editor;
 string fileName = Path.GetFileName(doc.Name); 
 string path = Path.GetDirectoryName(doc.Name) + "\\";
try
 {
 if (!System.IO.File.Exists(path + fileName))
 {
 ed.WriteMessage("\nFile does not exist.");
 return;
 }
//List to get handle of all the selected objects
 List<Handle> selObjsHandle = new List<Handle>();
PromptSelectionResult selectionRes = ed.SelectImplied();
 // If there's no pickfirst set available...
 if (selectionRes.Status == PromptStatus.Error)
 {
 // ... ask the user to select entities
 PromptSelectionOptions selectionOpts = new PromptSelectionOptions();
 selectionOpts.MessageForAdding = "\nSelect objects to extract data: ";
 selectionRes = ed.GetSelection(selectionOpts);
 }
 else
 {
 // If there was a pickfirst set, clear it
 ed.SetImpliedSelection(new ObjectId[0]);
 }
// If the user has not cancelled...
 if (selectionRes.Status == PromptStatus.OK)
 {
 // ... take the selected objects one by one
 Transaction tr =
 doc.TransactionManager.StartTransaction();
 try
 {
 ObjectId[] objIds =
 selectionRes.Value.GetObjectIds();
 foreach (ObjectId objId in objIds)
 {
DBObject obj =
 tr.GetObject(objId, OpenMode.ForRead);
 Entity ent = (Entity)obj;
 // This time access the properties directly
 ed.WriteMessage("\n Handle: " + ent.Handle.ToString());
 selObjsHandle.Add(ent.Handle);
 obj.Dispose();
 }
 // Although no changes were made, use Commit()
 // as this is much quicker than rolling back
 tr.Commit();
 }
 catch (Autodesk.AutoCAD.Runtime.Exception ex)
 {
 ed.WriteMessage(ex.Message);
 tr.Abort();
 }
 }
// Create some settings for the extraction
IDxExtractionSettings es =
 new DxExtractionSettings();
IDxDrawingDataExtractor de =
 es.DrawingDataExtractor;
de.Settings.ExtractFlags =
 ExtractFlags.ModelSpaceOnly |
 ExtractFlags.XrefDependent |
 ExtractFlags.Nested;
// Add a single file to the settings
IDxFileReference fr =
 new DxFileReference(path, path + fileName);
de.Settings.DrawingList.AddFile(fr);
//selected objects handle list assigned to IDxDrawingDataExtractor
 de.Settings.SelectedObjects = selObjsHandle;
// Scan the drawing for object types & their properties
 de.DiscoverTypesAndProperties(path);
List<IDxTypeDescriptor> types = de.DiscoveredTypesAndProperties;
// Select all the types and properties for extraction
 // by adding them one-by-one to these two lists
List<string> selTypes = new List<string>();
 List<string> selProps = new List<string>();
foreach (IDxTypeDescriptor type in types)
 {
 selTypes.Add(type.GlobalName);
 foreach (
 IDxPropertyDescriptor pr in type.Properties
 )
 {
 if (!selProps.Contains(pr.GlobalName))
 selProps.Add(pr.GlobalName);
 }
 }
// Pass this information to the extractor
 de.Settings.SetSelectedTypesAndProperties(
 types,
 selTypes,
 selProps
 );
// Now perform the extraction itself
 de.ExtractData(path);
// Get the results of the extraction
 System.Data.DataTable dataTable =
 de.ExtractedData;
// Output the extracted data to an XML file
if (dataTable.Rows.Count > 0)
 {
 dataTable.TableName = "My_Data_Extract";
 dataTable.WriteXml(outputXmlFile);
 }
}
 catch (Autodesk.AutoCAD.Runtime.Exception ex)
 {
 ed.WriteMessage(ex.Message);
 }
 }
}
}
 

Creating a simple Polygon Mesh

By Deepak Nadig

Here is a sample code to create a simple Polygon mesh using ObjectARX. When AcDbPolygonMesh() constructor is used without any parameters,vertex count in M and N directions has to be set explicitly and it needs to be specified if PolygonMesh is to be open or closed in M and N directions. 

void createSimplePolygonMesh() 
{
 // polyline creation 
 AcGePoint3dArray ptArr;
 ptArr.setLogicalLength(4);
 for (int i = 0; i < 4; i++) 
 {
 ptArr[i].set((double)(i/2), (double)(i%2), 0.0);
 }
 AcDb2dPolyline *pNewPline = new AcDb2dPolyline( AcDb::k2dSimplePoly, ptArr, 0.0, Adesk::kTrue);
 pNewPline->setColorIndex(3);
//polygon mesh constructor without any parameter
 AcDbPolygonMesh *pMesh = new AcDbPolygonMesh(); 
 pMesh->setMSize(1);
 pMesh->setNSize(4);
 pMesh->makeMClosed();
 pMesh->makeNClosed();
AcDbVoidPtrArray arr; 
 arr.append(pMesh);
AcDbBlockTable *pBlockTable;
 acdbHostApplicationServices()->workingDatabase()->getSymbolTable(pBlockTable, AcDb::kForRead);
AcDbBlockTableRecord *pBlockTableRecord;
 pBlockTable->getAt(ACDB_MODEL_SPACE, pBlockTableRecord,AcDb::kForWrite);
 pBlockTable->close();
AcDbObjectId plineObjId;
 pBlockTableRecord->appendAcDbEntity(plineObjId,pNewPline);
AcDbObjectIterator *pVertIter= pNewPline->vertexIterator();
 AcDb2dVertex *pVertex;
 AcGePoint3d location;
 AcDbObjectId vertexObjId; 
 for (int vertexNumber = 0; !pVertIter->done();
 vertexNumber++, pVertIter->step())
 {
 vertexObjId = pVertIter->objectId();
 acdbOpenObject(pVertex, vertexObjId,
 AcDb::kForRead);
 location = pVertex->position();
 pVertex->close(); 
 AcDbPolygonMeshVertex* polyVertex = new AcDbPolygonMeshVertex(pVertex->position()); 
 pMesh->appendVertex(polyVertex);
 polyVertex->close();
 }
 delete pVertIter;
pBlockTableRecord->appendAcDbEntity(pMesh);
 pBlockTableRecord->close();
 pNewPline->close();
 pMesh->close(); 
}