周末，出个题目给大家挑战下

xyp1964

;(goodline s1 s2 宽度系数)

伪书虫86

哈哈，看来楼主是个完美主义者啊

masterlong

院长的演示相当完美
必须要赞一个

简单说说以前我对此问题的一些思考
看截图


先讨论两图块平行的情况
任选图块之一作为主块
以距图块长轴距离为L做一直线
以长边的1/4点做一个角度为A的区域划分线
如图中虚线所示
对于两个4点表而言
其实可以简化为2个2点表
如图中紫红色点所示

做了区域划分线以后
如果点P2A、B都在区域线之内
那么连接点为P1A、P2A
如果点P2A、B都在区域线之外
那么连接点为P1B、P2B
如果P2A、P2B分别在区域线两侧
那么连接点为P1A、P2B

按以上原则
对于两图块平行的情况
可以得到很好的连接效果
对于互相垂直的情况
分别调整A与L具体数值
同时两块分别假定为主块进行验算
最后也能得到理想的结果
对于两图块成一定角度
或者图块大小不一的情况
确定最优连线的计算过程类似

一直不能让我满意的
是整个计算很有点繁琐
程序代码里面
cond套cond
L与A的具体数值调整起来很麻烦
经常会出现顾此失彼的情况

masterlong

编辑以后怎么删除错误的图片啊[em0]

jltx123456

masterlong 发表于 2015-11-19 22:17
编辑以后怎么删除错误的图片啊

图片下方有个"删除" ,点击即可

masterlong

院长给出了思路
感觉比我所采用的方法
更为精准
由于最近比较忙
还没来得及仔细研究
暂不能判断该方法的扩展性如何
因为我有很多特殊的应用
本帖仅列举了其中一类
无论如何
院长的思路都是超赞的

masterlong

说说我现在所采用的方法
看截图


最早使用的是最小距离原则
现在引入换算长度的概念
所谓换算长度
除两点间距离外
再分别计算两点至各自块心的距离
并乘以一个系数k
以图中绿色虚线为例
整个换算长度=L1B*k+L1B2A+L2A*k
k的取值对最终连接效果影响很大
基本的规律是
k增大时连接点趋向于靠近形心
k减小时连接点趋向于远离形心
K=0时的换算长度即两点的实际距离
针对我的应用而言k=0.5~0.8之间比较合适
实际取值k=0.65
这种方法的优点是计算过程比较简单
相比前两贴所采用的方法
整个代码简洁的不是一点半点
实际效果能满足我的需要

2. 以下是本帖我的程序中goodline子函数的代码
   
3. (defun goodline( plist1 plist2 / midpo1 midpo2 mindi pa pb tmp k )
   
4.   (setq mp1 (getboxmidpo__2 aptlist))
   
5.   (setq mp2 (getboxmidpo__2 bptlist))
   
6. 
   
7.   (setq k 0.65)
   
8.   (setq mindi 1e100)
   
9.   (foreach x plist1
   
10.     (foreach y plist2
    
11.       (if (< (setq tmp (1234dist mp1 x y mp2 k)) mindi)
    
12.         (setq pa x  pb y  mindi tmp)
    
13.       )
    
14.     )
    
15.   )
    
16.   (drawline pa pb 3)
    
17. )
    
18. ;;求4点转换长度
    
19. ;;若k=0，即求p2 p3间的距离
    
20. ;;k值大，连接点趋向于靠近形心
    
21. ;;k值小，连接点趋向于远离形心
    
22. ;;临界点啊啥的，应该跟矩形的大小、长宽比有关系，没具体研究
    
23. ;;对我的实际应用来说，k=0.5~0.8，是比较合适的取值
    
24. (defun 1234dist( p1 p2 p3 p4 k )
    
25.   (+ (* k (distance p1 p2)) (distance p2 p3) (* k (distance p3 p4)))
    
26. )

以下是本帖我的程序中goodline子函数的代码<br /> (defun goodline( plist1 plist2 / midpo1 midpo2 mindi pa pb tmp k )<br />   (setq mp1 (getboxmidpo__2 aptlist))<br />   (setq mp2 (getboxmidpo__2 bptlist))<br /> <br />   (setq k 0.65)<br />   (setq mindi 1e100)<br />   (foreach x plist1<br />     (foreach y plist2<br />       (if (< (setq tmp (1234dist mp1 x y mp2 k)) mindi)<br />         (setq pa x  pb y  mindi tmp)<br />       )<br />     )<br />   )<br />   (drawline pa pb 3)<br /> )<br /> ;;求4点转换长度<br /> ;;若k=0，即求p2 p3间的距离<br /> ;;k值大，连接点趋向于靠近形心<br /> ;;k值小，连接点趋向于远离形心<br /> ;;临界点啊啥的，应该跟矩形的大小、长宽比有关系，没具体研究<br /> ;;对我的实际应用来说，k=0.5~0.8，是比较合适的取值<br /> (defun 1234dist( p1 p2 p3 p4 k )<br />   (+ (* k (distance p1 p2)) (distance p2 p3) (* k (distance p3 p4)))<br /> )

这个方法和院长的方法相比
某些情况下的连线效果略有不足
它对我个人而言最大的意义
在于它的适用性比较高
很多特殊的要求都可以借助它来实现
看下面截图


图中是一个房间内插座布置的几种相对关系
云线圈出的两插座处于同一面墙
绿色连续PL线是我希望的自动连线
当采用最小距离原则
一半的连线将如虚线所示
以前为解决此问题
插座的连接点如旁边的放大图设置了三个很近的点
而现在引入换算长度算法以后
连接点为两个
只需要设置k=-0.1即可

伪书虫86

同一墙面的，这样连接是不是更美观一点呢
直接在画圈圈的那个位置加一个点，就可以很完美的解决了

masterlong

这个是个人的绘图习惯