[求助]：重叠

aeo

怎么判断我所选择的曲线里有和这曲线重叠的曲线曾在.
怎么得到得到这些重叠曲线的选择?

XDSoft

最初由 aeo 发布
[B]怎么判断我所选择的曲线里有和这曲线重叠的曲线曾在.
怎么得到得到这些重叠曲线的选择? [/B]

直线和PL好判断吧，弧线和圆用圆心是否相同，弧端点是否在你这个曲线上判断。

应该够用了吧？

SPLINE也有方法。

最好的方法是不管什么线，任何曲线，得到他的样本点（比如满足误差的等分点），然后判断这些点是否有都在你曲线上就行了（事先判断下长短区分下，长的做源）。

2. [font=courier new]
   
3. 89. xdrx_getsamplept
   
4. 
   
5. 功能：按给定精度，返回AcDbCurve类曲线和AcDb2dPolyline(旧的POLYLINE)的样本点。将复杂的曲线用点组成的线段模拟。
   
6. 
   
7. 调用格式：(xdrx_getsamplept <AcDbCurve 或 AcDb2dPolyline实体图元名> [精度控制])
   
8. 
   
9. 说明：给定的[精度控制]值玄高差越小，精度越高，分段数越大，精度越高。
   
10.       
    
11.      精度控制只对曲线段有效，对于POLYLINE,对直线段无效，对其中的ARC段数据起做用。
    
12.   
    
13.      若不给[精度控制]参数，那么程序自己计算出相对满足视觉误差的值做为玄高差进行分段。
    
14. 
    
15.      [精度控制]：分两种方法
    
16.       1：给整数，按给定的整数分曲线段
    
17.       2：给实数，做为玄高差
    
18.      
    
19.      注意：对于AcDbSpline,只能给定"玄高差",若给整数值，那么程序按照计算的相对最优值做为玄高差。
    
20. 
    
21. 返回值：若成功，返回点表，点表肯定包括曲线的开始点和终止点。(p1 p2......),失败返回NIL.
    
22. 
    
23. 示例：用LINE模拟SPLINE
    
24.      (if (setq en (xdrx_entsel "\n请点取一个Spline<退出>:") '((0 . "spline"))))
    
25.         (progn
    
26.         (setq ed (xdrx_getsamplept (car en)))
    
27.         (apply 'command (cons "line" ed))
    
28.         (command "")
    
29.      )   
    
30. [/font]

[font=courier new]<br /> 89. xdrx_getsamplept<br /> <br /> 功能：按给定精度，返回AcDbCurve类曲线和AcDb2dPolyline(旧的POLYLINE)的样本点。将复杂的曲线用点组成的线段模拟。<br /> <br /> 调用格式：(xdrx_getsamplept <AcDbCurve 或 AcDb2dPolyline实体图元名> [精度控制])<br /> <br /> 说明：给定的[精度控制]值玄高差越小，精度越高，分段数越大，精度越高。<br />       <br />      精度控制只对曲线段有效，对于POLYLINE,对直线段无效，对其中的ARC段数据起做用。 <br />   <br />      若不给[精度控制]参数，那么程序自己计算出相对满足视觉误差的值做为玄高差进行分段。<br /> <br />      [精度控制]：分两种方法<br />       1：给整数，按给定的整数分曲线段<br />       2：给实数，做为玄高差<br />      <br />      注意：对于AcDbSpline,只能给定"玄高差",若给整数值，那么程序按照计算的相对最优值做为玄高差。 <br /> <br /> 返回值：若成功，返回点表，点表肯定包括曲线的开始点和终止点。(p1 p2......),失败返回NIL.<br /> <br /> 示例：用LINE模拟SPLINE<br />      (if (setq en (xdrx_entsel "\n请点取一个Spline<退出>:") '((0 . "spline"))))<br />         (progn<br />         (setq ed (xdrx_getsamplept (car en)))<br />         (apply 'command (cons "line" ed))<br />         (command "")<br />      )   <br /> [/font]

aeo

最近贴的人少了,都忙高级的东西去了?
上面的不知道有没人用的到.

2. 
   
3. ;返回的是实体名的表.
   
4. ;比原实体长的不在里面.
   
5. ;规定了层
   
6. ;可能ssget还要详细点,不然可能错.
   
7. (defun finde(e lay / lie lip lip1 ss yes)
   
8. (setq lip(xdrx_getsamplept e))
   
9. (setq ss(ssget "F" lip (list(cons 8 lay))))
   
10. (ssdel e ss)
    
11. (if(>(sslength ss)0)(progn
    
12.   (setq ss(sel2lst ss))
    
13.   (foreach x ss(setq lip1(xdrx_getsamplept x))
    
14.                (setq yes t)
    
15.                (foreach y lip1(if(not(xdrx_ison y e))(setq yes nil)))
    
16.                (if yes(setq lie(cons x lie)))
    
17.         )
    
18.         ))lie
    
19. )
    

<br /> ;返回的是实体名的表.<br /> ;比原实体长的不在里面.<br /> ;规定了层<br /> ;可能ssget还要详细点,不然可能错.<br /> (defun finde(e lay / lie lip lip1 ss yes)<br /> (setq lip(xdrx_getsamplept e))<br /> (setq ss(ssget "F" lip (list(cons 8 lay))))<br /> (ssdel e ss)<br /> (if(>(sslength ss)0)(progn<br />   (setq ss(sel2lst ss))<br />   (foreach x ss(setq lip1(xdrx_getsamplept x))<br />                (setq yes t)<br />                (foreach y lip1(if(not(xdrx_ison y e))(setq yes nil)))<br />                (if yes(setq lie(cons x lie)))<br />         )<br />         ))lie<br /> )<br />