p(0) = 26# + num
p(1) = 225 - MyRes.Fields(\层底深度\ p(2) = 0# h = 2.5
tstring = CStr(N)
mospace.AddText tstring, p, h
tstring = CStr(MyRes.Fields(\桩芯描述\N = Len(tstring) If N Mod 18 = 0 Then M = Int(N \\ 18) Else
M = Int(N \\ 18) + 1 End If
For N = 1 To M '''用于CAD中文字换行 SS = Mid(tstring, 1 + (N - 1) * 18, 18) p(0) = 66# + num
p(1) = 225# - MyRes.Fields(\层底深度\p(2) = 0# h = 2.5
mospace.AddText SS, p, h Next N ……
N = N + 1
MyRes.MoveNext Loop
''''''''填充标贯信息
Set MyRes = mydb.OpenRecordset(TXT & \MyRes.MoveFirst
Do While Not MyRes.EOF ''''''''''画箭头
p1(0) = 142# + num
p1(1) = 224# - MyRes.Fields(\深度\ p1(2) = 0#
p2(0) = 142# + num
p2(1) = 224# - MyRes.Fields(\深度\mospace.AddLine p1, p2 ……
p(0) = 142# + num
p(1) = 224# - MyRes.Fields(\深度\ p(2) = 0# h = 2#
tstring = CStr(MyRes.Fields(\击数\mospace.AddText tstring, p, h MyRes.MoveNext
Loop 由于篇幅有限且抗压强度与评分代码段与上述代码段类似，故暂不给出。 3 结束语 利用VB 5.0结合AutoCAD R14开发的钻孔取芯检测资料整理软件具有方便、高效和便于维护等特点。利用该软件能及时、正确地完成粉喷桩检测资料整理工作。同时笔者认为如果在检测报告中不需标注箭头、标尺等图形内容时，也可以采用VB 5.0结合Excel的方案进行程序开发。
参 考 文 献
1 郭朝勇等 AutoCAD R14二次开发技术 北京：清华大学出版社，1999.383~431. 2 刘炳文，张珅 Visual Basic程序设计—数据库篇 北京：人民邮电出版社，1999. 127~198.