VBA AutoCAD: рисование полилинии из двух заданных точек и по определенному пути

Question

Я пытаюсь нарисовать ломаную линию из двух заданных точек и следуя определенному пути (другой ломаной линии), иначе 2 полилинии будут наложены с помощью VBA AutoCAD или qgis

Sub draw_polyline1()
    Dim lineobj As AcadLine
    Dim entite As AcadEntity 
    Dim ptd As Variant
    Dim pta As Variant

    ThisDrawing.Utility.GetEntity entite, ptClique, "select the path to follow" 
    ptd = ThisDrawing.Utility.GetPoint(, "select the start point")
    pta = ThisDrawing.Utility.GetPoint(, "select the end point")
    Set lineobj = ThisDrawing.ModelSpace.AddPolyline(entite, ptd, pta) 
    ZoomExtents 
End Sub

Синяя линия - это путь, а красная - ломаная, которую я хочу автоматически нарисовать между двумя точками (звезды на схеме)

Answer 1

Я думаю, что самый простой способ - это клонировать путь, по которому вы хотите следовать, и «обрезать» окончания вне точки щелчка. Чтобы вырезать, Вы можете использовать команду _break, а затем проверить, какая из новых кривых имеет начальную точку, конечную точку на выбранных точках.