[求助]：高手帮忙－曲线交点断开及自身交点讨论

eachy

最初由 nuance 发布
[B]请楼上直接赐教。

我找到LUCAS过去贴的一个程序intlines.lsp，在通过交点建立选择集时用的是(ssget "c" (nth n pt-list)(nth n pt-list))，当是无宽度的物体，如LINE时，运行正常，但有宽度时，如PL，若在屏幕显?.. [/B]

XDTBOX 用的是ARX方式，BrkALL 用的是Break，肯定慢

陌生人

最初由 LUCAS 发布
[B]


自身交点表&顶点表如何求?(spline) [/B]

spline就不必做这一步了。它的求自身交点返回正常

eachy

最初由 陌生人 发布
[B]
spline就不必做这一步了。它的求自身交点返回正常 [/B]

发一个测试结果吧, 把你的测试数据和图形贴上来

aeo

最初由 LUCAS 发布
[B]


自身交点表&顶点表如何求?(spline) [/B]

spline:自相交求"自相交交点"就"自己和自己"求.

(vla-IntersectWith  spline spline 0)

Polyline应该再去掉端点.

eachy

最初由 aeo 发布
[B]


spline:自相交求"自相交交点"就"自己和自己"求.

(vla-IntersectWith  spline spline 0)

Polyline应该再去掉?.. [/B]

Spline测试成功，哪位把Lwpolyline的自相交测试结果贴上来看看，我这的交点数量不对。

陌生人

我的：多余点出现。查看过程记录。发现点已经找到了，但是就是没过滤掉，我是用member判断点重合的，看来因为cad求点的计算误差，可能导致member对比失败。

eachy

求出的点不是顶点+交点数
知道原因了，图示的自身交点不包括起点和终点，下面是测试代码

2. 
   
3. [PHP]
   
4. (defun c:test (/ e pt1 pt2)
   
5.   (defun xl-div        (lst x / lst2)
   
6.     (foreach n lst
   
7.       (if (and lst2 (/= x (length (car lst2))))
   
8.         (setq lst2 (cons (append (car lst2) (list n)) (cdr lst2)))
   
9.         (setq lst2 (cons (list n) lst2))
   
10.       )
    
11.     )
    
12.     (reverse lst2)
    
13.   )
    
14.   (defun vvl-remove (A L /)
    
15.     (apply 'append
    
16.            (mapcar '(lambda (x)
    
17.                       (if (not (equal x A 0.001))
    
18.                         (list x)
    
19.                       )
    
20.                     )
    
21.                    L
    
22.            )
    
23.     )
    
24.   )
    
25.   (if (setq e (car (entsel)))
    
26.     (progn
    
27.       (setq pt1        (mapcar        'cdr
    
28.                         (vl-remove-if-not
    
29.                           '(lambda (x) (= (car x) 10))
    
30.                           (entget e)
    
31.                         )
    
32.                 )
    
33.             pt2        (vlax-safearray->list
    
34.                   (vlax-variant-value
    
35.                     (vla-intersectwith
    
36.                       (vlax-ename->vla-object e)
    
37.                       (vlax-ename->vla-object e)
    
38.                       0
    
39.                     )
    
40.                   )
    
41.                 )
    
42.             pt2        (mapcar        '(lambda (y) (list (car y) (cadr y)))
    
43.                         (xl-div pt2 3)
    
44.                 )
    
45.       )
    
46.       (foreach p pt1
    
47.         (setq pt2 (vvl-remove p pt2))
    
48.       )
    
49.     )
    
50.   )
    
51. )[/PHP]

