道路曲线放样

【文件属性】：
文件名称：道路曲线放样
文件大小：36KB
文件格式：ZIP
更新时间：2015-06-10 18:45:19
道路曲线放样 是简单的不带缓和曲线的道路曲线放样代码 Private Sub Command1_Click() Dim T, L, e, q, a, c, d, r, M, S, Z As Single Const pi = 3.1415926 Const p = 206265 c = (Atn((Text6.Text - Text4.Text) / (Text5.Text - Text3.Text))) d = (Atn((Text8.Text - Text4.Text) / (Text7.Text - Text3.Text))) a = d - c ```````````````

【文件预览】：
未命名.JPG
道路曲线放样代码.txt