求大神指点一下，求一个高性能的修剪解决方案

qq1846687144

如图，我想利用红色的线修剪其他白色的线，然后留下红色内部的线，使用的方法大致如下，            (while  (nth n pxd)                    (command "trim" ss2 "")
                  (setq pt1 (list(car(nth n pxd)) (+ 0.1 (cadr(nth n pxd)))))
                  (command "f" pt1)
                    (princ pt1)
                    (repeat 5
                            (setq ptn (list (car(nth (+ 1 n) pxd)) (+ 0.1 (cadr(nth (+ 1 n) pxd)))))
                            (princ ptn)
                        (command ptn)
                              (setq n (1+ n))
                    );end repeat
                  (command "")
                  (command "")
            );end while
就是用command trim命令的栏选，然后把红线的点表放上去就行了，功能是能实现，但是当量太多的时候，效率很低，有没有大神有解决方法的？感谢大神！

newer

上附图DWG。

qq1846687144

newer 发表于 2016-12-2 16:19

前几天家里网不知道怎么了，上不了论坛。感谢n版大大啦！

newer

qq1846687144 发表于 2016-12-9 15:23

你的图里面也没红色的线啊

重做下图吧，不用那么长，找个说明问题的局部， 操作前是什么样的， 你手工裁剪后是什么样的，上下对照。

qq1846687144

newer 发表于 2016-12-9 17:36

这次的，其实主要就是太长了，用代码一裁剪，就卡上了，要等很长的时间。

newer

qq1846687144 发表于 2016-12-12 15:35

你最后这个图还是没太说明问题

看下面图，你是要把上面的，变成下面的图吗？

qq1846687144

newer 发表于 2016-12-12 16:30

是的，差不多就是这个意思

newer

qq1846687144 发表于 2016-12-12 16:31

那你想怎么操作，告诉程序你要删除的是黄色X范围的，而不是品红X范围的？ 点完红线，然后窗口去手工选？ 从你这个图形看，不太能实现点完红色的线自动就全处理了。

qq1846687144

newer 发表于 2016-12-12 17:07

我利用的是command tirm 裁剪命令的f栏选选项，因为可以得到红线的所有的顶点坐标，然后将这些坐标的y值+0.5，x坐标不变得到的点作为栏选的点，然后就可以裁剪黄色X范围的线，如果将y值减小作为栏选的坐标点，就能裁剪掉红色X范围的线

qq1846687144

newer 发表于 2016-12-12 17:07

用栏选的方式就不需要去选择那些白线，只需要选择红线就可以了，凡是与红线有相交的其他线且y值比红线大，就会被删除。最开始我是把所有栏选点全部确定了裁剪，结果发现很卡，然后我就5个点5个点的循环剪