• 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏吧

et blockobj = ThisDrawing.ModelSpace.InsertBlock

互联网 diligentman 1周前 (02-18) 6次浏览

jd = 110000
pt0(0) = 300
pt0(1) = 25 * tkscale
pt0(2) = 0

‘从文件中读入地面线原始数据文件
n = 0
Do While Not EOF(1)
n = n + 1
Input #1, dmx(n, 1), dmx(n, 2), dmx(n, 3)
Loop
Close #1

‘从文件中读入变坡点原始数据文件
Dim nn As Integer
nn = 0
Do While Not EOF(2)
nn = nn + 1
Input #2, bpd(nn, 1), bpd(nn, 2)
Loop
Close #2
后面的程序都差不多,因为是给的程序所以不太会VB,之前是路径错误,我修改完路径后又报 53号错误,我不太明白是哪里没有关闭文件,请大佬们教教!!!万分感谢![url]https://www.douban.com/doulis…[/url]
[url]https://m.douban.com/doulist/…[/url]
[url]https://book.douban.com/douli…[/url]
[url]https://movie.douban.com/doul…[/url]
[url]https://www.douban.com/doulis…[/url]
[url]https://m.douban.com/doulist/…[/url]
[url]https://book.douban.com/douli…[/url]
[url]https://movie.douban.com/doul…[/url]
[url]https://www.douban.com/doulis…[/url]
[url]https://m.douban.com/doulist/…[/url]
[url]https://book.douban.com/douli…[/url]
[url]https://movie.douban.com/doul…[/url]
[url]https://www.douban.com/doulis…[/url]
[url]https://m.douban.com/doulist/…[/url]
[url]https://book.douban.com/douli…[/url]
[url]https://movie.douban.com/doul…[/url]
[url]https://www.douban.com/doulis…[/url]
[url]https://m.douban.com/doulist/…[/url]
[url]https://book.douban.com/douli…[/url]
[url]https://movie.douban.com/doul…[/url]
[url]https://www.douban.com/doulis…[/url]
[url]https://m.douban.com/doulist/…[/url]
[url]https://book.douban.com/douli…[/url]
[url]https://movie.douban.com/doul…[/url]
[url]https://www.douban.com/doulis…[/url]
[url]https://m.douban.com/doulist/…[/url]
[url]https://book.douban.com/douli…[/url]
[url]https://movie.douban.com/doul…[/url]
[url]https://www.douban.com/doulis…[/url]
[url]https://m.douban.com/doulist/…[/url]


程序员灯塔
转载请注明原文链接:et blockobj = ThisDrawing.ModelSpace.InsertBlock
喜欢 (0)