2d array in vb .net

[PanHasan]

Hi
i got a question how could i create a array that will contain start and end points of a lines

tab(0)[pt1 pt2] first line
tab(1)[pt1 pt2] second line

should i use something like this it works but the points are all together so its not perfect

Dim Tab() As Point3d

[SEANT]

There are several methods to store the coordinates associated with points, and the best choice would probably depend on the downstream requirements of the data.

Arrays are a valid option, and may even be the most efficient from a computer processing perspective. If the type and quantity of Points is unknown, arrays are a bit of a handful for the coder, however.

The Autodesk.AutoCAD.Geometry.Point3dCollection is very easy to use - as points can be added and subtracted at will.

With regard to collections (and their general ease of use), the System.Collections.Generic Namespace offers several other ways of storing points (or any data for that matter) and have the added benefit of making code more universal, i.e., not limited to just AutoCAD routines.

[PanHasan]

OK
I'll try it thx

[PanHasan]

I think that is no need to create a new thread so i'll ask here have you got any idea why the ray in the function is not visible in the drawing if i use that code without function it works OK

    <CommandMethod("src")> _
   Public Sub src()
        Dim lCmd As Editor = Application.DocumentManager.MdiActiveDocument.Editor
        Dim acBaza As Database = lCmd.Document.Database
        Dim trn As Transaction = acBaza.TransactionManager.StartTransaction

        Dim lnL1 As Line = New Line()

        Dim usrPtOp As PromptPointOptions = New PromptPointOptions("Wskarz srodek pomieszczenia :")
        Dim usrPt As PromptPointResult = lCmd.GetPoint(usrPtOp)

        Dim prevPt As Point3d = usrPt.Value
        Dim nextPt As Point3d = usrPt.Value

        If usrPt.Status = PromptStatus.OK Then
            Dim usrPtXmod As Point3d = New Point3d(usrPt.Value.X + 1, usrPt.Value.Y, usrPt.Value.Z)
            Dim promienSledzacy As Ray = New Ray()
            promienSledzacy.BasePoint = usrPt.Value
            promienSledzacy.SecondPoint = usrPtXmod

            'FILTRACJA LINII
            Dim typeValue() As TypedValue = {New TypedValue(0, "line")}
            Dim selFilter As SelectionFilter = New SelectionFilter(typeValue)
            Dim selResult As PromptSelectionResult = lCmd.SelectAll(selFilter)
            Dim ssLinie As SelectionSet = selResult.Value
            Dim tabID() As ObjectId = ssLinie.GetObjectIds
            Dim lnNajblizsza As Line = Nothing
            'TRANSAKCJA
            przecieciaPromienia(promienSledzacy, tabID, prevPt, nextPt, lnNajblizsza)

            'Sprawdzenie ktury punkt jest nizej
            Dim START As Point3d
            Dim FIN As Point3d
            If lnNajblizsza.StartPoint.Y > lnNajblizsza.EndPoint.Y Then
                START = lnNajblizsza.EndPoint
            Else
                START = lnNajblizsza.StartPoint
            End If
        End If
    End Sub

    Public Sub przecieciaPromienia(ByRef promienSledzacy As Ray, ByRef tabID() As ObjectId, ByRef prevPt As Point3d, ByRef nextPt As Point3d, ByRef lnNajblizsza As Line)
        Dim lCmd As Editor = Application.DocumentManager.MdiActiveDocument.Editor
        Dim acBaza As Database = lCmd.Document.Database
        Dim trn As Transaction = acBaza.TransactionManager.StartTransaction
        Try
            Dim btr As BlockTableRecord = trn.GetObject(acBaza.CurrentSpaceId, OpenMode.ForWrite)
            Dim objID As ObjectId
            Dim ra3d As Ray3d = New Ray3d(promienSledzacy.StartPoint, promienSledzacy.SecondPoint)
            Dim odl As Single = 0.0
            Dim odlTmp As Single = 0.0
            For Each objID In tabID
                Dim ln As Line = CType(trn.GetObject(objID, OpenMode.ForRead), Line)
                Dim ls As LineSegment3d = New LineSegment3d(ln.StartPoint, ln.EndPoint)
                Dim ptArray() As Point3d = ls.IntersectWith(ra3d)
                If ptArray Is Nothing Then Continue For
                Dim ptkPrzeciecia As Point3dCollection = New Point3dCollection(ptArray)
                'SZUKANIE PIERWSZEJ NAJBLIZSZEJ LINII   
                '   odl=sqrt ((x1-x2)*(x1-x2) + (y1-y2)*(y1-y2)) 

                odlTmp = Math.Sqrt((prevPt.X - ptkPrzeciecia.Item(0).X) * (prevPt.X - ptkPrzeciecia.Item(0).X) + (prevPt.Y - ptkPrzeciecia.Item(0).Y) * (prevPt.Y - ptkPrzeciecia.Item(0).Y))

                If odl = 0.0 Then
                    odl = odlTmp
                    nextPt = ptkPrzeciecia.Item(0)
                    lnNajblizsza = ln
                ElseIf odl >= odlTmp Then
                    nextPt = ptkPrzeciecia.Item(0)
                    lnNajblizsza = ln
                End If
            Next
            lnNajblizsza.Highlight()
            promienSledzacy.SetDatabaseDefaults()
            btr.AppendEntity(promienSledzacy)
            trn.AddNewlyCreatedDBObject(promienSledzacy, True)
            trn.Commit()
        Catch ex As Exception
        Finally
            trn.Dispose()
        End Try
    End Sub

