请教关于线段加长的编程

xgngg

我想让选择的线段加长，不知如何编写，请帮忙.

雪山飞狐_lzh

改变直线的起点或终点坐标

xgngg

可是我不会编,因为选择集和加长线段的我不会用，大哥，你能不能帮我编一下，我都急死了

雪山飞狐_lzh

说说你的具体要求

Solomon

选中线的线型对象有起点,终点属性,若为弧有起点角度,终点角度.半径等属性.更改它们的值即可

xgngg

图纸中有部分线段需要两头都加长100，我想用鼠标来框选线段，选中的线段两头自动伸长。只需要加长两头尺寸就可以了

雪山飞狐_lzh

Sub tt1()
On Error Resume Next
Dim ss As AcadSelectionSet
ThisDrawing.SelectionSets("Test").Delete
Set ss = ThisDrawing.SelectionSets.Add("Test")
Dim ft(0) As Integer, fd(0)
ft(0) = 0: fd(0) = "Line"
ss.SelectOnScreen ft, fd
Dim i As AcadLine
Dim dAngle As Double, p1, p2
For Each i In ss
dAngle = i.Angle
p1 = i.StartPoint
p2 = i.EndPoint
i.StartPoint = ThisDrawing.Utility.PolarPoint(p1, Atn(1) * 4 + dAngle, 100)
i.EndPoint = ThisDrawing.Utility.PolarPoint(p2, dAngle, 100)
Next i
End Sub

xgngg

谢谢你，飞狐大哥