EntLast EntNext

csharp

http://www.theswamp.org/index.php?topic=37409.50;wap2

I'd guess that your translation may be skewey.

Can you post the VB.net code you used for each or post he solution zipped so I can test it here.


huiz:
I thought they did work in C# but unfortunately not in vb. Here are the examples in vb:


--- Code: ---<CommandMethod("InsDXF7")> _
Public Sub InsDXF7()
        Dim doc As Document = AcadApp.DocumentManager.MdiActiveDocument
        Dim ed As Editor = doc.Editor
        Dim db As Database = doc.Database
        Dim tmpDb As New Database(False, True)

        tmpDb.DxfIn("K:\ToTest\Squircle.dxf", "K:\ToTest\Squircle.log")
        Dim pnt1 As New Point3d(0, 0, 0)
        Dim pnt2 As New Point3d(1000, 1000, 0)
        Dim scale As Double = 10.0
        Dim vector As New Vector3d(0, 0, 0)

        Dim transform As Matrix3d = Matrix3d.Scaling(scale, pnt2) * Matrix3d.Displacement(pnt1.GetVectorTo(pnt2))
        Dim lastEnt As ObjectId = AcUtils.EntLast()
        Dim newColor As Autodesk.AutoCAD.Colors.Color = Autodesk.AutoCAD.Colors.Color.FromColorIndex(Autodesk.AutoCAD.Colors.ColorMethod.ByAci, 1)

        db.Insert(transform, tmpDb, True)

        Using tr As Transaction = doc.TransactionManager.StartTransaction()
        ' if the db was empty lastent will be null        
        Try
        If lastEnt = ObjectId.Null Then
        lastEnt = AcUtils.EntFirst()
        idColl.Add(lastEnt)
        End If
        Dim nextent As ObjectId = AcUtils.EntNext(lastEnt)
        While nextent <> ObjectId.Null
        idColl.Add(nextent)
        nextent = AcUtils.EntNext(nextent)
        End While

        For Each id As ObjectId In idColl
        Dim acEntity As Entity = DirectCast(tr.GetObject(id, OpenMode.ForWrite), Entity)
        acEntity.Color = newColor
        Next
        Catch exx As Autodesk.AutoCAD.Runtime.Exception
        ed.WriteMessage(vbLf & exx.ToString())
        End Try
        tr.Commit()
        End Using
End Sub

--- End code ---


--- Code: ---<CommandMethod("InsDXF8")> _
Public Sub InsDXF8()
        Dim doc As Document = AcadApp.DocumentManager.MdiActiveDocument
        Dim ed As Editor = doc.Editor
        Dim db As Database = doc.Database
        Dim tmpDb As New Database(False, True)

        tmpDb.DxfIn("K:\ToTest\Squircle.dxf", "K:\ToTest\Squircle.log")
        Dim pnt1 As New Point3d(0, 0, 0)
        Dim pnt2 As New Point3d(1000, 1000, 0)
        Dim scale As Double = 10.0
        Dim vector As New Vector3d(0, 0, 0)

        Dim transform As Matrix3d = Matrix3d.Scaling(scale, pnt2) * Matrix3d.Displacement(pnt1.GetVectorTo(pnt2))
        Dim idColl As New ObjectIdCollection()
        Dim lastEnt As ObjectId = AcUtils.EntLast()
        Dim acEntity As Entity
        Dim newColor As Autodesk.AutoCAD.Colors.Color = Autodesk.AutoCAD.Colors.Color.FromColorIndex(Autodesk.AutoCAD.Colors.ColorMethod.ByAci, 1)

        db.Insert(transform, tmpDb, True)

        Using tr As Transaction = doc.TransactionManager.StartTransaction()
        ' if the db was empty lastent will be null   
        Try
        If lastEnt = ObjectId.Null Then
        lastEnt = AcUtils.EntFirst()
        acEntity = DirectCast(tr.GetObject(lastEnt, OpenMode.ForWrite), Entity)
        acEntity.Color = newColor
        End If
        Dim nextent As ObjectId = AcUtils.EntNext(lastEnt)

        While nextent <> ObjectId.Null
        acEntity = DirectCast(tr.GetObject(nextent, OpenMode.ForWrite), Entity)
        acEntity.Color = newColor
        nextent = AcUtils.EntNext(nextent)
        End While
        Catch exx As Autodesk.AutoCAD.Runtime.Exception
        ed.WriteMessage(vbLf & exx.ToString())
        End Try
        tr.Commit()
        End Using
