测量展点程序，开源啦~

 
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.IO;
using System.Linq;
using System.Text;
using Autodesk..ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.Geometry;
using Autodesk.AutoCAD.Interop;
using Autodesk.AutoCAD.Interop.Common;
using Autodesk.AutoCAD.Runtime;
      [CommandMethod("PointOutNet")]
        public void PointOutNet()
        {           
            //MessageBox.Show("");
            List files=new List ();
            System.Windows.Forms.OpenFileDialog openDialog = new System.Windows.Forms.OpenFileDialog();
            openDialog.Multiselect = true;
            openDialog.Filter = "数据文件|*.dat";
            openDialog.Title = "选择数据文件(可多选)";
            openDialog.RestoreDirectory = false;
            if (openDialog.ShowDialog() == System.Windows.Forms.DialogResult.OK)
            { 
                foreach (string file in openDialog.FileNames)
                {
                    files.Add(file);
                }
            }
            foreach (string file in files)
            {
                PointOutNet(file);
            }
        }
        public void PointOutNet(string FileName)
        {
            Document doc = Application.DocumentManager.MdiActiveDocument;
            Database db = doc.Database;
            Editor ed = doc.Editor;
            string[] strArray;
            List data = new List();
            List dataNew = new List(); 
            FileStream fStream = new FileStream(FileName, FileMode.Open);
            StreamReader sReader = new StreamReader(fStream);
            string dataRow = sReader.ReadLine();
            while (dataRow != null)
            {
                data.Add(dataRow);
                dataRow = sReader.ReadLine();
            }
           sReader.Close();
            foreach (string pt in data)
            {
                strArray = pt.Split(new char[] { ',' });
                if (strArray.Length >= 5)
                {
                    dataNew.Add(strArray);
                }                
            }
            using (Transaction trans = db.TransactionManager.StartTransaction())
            {
                BlockTable bt = (BlockTable)trans.GetObject(db.BlockTableId, OpenMode.ForRead);
                BlockTableRecord btr = (BlockTableRecord)trans.GetObject(bt[BlockTableRecord.ModelSpace], OpenMode.ForWrite);
                foreach (string[] pt in dataNew)
                {                      
                    double y = Convert.ToDouble(pt[2]);
                    double x = Convert.ToDouble(pt[3]);
                    double h = Convert.ToDouble(pt[4]);
                    Point3d p1 = new Point3d(y, x, h);
                    DBPoint newPoint = new DBPoint(p1);
                    btr.AppendEntity(newPoint);
                    trans.AddNewlyCreatedDBObject(newPoint, true);
                }
                trans.Commit();
            }
        }

 _Public Sub addRibbon() 'MessageBox.Show(""); Dim files As New List(Of String)() Dim openDialog As New System.Windows.Forms.OpenFileDialog() openDialog.Multiselect = True openDialog.Filter = "数据文件|*.dat" openDialog.Title = "选择数据文件(可多选)" openDialog.RestoreDirectory = False If openDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then  For Each file As String In openDialog.FileNames   files.Add(file)  Next End If For Each file As String In files  PointOutNet(file) NextEnd SubPublic Sub PointOutNet(FileName As String) Dim doc As Document = Application.DocumentManager.MdiActiveDocument Dim db As Database = doc.Database Dim ed As Editor = doc.Editor Dim strArray As String() Dim data As New List(Of String)() Dim dataNew As New List(Of String())() Dim fStream As New FileStream(FileName, FileMode.Open) Dim sReader As New StreamReader(fStream) Dim dataRow As String = sReader.ReadLine() While dataRow IsNot Nothing  data.Add(dataRow)  dataRow = sReader.ReadLine() End While sReader.Close() For Each pt As String In data  strArray = pt.Split(New Char() {","C})  If strArray.Length >= 5 Then   dataNew.Add(strArray)  End If Next Using trans As Transaction = db.TransactionManager.StartTransaction()  Dim bt As BlockTable = DirectCast(trans.GetObject(db.BlockTableId, OpenMode.ForRead), BlockTable)  Dim btr As BlockTableRecord = DirectCast(trans.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite), BlockTableRecord)  For Each pt As String() In dataNew   Dim y As Double = Convert.ToDouble(pt(2))   Dim x As Double = Convert.ToDouble(pt(3))   Dim h As Double = Convert.ToDouble(pt(4))   Dim p1 As New Point3d(y, x, h)   Dim newPoint As New DBPoint(p1)   btr.AppendEntity(newPoint)   trans.AddNewlyCreatedDBObject(newPoint, True)  Next  trans.Commit() End UsingEnd Sub

 Public Sub PointOutNet()
        'MessageBox.Show(""); 
        Dim files As New List(Of String)()
        Dim openDialog As New System.Windows.Forms.OpenFileDialog()
        openDialog.Multiselect = True
        openDialog.Filter = "数据文件|*.dat"
        openDialog.Title = "选择数据文件(可多选)"
        openDialog.RestoreDirectory = False
        If openDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            For Each file As String In openDialog.FileNames
                files.Add(file)
            Next
        End If
        For Each file As String In files
            PointOutNet(file)
        Next
    End Sub
    Public Sub PointOutNet(ByVal FileName As String)
        Dim doc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
        Dim db As Database = doc.Database
        Dim ed As Editor = doc.Editor
        Dim strArray As String()
        Dim data As New List(Of String)()
        Dim dataNew As New List(Of String())()
        Dim fStream As New FileStream(FileName, FileMode.Open)
        Dim sReader As New StreamReader(fStream)
        Dim dataRow As String = sReader.ReadLine()
        While dataRow IsNot Nothing
            data.Add(dataRow)
            dataRow = sReader.ReadLine()
        End While
        sReader.Close()
        For Each pt As String In data
            strArray = pt.Split(New Char() {","c})
            If strArray.Length >= 5 Then
                dataNew.Add(strArray)
            End If
        Next
        Using trans As Transaction = db.TransactionManager.StartTransaction()
            Dim bt As BlockTable = DirectCast(trans.GetObject(db.BlockTableId, OpenMode.ForRead), BlockTable)
            Dim btr As BlockTableRecord = DirectCast(trans.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite), BlockTableRecord)
            For Each pt As String() In dataNew
                Dim y As Double = Convert.ToDouble(pt(2))
                Dim x As Double = Convert.ToDouble(pt(3))
                Dim h As Double = Convert.ToDouble(pt(4))
                Dim p1 As New Point3d(y, x, h)
                Dim newPoint As New DBPoint(p1)
                btr.AppendEntity(newPoint)
                trans.AddNewlyCreatedDBObject(newPoint, True)
            Next
            trans.Commit()
        End Using
    End Sub