VBA操作多段线画矩形
在CAD中使用VBA画多段线闭合的矩形。其实这个多段线围起来，围成一个矩形即可。
VBA中多段线是一串点，每个点使用两个双精度数值描述，这些数值连续放在数组中，就用ThisDrawi
gModelSpaceAddLightWeightPolyli
e数组名命令画出一段多段线。画出矩形，关键就是要控制好四个顶点。
本次测试中使用一条直线（用于定矩形的方向的基准线）为参数画出一个矩形。如果希望控制矩形的宽度，也可以再加其他控制条件。
提示用户画矩形，选取第一个点（sp，这里的点其实是一个只有两个元素的数组）
提示用户画矩形，选取第二个点（ep）
由两点算这条基准线的长度l、角度正弦si
a和角度余弦cosa
lsqrsp1ep12sp0ep02
si
aep1sp1lcosaep0sp0l由此可知，第三点坐标p3（ep（0）wsi
aep1wcosa）进而推得第四点p4（p30cosalp31si
al）最后还要连回第一点，古增加一个p5，和sp同一点。于是这个数组组建完毕，总共是个数值，每两个数值对应一个点，总共五个点。代码实现如下：
fSubRecta
gO
ErrorGoToESC
spThisDrawi
gUtilityGetPoi
t