让四边形的每条边偏移不一样的值

charlesli8 · 发表于 2015-1-30 20:54:44

让所有四边形的左边偏移一个值，右边偏移另外一个值，上面偏移一个值，下面偏移一个值，这四个数字值不一样，做成通用函数。能否用vba办到？

zzyong00 · 发表于 2015-1-30 22:15:21

能...............

charlesli8 · 发表于 2015-1-30 23:01:38

怎么做？是简单的几何运算么？

zzyong00 · 发表于 2015-1-31 00:35:50

最好当然是几何运算了！速度快，无附产品！计算量相对比较大
另一种思路：
当然也可以模拟手绘图了，创建与原四边形一样的四条直线，各自偏移，求交点（4 个），绘制四边线，删除创建的直线和原四边形

charlesli8 · 发表于 2015-1-31 12:48:36

zzyong00 发表于 2015-1-31 00:35
最好当然是几何运算了！速度快，无附产品！计算量相对比较大
另一种思路：
当然也可以模拟手绘图了，创建 ...

这俩种方法我都想过，主要是每个四边形的起点位置和终点位置不一定一样（例如：第一个四边形的起点是左下角点，其它点按逆时针旋转；第二个四边形起点是右下角点，其它点按顺时针旋转。导致让俩个四边形的第二条边分别偏移一定值，第一个四边形偏移的是最右边的线，第二个偏移的是最左边的线）

charlesli8 · 发表于 2015-1-31 12:51:25

zzyong00 发表于 2015-1-31 00:35
最好当然是几何运算了！速度快，无附产品！计算量相对比较大
另一种思路：
当然也可以模拟手绘图了，创建 ...

用几何运算好像也会有起点终点问题的困扰

charlesli8 · 发表于 2015-1-31 23:09:21

charlesli8 发表于 2015-1-31 12:51
用几何运算好像也会有起点终点问题的困扰

多谢指点，我试试

charlesli8 · 发表于 2015-2-1 00:13:25

charlesli8 发表于 2015-1-31 12:51
用几何运算好像也会有起点终点问题的困扰

追问，（计算点在在直线左还是右，用向量叉积可得）如何做？几何运算能否给段代码或者演示下计算过程。我画出来想了半天没想明白！谢谢你了！

zzyong00 · 发表于 2015-2-1 13:22:01

charlesli8 发表于 2015-2-1 00:13
追问，（计算点在在直线左还是右，用向量叉积可得）如何做？几何运算能否给段代码或者演示下计算过程。 ...

你看一下我的另一个帖子里关于点集凸包和最小外接矩形的代码，就明白了！
http://bbs.mjtd.com/thread-111783-4-1.html

charlesli8 · 发表于 2015-2-1 21:12:22

zzyong00 发表于 2015-2-1 13:22
你看一下我的另一个帖子里关于点集凸包和最小外接矩形的代码，就明白了！
http://bbs.mjtd.com/thread-1 ...

你说的是主代码吧？

账号		自动登录	找回密码
密码			注册