End Sub

--- End code ---


--- Code: ---<CommandMethod("InsDXF9")> _
Public Sub InsDXF9()
        Dim doc As Document = AcadApp.DocumentManager.MdiActiveDocument
        Dim ed As Editor = doc.Editor
        Dim db As Database = doc.Database
        Dim tmpDb As New Database(False, True)

        tmpDb.DxfIn("K:\ToTest\Squircle.dxf", "K:\ToTest\Squircle.log")
        Dim pnt1 As New Point3d(0, 0, 0)
        Dim pnt2 As New Point3d(1000, 1000, 0)
        Dim scale As Double = 10.0
        Dim vector As New Vector3d(0, 0, 0)

        Dim transform As Matrix3d = Matrix3d.Scaling(scale, pnt2) * Matrix3d.Displacement(pnt1.GetVectorTo(pnt2))
        Dim idColl As New ObjectIdCollection()
        Dim acEntity As Entity
        Dim newColor As Autodesk.AutoCAD.Colors.Color = Autodesk.AutoCAD.Colors.Color.FromColorIndex(Autodesk.AutoCAD.Colors.ColorMethod.ByAci, 1)

        Using tr As Transaction = tmpDb.TransactionManager.StartTransaction()
        Try
        Dim tmpDbBlockTable As BlockTable = DirectCast(tr.GetObject(tmpDb.BlockTableId, OpenMode.ForRead), BlockTable)
        Dim tmpDbModelSpace As BlockTableRecord = DirectCast(tr.GetObject(tmpDbBlockTable(BlockTableRecord.ModelSpace), OpenMode.ForWrite), BlockTableRecord)

        For Each id As ObjectId In tmpDbModelSpace
        acEntity = DirectCast(tr.GetObject(id, OpenMode.ForWrite), Entity)
        acEntity.Color = newColor
        Next
        tr.Commit()
        Catch exx As Autodesk.AutoCAD.Runtime.Exception
        ed.WriteMessage(vbLf & exx.ToString())
        End Try
        End Using

        db.Insert(transform, tmpDb, True)

End Sub

--- End code ---


Kerry:
Give these a run ...
(Code solution .ZIP attached)




--- Code: ---
Option Explicit On
Option Strict On

Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.EditorInput

Imports Autodesk.AutoCAD.Colors
Imports Utils = Autodesk.AutoCAD.Internal.Utils

<Assembly: CommandClass(GetType(InsertDXF.MyCommands))>

Namespace InsertDXF

    Public Class MyCommands


   '' < snip >

    End Class

End Namespace

--- End code ---


