是简单的不带缓和曲线的道路曲线放样代码PrivateSubCommand1_Click()DimT,L,e,q,a,c,d,r,M,S,ZAsSingleConstpi=3.1415926Constp=206265c=(Atn((Text6.Text-Text4.Text)/(Text5.Text-Text3.Text)))d=(Atn((Text8.Text-Text4.Text)/(Text7.Text-Text3.Text)))a=d-c```````````````