[求助]：移动点的问题

flydyt

请问怎么在移动点的同时改变连接这个
点的线。也就是一个点连接有几根线（以这个点为起点或终点），在移动这个点的时候，线也跟着动。谢谢

雪山飞狐(lzh)

pnt是你的已知点坐标
[php]

On Error Resume Next

Dim ss As AcadSelectionSet
ThisDrawing.SelectionSets("Test").Delete
Set ss = ThisDrawing.SelectionSets.Add("Test")

Dim ft(4) As Integer, fd(4)

ft(0) = 0: fd(0) = "line"
ft(1) = -4: fd(1) = "<or"
ft(2) = 10: fd(2) = pnt
ft(3) = 11: fd(3) = pnt
ft(4) = -4: fd(4) = "or>"

ss.Select acSelectionSetAll, , , ft, fd
[/php]