--- Code: ---
        <CommandMethod("InsDXF7")> _
        Public Sub InsDXF7()
            Dim doc As Document = Application.DocumentManager.MdiActiveDocument
            Dim ed As Editor = doc.Editor
            Dim db As Database = doc.Database
            Dim tmpDb As New Database(False, True)
            tmpDb.DxfIn("K:\\ToTest\\Squircle.dxf", "K:\ToTest\\Squircle.log")
            Dim pnt1 As New Point3d(0, 0, 0)
            Dim pnt2 As New Point3d(1000, 1000, 0)
            Dim scale As Double = 10
            Dim vector As New Vector3d(0, 0, 0)
            Dim transform As Matrix3d = (Matrix3d.Scaling(scale, pnt2) _
                                         * Matrix3d.Displacement(pnt1.GetVectorTo(pnt2)))
            Dim idColl As New ObjectIdCollection
            Dim lastEnt As ObjectId = Utils.EntLast
            Dim newColor As Color = Color.FromColorIndex(ColorMethod.ByAci, 1)
            db.Insert(transform, tmpDb, True)
            Using tr As Transaction = doc.TransactionManager.StartTransaction
                Try
                    If (lastEnt = ObjectId.Null) Then
                        lastEnt = Utils.EntFirst
                        idColl.Add(lastEnt)
                    End If

                    Dim nextent As ObjectId = Utils.EntNext(lastEnt)
                    Do While (nextent <> ObjectId.Null)
                        idColl.Add(nextent)
                        nextent = Utils.EntNext(nextent)
                    Loop

                    Dim id As ObjectId
                    For Each id In idColl
                        Dim acEntity As Entity = DirectCast(tr.GetObject( _
                                id, OpenMode.ForWrite), Entity)
                        acEntity.Color = newColor
                    Next

                Catch exx As Autodesk.AutoCAD.Runtime.Exception
                    ed.WriteMessage((ChrW(10) & exx.ToString))
                End Try
                tr.Commit()
            End Using
        End Sub

--- End code ---



--- Code: ---
        <CommandMethod("InsDXF8")> _
        Public Sub InsDXF8()
            Dim doc As Document = Application.DocumentManager.MdiActiveDocument
            Dim ed As Editor = doc.Editor
            Dim db As Database = doc.Database
            Dim tmpDb As New Database(False, True)
            tmpDb.DxfIn("K:\\ToTest\\Squircle.dxf", "K:\\ToTest\\Squircle.log")
            Dim pnt1 As New Point3d(0, 0, 0)
            Dim pnt2 As New Point3d(1000, 1000, 0)
            Dim scale As Double = 10
            Dim vector As New Vector3d(0, 0, 0)
            Dim transform As Matrix3d = (Matrix3d.Scaling(scale, pnt2) _
                                         * Matrix3d.Displacement(pnt1.GetVectorTo(pnt2)))
            Dim idColl As New ObjectIdCollection
            Dim lastEnt As ObjectId = Utils.EntLast
            Dim newColor As Color = Color.FromColorIndex(ColorMethod.ByAci, 1)
            db.Insert(transform, tmpDb, True)
            Using tr As Transaction = doc.TransactionManager.StartTransaction
                Try
                    Dim acEntity As Entity
                    If (lastEnt = ObjectId.Null) Then
                        lastEnt = Utils.EntFirst
                        acEntity = DirectCast(tr.GetObject( _
                                lastEnt, OpenMode.ForWrite), Entity)
                        acEntity.Color = newColor
                    End If

                    Dim nextent As ObjectId = Utils.EntNext(lastEnt)
                    Do While (nextent <> ObjectId.Null)
                        acEntity = DirectCast(tr.GetObject( _
                                nextent, OpenMode.ForWrite), Entity)
                        acEntity.Color = newColor
                        nextent = Utils.EntNext(nextent)
                    Loop
                Catch exx As Autodesk.AutoCAD.Runtime.Exception
                    ed.WriteMessage((ChrW(10) & exx.ToString))
                End Try
                tr.Commit()
            End Using
        End Sub

--- End code ---


