[求助]：能否得到与直线端点相隔某一距离的另一点的坐标?

dyheng

我想用程序把一直线段两端各截去一定距离，从而得到中间的一段直线，请问有什么办法可以做到？

yj821005

可以算出两个新的点，然后把原来的线删掉，根据新的点绘出要求的新的直线。不过要考虑线的长度是不是大于两倍的给定距离

h_lon

同意二楼的观点。

雪山飞狐(lzh)

直接改两端点的坐标就可以了

dyheng

关键是求不出中间那段线的起点和终点，比如说原线段长200mm，我想从末端截去50mm，余下150mm，请问怎么能够得到余下线段的终点？

yj821005

晕，这不是数学几何上的问题吗？通过斜率等等就很容易求出来了

ljpnb

[php]
Sub test()
Dim lineobj As AcadLine
Dim newEpoint As Variant
Dim epoint As Variant
Dim ang As Single
Dim dis As Single
ThisDrawing.Utility.GetEntity lineobj, point, "select a lin:"
dis = ThisDrawing.Utility.GetReal("input a new value:")
epoint = lineobj.EndPoint
ang = lineobj.Angle
newEpoint = ThisDrawing.Utility.PolarPoint(epoint, ang, dis)
lineobj.EndPoint = newEpoint
lineobj.Update
End Sub
[/php]