|
|
各路大侠，本人参照《 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 '通过对角两点绘制矩形 |
|
置顶卡
