using System;

using System.Text;

using Autodesk.AutoCAD.ApplicationServices;

using Autodesk.AutoCAD.Runtime;

using Autodesk.AutoCAD.DatabaseServices;

using Autodesk.AutoCAD.EditorInput;

using Autodesk.AutoCAD.Geometry;

using System.IO;

[assembly:CommandClass(typeof(提拐点坐标.Class1))]

/*Copyright © 519 2008



AutoCAD version:AutoCAD 2008

Description:



To use 提拐点坐标.dll:



1. Start AutoCAD and open a new drawing.

2. Type netload and select 提拐点坐标.dll.

3. Execute the Test command.



Autodesk references added to this project are acdbmgd.dll,acmgd.dll.*/



namespace 提拐点坐标

{

/// <summary>

/// Summary for Class1.

/// </summary>

public class Class1:IExtensionApplication

    {

public void Initialize()

        {

            Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor.WriteMessage("\n调试程序命令GD");//初始化操作

        }

public void Terminate()

        {

//清除操作

        }

        Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;

        Database db = Autodesk.AutoCAD.DatabaseServices.HostApplicationServices.WorkingDatabase;

        Autodesk.AutoCAD.DatabaseServices.TransactionManager tm = Autodesk.AutoCAD.DatabaseServices.HostApplicationServices.WorkingDatabase.TransactionManager;

        [CommandMethod("GD")]

public void Test()

        {

try

            {

                Transaction trans = tm.StartTransaction();

using (trans)

                {

                    BlockTable bt = (BlockTable)trans.GetObject(db.BlockTableId, OpenMode.ForRead);

                    BlockTableRecord btr = (BlockTableRecord)trans.GetObject(db.CurrentSpaceId, OpenMode.ForWrite);

                    PromptSelectionOptions ps = new PromptSelectionOptions();

                    ps.MessageForAdding = "选择要提取的多段线";

                    TypedValue[] filter ={ new TypedValue(0, "LWPOLYLINE") };

                     PromptSelectionResult sr = ed.GetSelection(ps, new SelectionFilter(filter));

if (sr.Status == PromptStatus.OK && sr.Value.Count != 0)

                    {

                        StreamWriter sw = new StreamWriter(@"c://点坐标.txt");

                        ObjectId[] ss = sr.Value.GetObjectIds();

foreach (ObjectId obj in ss)

                        {

                            Polyline pl = (Polyline)trans.GetObject(obj, OpenMode.ForRead);

int vn = pl.NumberOfVertices;

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

                            {

                                Point3d pt3d = pl.GetPoint3dAt(i);

                                sw.WriteLine(pt3d.ToString());

                            }

                        }

                        sw.Close();

                        System.Diagnostics.Process.Start("notepad.exe", @"c://点坐标.txt");

                    }                  

                }

            }

finally

            { }

        }

    }

}