|
|
举个最简单的例子。在主界面下有下图：
file:///C:/Documents%20and%20Settings/zxm/桌面/未命名.bmp
如图，共有九个矩形，每个矩形都是由四根直线围成的，图形中有a,b,c,d四根直线。现在的问题是：现在随机从图形中选择a,b,c,d四根直线中的一条，然后通过offset命令上下或者是左右平移该直线（横向的直线上下移动的距离和纵向的直线左右移动的距离都不大，平移的距离是随机的）时，用VBA怎样编程立即得到与该直线相关联的矩形的面积和中心（例如，当选择直线a时，1，2，4，5，7，8六个矩形都与此直线相关联，当把a左右移动一小段距离时，对应1，2，4，5，7，8六个矩形的面积和中心均发生变化）？
我现在正在想这样的问题，首先遇到的问题是：
1.这九个矩形都是由四条直线围成的，在VBA中怎样定义这九个矩形？
2.当任意选择a,b,c,d四根直线中的一条时，怎样立即判断并得到与这条直线相关联的六个矩形？
3.怎样动态的立即得到平移后这九个矩形的长，宽，面积，中心（在平移前，这九个矩形长，宽，面积，中心等属性已经自动生成属性文件，在平移后，怎样立即更新这九个矩形长，宽，面积，中心等属性文件）？
这些问题困扰我很长时间了，具体用VBA代码怎么样实现？
由于是毕业设计，时间很紧急，请斑竹，各位大虾多多帮忙，谢谢~~ |
|
置顶卡
