请各位大侠指点迷津，自动标注尺寸问题

老毛58

各路大侠，本人参照《AutoCAD VBA开发精彩实例教程》学习VBA，编写了画矩形的几句程序，也画出来了。由于本人愚笨，理解不了标注部分内容，请大侠们指点迷津，在下有礼了。我的问题是如何在点1和点2之间进行水平标注和对齐标注。下面是程序语句：

'绘制前视图
    '立柱
    Dim ptZxbq(0 To 1), ptlzbq1(0 To 1), ptlzbq2(0 To 1) As Double   '用Dim语句声明变量ptVer1和ptVer2，ptVer1、ptVer2为双精度

    ptZxbq(0) = 4000
    ptZxbq(1) = 3000  '自定义轴线原点的二个值x、y
    ptlzbq1(0) = ptZxbq(0) + Lzbtc.text / 2
    ptlzbq1(1) = ptZxbq(1)
    ptlzbq2(0) = ptZxbq(0) - Lzbtc.text / 2
    ptlzbq2(1) = ptZxbq(1) + Lzbtg.text
    AddRectangle ptlzbq1, ptlzbq2, 0.5 '通过对角两点绘制矩形

dunkel

程序设计方面的，可以到“开发篇”的 VBA 板块去看看