--- Code: ---
       <CommandMethod("InsDXF9")> _
        Public Sub InsDXF9()
            Dim doc As Document = Application.DocumentManager.MdiActiveDocument
            Dim ed As Editor = doc.Editor
            Dim db As Database = doc.Database
            Dim tmpDb As New Database(False, True)
            tmpDb.DxfIn("K:\\ToTest\\Squircle.dxf", "K:\\ToTest\Squircle.log")
            Dim pnt1 As New Point3d(0, 0, 0)
            Dim pnt2 As New Point3d(1000, 1000, 0)
            Dim scale As Double = 10
            Dim vector As New Vector3d(0, 0, 0)
            Dim transform As Matrix3d = (Matrix3d.Scaling(scale, pnt2) _
                                         * Matrix3d.Displacement(pnt1.GetVectorTo(pnt2)))
            Dim newColor As Color = Color.FromColorIndex(ColorMethod.ByAci, 1)
            Dim tr As Transaction = tmpDb.TransactionManager.StartTransaction
            Try
                Dim tmpDbBlockTable As BlockTable = DirectCast(tr.GetObject( _
                        tmpDb.BlockTableId, OpenMode.ForRead), BlockTable)
                Dim tmpDbModelSpace As BlockTableRecord = DirectCast(tr.GetObject( _
                        tmpDbBlockTable.Item(BlockTableRecord.ModelSpace), _
                        OpenMode.ForWrite), BlockTableRecord)

                Dim id As ObjectId
                For Each id In tmpDbModelSpace
                    Dim acEntity As Entity = DirectCast(tr.GetObject( _
                            id, OpenMode.ForWrite), Entity)
                    acEntity.Color = newColor
                Next

                tr.Commit()
            Catch exx As Autodesk.AutoCAD.Runtime.Exception
                ed.WriteMessage((ChrW(10) & exx.ToString))
            Finally
                If (Not tr Is Nothing) Then
                    tr.Dispose()
                End If
            End Try
            db.Insert(transform, tmpDb, True)
        End Sub

--- End code ---


kaefer:

--- Quote from: Kerry on March 29, 2011, 02:35:49 am ---
--- Code: ---Option Explicit On
Option Strict On

--- End code ---

--- End quote ---

Does the culprit sit right here?  

