move/copy line parallely in vba

how to move or copy a line parallely at a distance of 1.28m in VBA ?

Parents
    1. Find the direction of the line — the vector from start point to end point
    2. Calculate the perpendicular of the direction — rotate the vector by π/2
    3. Create a transformation matrix (Transform3d)
    4. Apply the perpendicular rotation to the transformation matrix
    5. Apply the linear offset to the transformation matrix
    6. Transform the line (Element.Transform)
    7. Rewrite the line (Element.Rewrite)

    Regards, Jon Summers
    LA Solutions

     
    Regards, Jon Summers
    LA Solutions

Reply
    1. Find the direction of the line — the vector from start point to end point
    2. Calculate the perpendicular of the direction — rotate the vector by π/2
    3. Create a transformation matrix (Transform3d)
    4. Apply the perpendicular rotation to the transformation matrix
    5. Apply the linear offset to the transformation matrix
    6. Transform the line (Element.Transform)
    7. Rewrite the line (Element.Rewrite)

    Regards, Jon Summers
    LA Solutions

     
    Regards, Jon Summers
    LA Solutions

Children
No Data