'以下为画一段:
Public Sub LineLQ(IStartx As Single, IStarty As Single, L As 管影节加出多永汽掉Single, Q As Single)
Dim OutX As Single, OutY As Single
Dim iQ As Single
iQ = -Q / 180 * 3.1415926
OutX = Co来自s(iQ) * L + IStartx
OutY = Sin(iQ) * L + IStarty
Line (IStartx, IStarty)-(OutX, OutY)
End Sub