Cheers, Thorsten (missing bargepole, won't do VB)

Kerry:

--- Quote from: kaefer on March 29, 2011, 03:18:43 am ---
--- Quote from: Kerry on March 29, 2011, 02:35:49 am ---
--- Code: ---Option Explicit On
Option Strict On

--- End code ---

--- End quote ---

Does the culprit sit right here?  

Cheers, Thorsten (missing bargepole, won't do VB)

--- End quote ---

Don't know Thorsten, but it didn't seen correct to me to code with them off .... but that's probably just me :)

I've decided I need to at least be able to read VB and write a little ... as much as I hate the Dim word  :-P

ScmTools

以下是原贴中的VB代码

1. 
   
2.         Public Sub InsDXF7()
   
3.             Dim doc As Document = Application.DocumentManager.MdiActiveDocument
   
4.             Dim ed As Editor = doc.Editor
   
5.             Dim db As Database = doc.Database
   
6.             Dim tmpDb As New Database(False, True)
   
7.             tmpDb.DxfIn("K:\\ToTest\\Squircle.dxf", "K:\ToTest\\Squircle.log")
   
8.             Dim pnt1 As New Point3d(0, 0, 0)
   
9.             Dim pnt2 As New Point3d(1000, 1000, 0)
   
10.             Dim scale As Double = 10
    
11.             Dim vector As New Vector3d(0, 0, 0)
    
12.             Dim transform As Matrix3d = (Matrix3d.Scaling(scale, pnt2) _
    
13.                                          * Matrix3d.Displacement(pnt1.GetVectorTo(pnt2)))
    
14.             Dim idColl As New ObjectIdCollection
    
15.             Dim lastEnt As ObjectId = Utils.EntLast
    
16.             Dim newColor As Color = Color.FromColorIndex(ColorMethod.ByAci, 1)
    
17.             db.Insert(transform, tmpDb, True)
    
18.             Using tr As Transaction = doc.TransactionManager.StartTransaction
    
19.                 Try
    
20.                     If (lastEnt = ObjectId.Null) Then
    
21.                         lastEnt = Utils.EntFirst
    
22.                         idColl.Add(lastEnt)
    
23.                     End If
    
24. 
    
25.                     Dim nextent As ObjectId = Utils.EntNext(lastEnt)
    
26.                     Do While (nextent <> ObjectId.Null)
    
27.                         idColl.Add(nextent)
    
28.                         nextent = Utils.EntNext(nextent)
    
29.                     Loop
    
30. 
    
31.                     Dim id As ObjectId
    
32.                     For Each id In idColl
    
33.                         Dim acEntity As Entity = DirectCast(tr.GetObject( _
    
34.                                 id, OpenMode.ForWrite), Entity)
    
35.                         acEntity.Color = newColor
    
36.                     Next
    
37. 
    
38.                 Catch exx As Autodesk.AutoCAD.Runtime.Exception
    
39.                     ed.WriteMessage((ChrW(10) & exx.ToString))
    
40.                 End Try
    
41.                 tr.Commit()
    
42.             End Using
    
43.         End Sub
    
44. 
    
45. 
    

<br />         Public Sub InsDXF7()<br />             Dim doc As Document = Application.DocumentManager.MdiActiveDocument<br />             Dim ed As Editor = doc.Editor<br />             Dim db As Database = doc.Database<br />             Dim tmpDb As New Database(False, True)<br />             tmpDb.DxfIn("K:\\ToTest\\Squircle.dxf", "K:\ToTest\\Squircle.log")<br />             Dim pnt1 As New Point3d(0, 0, 0)<br />             Dim pnt2 As New Point3d(1000, 1000, 0)<br />             Dim scale As Double = 10<br />             Dim vector As New Vector3d(0, 0, 0)<br />             Dim transform As Matrix3d = (Matrix3d.Scaling(scale, pnt2) _<br />                                          * Matrix3d.Displacement(pnt1.GetVectorTo(pnt2)))<br />             Dim idColl As New ObjectIdCollection<br />             Dim lastEnt As ObjectId = Utils.EntLast<br />             Dim newColor As Color = Color.FromColorIndex(ColorMethod.ByAci, 1)<br />             db.Insert(transform, tmpDb, True)<br />             Using tr As Transaction = doc.TransactionManager.StartTransaction<br />                 Try<br />                     If (lastEnt = ObjectId.Null) Then<br />                         lastEnt = Utils.EntFirst<br />                         idColl.Add(lastEnt)<br />                     End If<br /> <br />                     Dim nextent As ObjectId = Utils.EntNext(lastEnt)<br />                     Do While (nextent <> ObjectId.Null)<br />                         idColl.Add(nextent)<br />                         nextent = Utils.EntNext(nextent)<br />                     Loop<br /> <br />                     Dim id As ObjectId<br />                     For Each id In idColl<br />                         Dim acEntity As Entity = DirectCast(tr.GetObject( _<br />                                 id, OpenMode.ForWrite), Entity)<br />                         acEntity.Color = newColor<br />                     Next<br /> <br />                 Catch exx As Autodesk.AutoCAD.Runtime.Exception<br />                     ed.WriteMessage((ChrW(10) & exx.ToString))<br />                 End Try<br />                 tr.Commit()<br />             End Using<br />         End Sub<br /> <br /> <br />

ScmTools

将楼上原贴其中一个例子的VB代码转成了C#代码, 现贴出来以便大家学习.

1. public void InsDXF7()
   
2. {
   
3.   Document doc = AcadApp.DocumentManager.MdiActiveDocument;
   
4.   Editor ed = doc.Editor; Database db = doc.Database;
   
5.   Database tmpDb = new Database(false, true);
   
6.   tmpDb.DxfIn("K:\\ToTest\\Squircle.dxf", "K:\\ToTest\\Squircle.log");
   
7.   Point3d pnt1 = new Point3d(0, 0, 0);
   
8.   Point3d pnt2 = new Point3d(1000, 1000, 0);
   
9.   double scale = 10.0;
   
10.   Vector3d vector = new Vector3d(0, 0, 0);
    
11.   Matrix3d transform = Matrix3d.Scaling(scale, pnt2) * Matrix3d.Displacement(pnt1.GetVectorTo(pnt2));
    
12.   ObjectId lastEnt = AcUtils.EntLast();
    
13.   Autodesk.AutoCAD.Colors.Color newColor = Autodesk.AutoCAD.Colors.Color.FromColorIndex(Autodesk.AutoCAD.Colors.ColorMethod.ByAci, 1);
    
14.   db.Insert(transform, tmpDb, true);
    
15.   using (Transaction tr = doc.TransactionManager.StartTransaction())
    
16.    {  
    
17.            try
    
18.     {   
    
19.       if (lastEnt == ObjectId.Null)
    
20.       {   
    
21.         lastEnt = AcUtils.EntFirst();   
    
22.         idColl.Add(lastEnt);   
    
23.       }
    
24.       ObjectId nextent = AcUtils.EntNext(lastEnt);   
    
25.       while (nextent != ObjectId.Null)
    
26.       {   
    
27.         idColl.Add(nextent);   
    
28.         nextent = AcUtils.EntNext(nextent);   
    
29.       }
    
30.       foreach (ObjectId id in idColl)
    
31.       {   
    
32.         Entity acEntity = (Entity)tr.GetObject(id, OpenMode.ForWrite);   
    
33.         acEntity.Color = newColor;   
    
34.       }  
    
35.     }
    
36.     catch (Autodesk.AutoCAD.Runtime.Exception exx)
    
37.     {   
    
38.       ed.WriteMessage(Constants.vbLf + exx.ToString());  
    
39.     }  
    
40.     tr.Commit();
    
41.   }
    
42. }
    

public void InsDXF7()<br /> {<br />   Document doc = AcadApp.DocumentManager.MdiActiveDocument; <br />   Editor ed = doc.Editor; Database db = doc.Database; <br />   Database tmpDb = new Database(false, true);<br />   tmpDb.DxfIn("K:\\ToTest\\Squircle.dxf", "K:\\ToTest\\Squircle.log"); <br />   Point3d pnt1 = new Point3d(0, 0, 0); <br />   Point3d pnt2 = new Point3d(1000, 1000, 0); <br />   double scale = 10.0; <br />   Vector3d vector = new Vector3d(0, 0, 0);<br />   Matrix3d transform = Matrix3d.Scaling(scale, pnt2) * Matrix3d.Displacement(pnt1.GetVectorTo(pnt2)); <br />   ObjectId lastEnt = AcUtils.EntLast(); <br />   Autodesk.AutoCAD.Colors.Color newColor = Autodesk.AutoCAD.Colors.Color.FromColorIndex(Autodesk.AutoCAD.Colors.ColorMethod.ByAci, 1);<br />   db.Insert(transform, tmpDb, true); <br />   using (Transaction tr = doc.TransactionManager.StartTransaction()) <br />    {  <br />            try <br />     {   <br />       if (lastEnt == ObjectId.Null) <br />       {    <br />         lastEnt = AcUtils.EntFirst();    <br />         idColl.Add(lastEnt);   <br />       }<br />       ObjectId nextent = AcUtils.EntNext(lastEnt);   <br />       while (nextent != ObjectId.Null) <br />       {    <br />         idColl.Add(nextent);    <br />         nextent = AcUtils.EntNext(nextent);   <br />       }<br />       foreach (ObjectId id in idColl) <br />       {    <br />         Entity acEntity = (Entity)tr.GetObject(id, OpenMode.ForWrite);    <br />         acEntity.Color = newColor;   <br />       }  <br />     } <br />     catch (Autodesk.AutoCAD.Runtime.Exception exx) <br />     {   <br />       ed.WriteMessage(Constants.vbLf + exx.ToString());  <br />     }  <br />     tr.Commit(); <br />   }<br /> }<br />

csharp

ScmTools 发表于 2014-5-10 19:18
将楼上原贴其中一个例子的VB代码转成了C#代码, 现贴出来以便大家学习.

赞一个，省得我再了解VB.NET了