Open “C:\Users\qqq\Desktop\zdm\zdm.CSV” For Input As #1
Open “C:\Users\qqq\Desktop\zdm\wbpd.DAT” For Input As #2
Open “C:\Users\qqq\Desktop\zdm\curve.DAT” For Input As #3
Open “C:\Users\qqq\Desktop\zdm\lj.DAT” For Input As #4
Open “C:\Users\qqq\Desktop\zdm\qh.DAT” For Input As #5
Open “C:\Users\qqq\Desktop\zdm\dk.DAT” For Input As #6
Open “C:\Users\qqq\Desktop\zdm\pc.DAT” For Input As #7
Dim dmx(1 To 1000, 1 To 9) As Double
Dim bpd(1 To 100, 1 To 6) As Double
Dim curve(1 To 100, 1 To 4) As Double
Dim lj(1 To 100) As Double
Dim ljs(1 To 100) As String
Dim qh(1 To 100, 1 To 3) As Double
Dim qhs(1 To 100) As String
Dim dk(1 To 100, 1 To 2) As Double
Dim dks(1 To 100) As String
Dim pc(1 To 100, 1 To 2) As Double
Dim pcs(1 To 100) As String
Dim pt0(0 To 2) As Double
Dim pt1(0 To 2) As Double
Dim pt2(0 To 2) As Double
Dim pt3(0 To 2) As Double
Dim pt As Variant
Dim jd As Double
Dim zd As Double
Dim txtobj As AcadText
Dim lineobj As AcadLine
Dim blockobj As AcadBlockReference
Dim circleobj As AcadCircle
Dim s As String
Dim xscale As Double
Dim yscale As Double
Dim tkscale As Double
Dim radius As Double
‘ 规范字号为 3mm，乘以 tkscale 即为理论大小 [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]
[url]https://book.douban.com/douli…[/url]
[url]https://movie.douban.com/doul…[/url]