[建议]：关于xdrx_curve_remove_dup

aeo · 发表于 2003-3-4 23:41:31

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

xdrx_curve_remove_dup有bug,今天找到规律了.出现问题的都是90或270度的线.

试验一下:画一线(command"line" '(0 0) '(0 1000) "")  要垂直的
         再画一根  (command"line" '(0 500) '(0 1500) "")
好:  (xdrx_curve_remove_dup (ssget)100 10 100) 选刚画的两线,成功的机会很少,只要都是垂直的,
就会出错.而且还有规律,象上面就是成了500的线了.
      水平线和斜线是不错的.
我想是不是程序里的点排序错了,光比了x,在x相等是还在比x.

XDSoft · 发表于 2003-3-5 00:14:42

最初由 aeo 发布
[B]xdrx_curve_remove_dup有bug,今天找到规律了.出现问题的都是90或270度的线.

试验一下:画一线(command"line" '(0 0) '(0 1000) "") 要垂直的
再画一根 (command"line" '(0 500) '(0 1500) "") ... [/B]

你试试用晓东工具箱的“交互消重”命令试试，可以消除掉，主要是注意参数的使用，你参见下“交互消重”的LISP

这个核心函数排序考虑的很周全了，从目前测试过的来看。

你再试试。

aeo · 发表于 2003-3-5 00:21:30

你不信试试,照我的方法, 一定要是两根重了的垂直线

“交互消重”对这样画出的线也不对的,我一直怀疑是我写错了,但后来看了你的程序知道没错.
出错概率超过50%,只画两根这样的线,用“交互消重”试试.

一定要试呀,
我用这写东西,老出错,才发现的.

好象ea写的"两个向量是否平行"
(ang1-ang2)是0或pi ,角度呀,怎么可能会减出pi来,而且是在cad里面.

eachy · 发表于 2003-3-5 07:16:22

最初由 aeo 发布
[B]你不信试试,照我的方法, 一定要是两根重了的垂直线

“交互消重”对这样画出的线也不对的,我一直怀疑是我写错了,但后来看了你的程序知道没错.
出错概率超过50%,只画两根这样的线,用“交互消重”试试.

一?.. [/B]

为什么出现pi的问题，我是这样考虑的，例如‘（0.0 1.0 0.0）与’（0.0 -1.0 0.0）方向相反的两个向量应该算做平行。

aeo · 发表于 2003-3-8 10:25:39

最初由 eachy 发布
[为什么出现pi的问题，我是这样考虑的，例如‘（0.0 1.0 0.0）与’（0.0 -1.0 0.0）方向相反的两个向量应该算做平行

我的意思你没明白:
比如,画一线e1再copy一根e2,
这两根线是斜的话p1 (dxf 10 e1 ) p3 (dxf 10 e2)
(=(angle p1 p2)(angle p3 p4)) --> nil

p1p2角度在0~90度间的话,照理
(= pi (-(angle p4 p3)(angle p1 p2)))应该为t.但也不可能.

要"等于"永远是不可能的,只能在误差范围内.

我怀疑晓东的这个函数也是这错误.因为只有90度的线才出错,
这时候正是比X坐标没法比的时候.

我有两台机器多试了,都出错,难道大家的都行,就我的两台不行.

aeo · 发表于 2003-3-8 23:10:29

我上午怎么试怎么不行,现在怎么试怎么可以.天知道,反正我判断平行是看有没有交点的.

我们跑题的远了,我问的是(xdrx_curve_remove_dup )的问题.
可不可以帮我试试.
方法是画90度的大于100长的垂线,再向上拷几份,要拷的有重合.如果行,向下拷,再试.
(xdrx_curve_remove_dup (ssget) 100 10 100) 选这几根刚画的线就行了,没写错吧.
我可又试了一遍,还是30%对,30%错,30%什么也不干.

XDSoft · 发表于 2003-3-8 23:30:59

最初由 aeo 发布
[B]我上午怎么试怎么不行,现在怎么试怎么可以.天知道,反正我判断平行是看有没有交点的.

我们跑题的远了,我问的是(xdrx_curve_remove_dup )的问题.
可不可以帮我试试.
方法是画90度的大于100长的垂线,再向上拷几份... [/B]

确实有BUG，以后的API改正。谢谢！

aeo · 发表于 2003-3-9 00:48:54

我正用这函数呢
看我的问题:
用line线画个L
再将这两条线原地copy
用pedit把这四条线连成一个pl线,猜成一个什么样的线,(那个pl的点排列想也想不到!!)

所以我一定要用消重线

ea同志

ÃüÁî: (angle p1 p2)
0.389394
ÃüÁî: (angle p3 p4)
0.389394
ÃüÁî: (= (angle p1 p2)(angle p3 p4))
nil
ÃüÁî: (= pi(-(angle p4 p3)(angle p1 p2)))
T
ÃüÁî: (= pi(-(angle p2 p1)(angle p3 p4)))
T
ÃüÁî: (= (angle p1 p2)(angle p3 p4))
nil

复制代码

我把其中一线延伸了一下,两个角度不相等了,但反过来减倒等于pi
反正用相等不好,我吃过苦头的:永远不知道错在哪.

账号		自动登录	找回密码
密码			立即注册

[建议]：关于xdrx_curve_remove_dup

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [建议]：关于xdrx_curve_remove_dup