[原创]：选择集曲线断开程序详解

aeo

最初由 eachy 发布
既然求得的是交点还有必要再判断在曲线上吗？

我也不想和你争，你认为对就自己看着办吧.
不过倒过来你就理解了:line延伸到sline,不一定能求出交点.

求的了很多交点，还是逃不过判断.除非一条条求.



circle一定要硬entmake的话，别忘了(entget e '("*"))

circle,如果用误差打断，生成的arc实体名不变。误差打断方向一定要对.

arc是个怪东西!

2. 
   
3.   [FONT=courier new]
   
4. ;;;   通过一点来打断 圆和 椭圆 闭合spline
   
5. ;;;-----------------------------------------------------
   
6. (defun break-curve-closed(curve pt)
   
7.   (setq endpar(vlax-curve-getendparam curve)
   
8.          par1(vlax-curve-getparamatpoint curve(vlax-curve-getclosestpointto curve pt))
   
9.          par2(+ par1 1e-4)
   
10.          par2(if(> par2 endpar)(- par2 endpar)par2)
    
11.          pt1 (vlax-curve-getpointatparam curve par2)
    
12.    )
    
13.   (vl-cmdf ".break"(list curve pt) pt1)
    
14. )
    
15.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;   通过一点来打断 圆和 椭圆 闭合spline<br /> ;;;-----------------------------------------------------<br /> (defun break-curve-closed(curve pt) <br />   (setq endpar(vlax-curve-getendparam curve)<br />          par1(vlax-curve-getparamatpoint curve(vlax-curve-getclosestpointto curve pt))<br />          par2(+ par1 1e-4)<br />          par2(if(> par2 endpar)(- par2 endpar)par2)<br />          pt1 (vlax-curve-getpointatparam curve par2)<br />    )<br />   (vl-cmdf ".break"(list curve pt) pt1)<br /> )<br />   [/FONT]<br />

aeo

最初由 eachy 发布
[B]

游客，如果您要查看本帖隐藏内容请回复

这个逻辑好象不大现实，不知道你写出来没有，反而搞复杂了

“pt 表中不存在此交点”不就要从头倒腾一遍.
(N*(n-1)*(n-2)...) +判断点

那还不如:
　第一个，求所有交点
　第二个，求所有交点......
n的  n次

最好的:
(while n
    (while n+1
       每次求了交点，先别合并:
       (En (p1 p2 p3..))
      (En+1( p1 p2 p3 ))
      每次生成两个，或没有.
       ....
       (En(p5 p6 p7 ....))
       (En+5(p5 p6 p7...))
))

根据索引En合并.
至于合并，各人有个人的方法。

陌生人

＂line延伸到sline,不一定能求出交点＂
麻烦ａｅｏ解释一下，我有点不懂，首先求交点，现在好像讨论的是求实际交点，为什么要延伸，二，为什么说不一定能求出交点？你遇到的情况是怎样的？

eachy

最初由 aeo 发布
[

讲的好，希望更多的人参与进来。总是 提问-〉回答，申请-〉程序 这两种模式觉得新意越来越小了。

aeo

最初由 陌生人 发布
[B]＂line延伸到sline,不一定能求出交点＂
麻烦ａｅｏ解释一下，我有点不懂，首先求交点，现在好像讨论的是求实际交点，为什么要延伸，二，为什么说不一定能求出交点？你遇到的情况是怎样的？ [/B]

我的意思是，先画一spline线，再画一line线，extend这line到spline
照理应该有交点（你不是延伸过去了吗!),但实际上不一定可以用
vl方法求出交点来.
也有时候明明相交的，不能用trim,真没办法。

LADESIGNER

没错,是这样的.有时求出的交点确实不在曲线上,有很小的误差.

不知这个程序具体有何用处,不过作为一个函数确实非常关键,例如曲线布尔.

个人观点:
        用VL确实比纯LISP方便了许多,但是也有不足.比如求交点用INTERSECTWITH就只能有了实体才行,如果在多条曲线的布尔中用,每一步都必须生成临时实体.所以建议对PLINE\CIRCLE等LISP可以处理的可以采用表的形式.

jx2008

讨论的很好，只可惜我没有积分，有些内容看不到

dwg001

斑竹碰出智慧的火花，是菜鸟学习提高的最好机会。致以敬意。

oyxx_1023

SPL确实有时候求不到交点，　有时候连OFFSET也不行，
同意AEO的观点，有时候ARC确实是个怪东西，在对其使用ACTIVEX方法的时候，会出现莫名的错误。如totalange,StartAngle。

albbzdc156

这个帖子好 有源码 有讨论

zhaozwf

帖子不错，学习

suntast

不会使用 晕啊

cuyongping

谢谢了！呵呵

SmartStar

受益匪浅！

gufengyin

支持 看看技术贴