[SEANT]

I wouldn’t exactly say it is a definite but passing open database object references between sub/functions may not be the best practice. I modified the structure to illustrate an alternative. Note: Autodesk.AutoCAD.Geometry objects are not database residents

I think the reason that the Ray was not showing was because the top level transaction had not been committed. Again, I modified the routine to illustrate that point.

    <CommandMethod("src")> _
   Public Sub src()
        Dim lCmd As Editor = Application.DocumentManager.MdiActiveDocument.Editor
        Dim acBaza As Database = lCmd.Document.Database
        Using trn As Transaction = acBaza.TransactionManager.StartTransaction

            Dim lnL1 As Line = New Line()

            Dim usrPtOp As PromptPointOptions = New PromptPointOptions("Wskarz srodek pomieszczenia :")
            Dim usrPt As PromptPointResult = lCmd.GetPoint(usrPtOp)

            Dim prevPt As Point3d = usrPt.Value
            Dim nextPt As Point3d = usrPt.Value

            If usrPt.Status = PromptStatus.OK Then
                Dim usrPtXmod As Point3d = New Point3d(usrPt.Value.X + 1, usrPt.Value.Y, usrPt.Value.Z)
                Dim ls3d As LineSegment3d = New LineSegment3d(usrPt.Value, usrPtXmod)


                'FILTRACJA LINII
                Dim typeValue() As TypedValue = {New TypedValue(0, "line")}
                Dim selFilter As SelectionFilter = New SelectionFilter(typeValue)
                Dim selResult As PromptSelectionResult = lCmd.SelectAll(selFilter)
                Dim ssLinie As SelectionSet = selResult.Value
                Dim tabID() As ObjectId = ssLinie.GetObjectIds

                Dim oid As ObjectId
                'TRANSAKCJA
                oid = przecieciaPromienia(ls3d, tabID, prevPt, nextPt)
                Dim lnNajblizsza As Line = CType(trn.GetObject(oid, OpenMode.ForRead), Line)
                'Sprawdzenie ktury punkt jest nizej
                Dim START As Point3d
                'Dim FIN As Point3d
                If lnNajblizsza.StartPoint.Y > lnNajblizsza.EndPoint.Y Then
                    START = lnNajblizsza.EndPoint
                Else
                    START = lnNajblizsza.StartPoint
                End If

            End If
            trn.Commit()
        End Using
    End Sub

    Public Function przecieciaPromienia(ByRef ls3d As LineSegment3d, ByRef tabID() As ObjectId, ByRef prevPt As Point3d, ByRef nextPt As Point3d) As ObjectId
        Dim lCmd As Editor = Application.DocumentManager.MdiActiveDocument.Editor
        Dim acBaza As Database = Application.DocumentManager.MdiActiveDocument.Database
        Dim lnNajblizsza As Line = Nothing
        Using trn As Transaction = acBaza.TransactionManager.StartTransaction

            Try
                Dim btr As BlockTableRecord = CType(trn.GetObject(acBaza.CurrentSpaceId, OpenMode.ForWrite), BlockTableRecord)
                Dim objID As ObjectId
                Dim ra3d As Ray3d = New Ray3d(ls3d.StartPoint, ls3d.EndPoint)

                Dim odl As Single = 0.0
                Dim odlTmp As Single = 0.0
                For Each objID In tabID
                    Dim ln As Line = CType(trn.GetObject(objID, OpenMode.ForRead), Line)
                    Dim ls As LineSegment3d = New LineSegment3d(ln.StartPoint, ln.EndPoint)
                    Dim ptArray() As Point3d = ls.IntersectWith(ra3d)
                    If ptArray Is Nothing Then Continue For
                    Dim ptkPrzeciecia As Point3dCollection = New Point3dCollection(ptArray)
                    'SZUKANIE PIERWSZEJ NAJBLIZSZEJ LINII   
                    '   odl=sqrt ((x1-x2)*(x1-x2) + (y1-y2)*(y1-y2)) 

                    odlTmp = Math.Sqrt((prevPt.X - ptkPrzeciecia.Item(0).X) * (prevPt.X - ptkPrzeciecia.Item(0).X) + (prevPt.Y - ptkPrzeciecia.Item(0).Y) * (prevPt.Y - ptkPrzeciecia.Item(0).Y))

                    If odl = 0.0 Then
                        odl = odlTmp
                        nextPt = ptkPrzeciecia.Item(0)

                    ElseIf odl >= odlTmp Then
                        nextPt = ptkPrzeciecia.Item(0)

                    End If
                    lnNajblizsza = ln
                Next
                lnNajblizsza.Highlight()
                Dim promienSledzacy As Ray = New Ray()
                promienSledzacy.BasePoint = ls3d.StartPoint
                promienSledzacy.SecondPoint = ls3d.EndPoint
                promienSledzacy.SetDatabaseDefaults()
                btr.AppendEntity(promienSledzacy)
                trn.AddNewlyCreatedDBObject(promienSledzacy, True)
                trn.Commit()
            Catch ex As Exception
            End Try
            Return lnNajblizsza.ObjectId
        End Using
    End Function

[PanHasan]

Thanks for the advice and the solution