测量展点程序，开源啦~

mrhvslisp · 发表于 2013-5-21 22:36:58

本帖最后由 mrhvslisp 于 2013-5-21 22:58 编辑

程序VS2008写的For CAD2010
测量数据文件格式：
1,kz,22,22,35
2,p,25,25,86
3,f,58,756,96
依此类推

using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.IO;
using System.Linq;
using System.Text;
using Autodesk.AutoCAD.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<string> files=new List<string> ();
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<string> data = new List<string>();
List<string[]> dataNew = new List<string[]>();
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();
}
}

using System; 
using System.Collections; 
using System.Collections.Generic; 
using System.Data; 
using System.IO; 
using System.Linq; 
using System.Text; 
using Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.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<string> files=new List<string> (); 
 
            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<string> data = new List<string>(); 
            List<string[]> dataNew = new List<string[]>(); 
            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(); 
            } 
        }

liuxu042 · 发表于 2013-5-22 08:43:26

支持，这个实现起来倒不难，两个com引用没用到，去掉多好

绒绒 · 发表于 2013-5-22 09:50:41

<CommandMethod("addRibbon")> _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

绒绒 · 发表于 2013-5-22 09:51:31

VB版本，怎么这么乱？

<CommandMethod("addRibbon")> _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

<CommandMethod("addRibbon")> _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

绒绒 · 发表于 2013-5-22 09:54:27

能帮我删了吗，太乱了！

绒绒 · 发表于 2013-5-22 10:17:08

好东西，谢谢楼主！

<CommandMethod("PointOutNet")> 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

<CommandMethod("PointOutNet")> 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

lzx838 · 发表于 2013-5-24 22:17:06

支持开源，虽然功能比我以前写的简单些．贵在共享！

账号		自动登录	找回密码
密码			注册

测量展点程序，开源啦~

相关帖子

浏览过的版块