<br /> [PHP]<br /> (defun c:test (/ e pt1 pt2)<br />   (defun xl-div        (lst x / lst2)<br />     (foreach n lst<br />       (if (and lst2 (/= x (length (car lst2))))<br />         (setq lst2 (cons (append (car lst2) (list n)) (cdr lst2)))<br />         (setq lst2 (cons (list n) lst2))<br />       )<br />     )<br />     (reverse lst2)<br />   )<br />   (defun vvl-remove (A L /)<br />     (apply 'append<br />            (mapcar '(lambda (x)<br />                       (if (not (equal x A 0.001))<br />                         (list x)<br />                       )<br />                     )<br />                    L<br />            )<br />     )<br />   )<br />   (if (setq e (car (entsel)))<br />     (progn<br />       (setq pt1        (mapcar        'cdr<br />                         (vl-remove-if-not<br />                           '(lambda (x) (= (car x) 10))<br />                           (entget e)<br />                         )<br />                 )<br />             pt2        (vlax-safearray->list<br />                   (vlax-variant-value<br />                     (vla-intersectwith<br />                       (vlax-ename->vla-object e)<br />                       (vlax-ename->vla-object e)<br />                       0<br />                     )<br />                   )<br />                 )<br />             pt2        (mapcar        '(lambda (y) (list (car y) (cadr y)))<br />                         (xl-div pt2 3)<br />                 )<br />       )<br />       (foreach p pt1<br />         (setq pt2 (vvl-remove p pt2))<br />       )<br />     )<br />   )<br /> )[/PHP]

陌生人

贴一段过程数据
Command: 'VLIDE
Select object:
*vla的intersect 点
((54547.0 -56298.4 0.0) (55056.2 -56851.3 0.0) (54823.1 -56693.0 0.0) (55692.4
-55910.8 0.0) (56291.3 -55238.4 0.0) (56426.2 -55666.7 0.0) (56988.3 -56300.3
0.0) (56991.8 -56774.0 0.0) (56020.1 -56794.1 0.0) (56991.8 -56774.0 0.0)
(56988.3 -56300.3 0.0) (57641.6 -56856.9 0.0) (58591.9 -55748.4 0.0) (56291.3
-55238.4 0.0) (56386.8 -55563.4 0.0) (55056.2 -56851.3 0.0) (54823.1 -56693.0
0.0) (56426.2 -55666.7 0.0) (56020.1 -56794.1 0.0) (54720.2 -56583.5 0.0))
20  （求出交点数）
（lw顶点）
((54589.5 -56397.3 0.0) (54720.2 -56583.5 0.0) (56386.8 -55563.4 0.0) (58591.9
-55748.4 0.0) (57641.6 -56856.9 0.0) (57267.4 -56960.3 0.0) (57233.9 -56116.8
0.0) (57318.3 -55239.2 0.0) (56809.0 -56093.0 0.0) (55993.8 -56736.3 0.0)
(56311.1 -55791.0 0.0) (55993.8 -55239.2 0.0) (55692.4 -55910.8 0.0) (55433.4
-56756.6 0.0) (55022.6 -56063.7 0.0) (55229.6 -55157.8 0.0) (54694.8 -55225.0
0.0) (54547.0 -56298.4 0.0))
18 （顶点数）
（用member过滤后的点表，发现有些没有过滤掉）
((54547.0 -56298.4 0.0) (55056.2 -56851.3 0.0) (54823.1 -56693.0 0.0) (55692.4
-55910.8 0.0) (56291.3 -55238.4 0.0) (56426.2 -55666.7 0.0) (56988.3 -56300.3
0.0) (56991.8 -56774.0 0.0) (56020.1 -56794.1 0.0) (56991.8 -56774.0 0.0)
(56988.3 -56300.3 0.0) (58591.9 -55748.4 0.0) (56291.3 -55238.4 0.0) (56386.8
-55563.4 0.0) (55056.2 -56851.3 0.0) (54823.1 -56693.0 0.0) (56426.2 -55666.7
0.0) (56020.1 -56794.1 0.0) (54720.2 -56583.5 0.0))
19 （程序求出的交点数）

图上实际交点有7个：
((56991.8 -56774.0 0.0) (56988.3 -56300.3 0.0) (56426.2 -55666.7 0.0) (56291.3
-55238.4 0.0) (56020.1 -56794.1 0.0) (55056.2 -56851.3 0.0) (54823.1 -56693.0
0.0))

经过分析，放弃member。改用equal判断后。效果，看看吧：

userzhluserzhl

出错了！选择对象: ; 错误: ActiveX 服务器返回错误: 无效索引。

jx2008

eachy求fit  spline 后的多段线自相交，函数可否实现

jx2008

最初由 eachy 发布
[B]求出的点不是顶点+交点数
知道原因了，图示的自身交点不包括起点和终点，下面是测试代码
[CODE]
[PHP]
(defun c:test (/ e pt1 pt2)
  (defun xl-div        (lst x / lst2)
    (foreach n lst
      (if (and lst2... [/B]

对于多段线交点与顶点重合的情况则交点会溜掉。

如附件图。
[image]files://f:/122.bmp[/image]

jx2008

看我的，这两个函数，这里不能上传。
或者到我的网盘下载 http://muzicad.ys168.com

逸冰

晕哦..又下不了..我想下BRKALL