スジを引くところを、路線情報に対応します。複数路線、上り下り、複数列車の準備をしますが、まだ未確認です。 Sub スジ(路線() As 路線情報, dataSheet As Worksheet, diagSheet As Worksheet) dlta = 0.000001 For i = 0 To UBound(路線) cl = 3 brw = 路…