TheSwamp

Code Red => VB(A) => Topic started by: Nima2018 on January 15, 2019, 10:16:21 AM

Title: Midpoint of offset line
Post by: Nima2018 on January 15, 2019, 10:16:21 AM
Hi
I want get coordinates of midpoint of a line that created by offset via code ( in my code lineObj2 ) :

Code: [Select]
    Dim lineObj2 As Variant
                lineObj2 = lineObj.Offset(2 * Round(lineObj.Length, 2))
How can i do this ?
Please advice me .
Title: Re: Midpoint of offset line
Post by: Nima2018 on January 15, 2019, 11:46:44 AM
Hi

I could solve the problem using the following code :

Code: [Select]
    Dim lineObj2 As Variant, lineObj3 As AcadLine
     lineObj2 = lineObj.Offset(2 * Round(lineObj.Length, 2))
       
   Dim ent As AcadEntity
       Set ent = ThisDrawing.ModelSpace(ThisDrawing.ModelSpace.Count - 1)
             If ent.ObjectName = "AcDbLine" Then
                    Set lineObj3 = ent
                    ent.Highlight True
                       Dim AA As Variant
                       Dim BB As Variant
                       Dim CC As Variant
                          AA = lineObj3.startPoint
                          BB = lineObj3.endPoint
                          CC(0) = (AA(0) + BB(0)) * 0.5
                          CC(1) = (AA(1) + BB(1)) * 0.5
                          CC(2) = (AA(2) + BB(2)) * 0.5
                          Debug.Print CC(0), CC(1), CC(2)
                   Else
            End If

But I think there's a better way,So please say if you have a better suggestion.
Title: Re: Midpoint of offset line
Post by: BIGAL on April 21, 2019, 07:17:18 PM
That looks ok the only other way is via using angle and distance of a line.