Get Line Object Length

[Anonymous]

Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument

        Dim acCurDb As Database = acDoc.Database
        ed = acDoc.Editor

        Using acTrans = acCurDb.TransactionManager.StartTransaction()

            Dim acSSPrompt As PromptSelectionResult = acDoc.Editor.GetSelection()
            If acSSPrompt.Status = PromptStatus.OK Then

                acSSet = acSSPrompt.Value

                For Each acSSObj As SelectedObject In acSSet
                    If Not IsDBNull(acSSObj) Then
                        Dim acEnt As Entity = acTrans.GetObject(acSSObj.ObjectId, OpenMode.ForWrite)

                        If Not IsDBNull(acEnt) Then

                            If TypeOf acEnt Is Line Then
                                Dim AcL As Line
                                AcL = acEnt

                                MsgBox(AcL.Area)
                               
                            End If
                        End If
                    End If
                Next
            End If
           
        End Using

 I need to get the line object length. i Have written the below code.

If i use area property i am getting zero.

Can anyone help me from this issue?

THank you.

[Anonymous]

Is this code correct? FP = AcL.StartPoint : SP = AcL.EndPoint Dim dx As Double = SP.X - FP.X Dim dy As Double = SP.Y - FP.Y Dim len As Double = Math.Sqrt((dx * dx) + (dy * dy))

[Alexander.Rivilis · Accepted solution]

AcL.GetDistanceAtParameter(AcL.EndParam)

[StephenPreston]

If its just for a line, you can simply use the Length property. Or the Delta property if you want the length as a vector.