求两条多段线的中线

llsheng_73

荒野孤行 发表于 2014-1-9 11:13
哥们，我更新了源码，有些问题，再帮我看下吧，谢谢。

当两根边线顶点数不一样多，主要走向也不平行时，内插的点到边线距离相等会出现岐义，这个时候到底取边线顶点连线中点还是取一条线的顶点到另一条线的垂线的中点是不一样的，这个具体取哪个点作为所插入线的顶点可能根据用途不同会有不同取舍吧

edata

荒野孤行 发表于 2014-1-9 11:13
哥们，我更新了源码，有些问题，再帮我看下吧，谢谢。

绘制的pl会多点。
对于直线与折线，如果选择相反，将出错，还不如原来了。
对等折线的中线还是有问题，不过平行折线正常，但是会多点。。。。
关键还得适合自己用。

荒野孤行

edata 发表于 2014-1-9 14:13
绘制的pl会多点。
对于直线与折线，如果选择相反，将出错，还不如原来了。
对等折线的中线还是有问题， ...

我的思路是把一条多段线的顶点投影到另外一条多段线上（找最近点）这些点在多段线上有对应的param值，然后把这些点用vl-sort排序(比较点的param)，再将这些点投影到另外一条多段线上，对应的两个顶点之间找中点，通过中点绘制出需要的多段线。

投影点就是最近点
另外我不知道param代表的是什么，是不是每个点在曲线上的位置参数、序号的意思？

q3_2006

;;不好意思,没看你的代码.就是我的简单思路....

2. (defun dpl (e)
   
3.         (mapcar        'cdr(vl-remove-if-not '(lambda (x) (= (car x) 10))(entget e)))
   
4. )
   
5. (defun mid (p1 p2)
   
6.     (mapcar '* '(0.5 0.5 0.5) (mapcar '+ p1 p2))
   
7.     )
   
8. (defun pt2per (pt e)
   
9.   (if (and pt e)
   
10.     (vlax-curve-getclosestpointto (vlax-ename->vla-object e) pt t)
    
11.   )
    
12. )
    
13. (defun c:tt ( / a al b bl cl dl x y)
    
14.         (while (setq a (car (entsel))
    
15.                 b (car (entsel))
    
16.                 al (dpl a)
    
17.                 bl (dpl b)
    
18.         )
    
19.                 (if (> (length al) (length bl))
    
20.                 (setq cl (mapcar '(lambda(x) (pt2per x b)) al)
    
21.                                 dl (mapcar '(lambda(x y) (mid x y)) al cl)
    
22.                         )
    
23.                 (setq cl (mapcar '(lambda(x) (pt2per x a)) bl)
    
24.                                 dl (mapcar '(lambda(x y) (mid x y)) bl cl)
    
25.                         )
    
26.         )
    
27.         (xyp-pline dl nil)
    
28.         )
    
29. )

(defun dpl (e)<br />         (mapcar        'cdr(vl-remove-if-not '(lambda (x) (= (car x) 10))(entget e)))<br /> )<br /> (defun mid (p1 p2)<br />     (mapcar '* '(0.5 0.5 0.5) (mapcar '+ p1 p2))<br />     )<br /> (defun pt2per (pt e)<br />   (if (and pt e)<br />     (vlax-curve-getclosestpointto (vlax-ename->vla-object e) pt t)<br />   )<br /> )<br /> (defun c:tt ( / a al b bl cl dl x y)<br />         (while (setq a (car (entsel))<br />                 b (car (entsel))<br />                 al (dpl a)<br />                 bl (dpl b)<br />         )<br />                 (if (> (length al) (length bl))<br />                 (setq cl (mapcar '(lambda(x) (pt2per x b)) al)<br />                                 dl (mapcar '(lambda(x y) (mid x y)) al cl)<br />                         )<br />                 (setq cl (mapcar '(lambda(x) (pt2per x a)) bl)<br />                                 dl (mapcar '(lambda(x y) (mid x y)) bl cl)<br />                         )<br />         )<br />         (xyp-pline dl nil)<br />         )<br /> )

q3_2006

(xyp-pline dl nil)

院长函数..就是画多段线 ....好写

laorenhao999

多谢，可以参考下

daivce

牛逼，是个好东西，真好用，谢谢