[求助]： 求助有关修剪交叉线段的问题

daiwenq

比如下图，请问在CAD中众多小部分的区域（红色部分）修剪成绿色区域中样式，如何能快速的修剪？一个个放大后修剪实在麻烦，有没有什么好的作图方法可以减少此类麻烦

cdhua001

看看这样行吗

陌生人

do it follow me

chenlei

trim命令，在提示选择剪切边时，回车略过，然后点什么切什么，配合中键移动，应该不慢的。

chengwengiii

我补充4楼的一点是，也可以用空格键，这样好像快一点。

第四类感情

其实如果楼主用多线画的话，那不是更快，根本用不着修剪，直接用多线编辑命令就行了！
而且三楼和二楼所说的好像都有局限性吧！

daiwenq

最初由 陌生人 发布
[B]do it follow me [/B]

我的显卡不好，你制作的这种类型的动画演示看不了，能用文字叙述一下吗，谢谢

cdhua001

不是显卡问题，是图形缩小了的原因。
你可以点击那个GIF图片，就可以在新的窗口里面打开它了，效果也就清楚了。

daiwenq

谢谢，我看到了，不过不是很理解，能说明一下这个方法吗？6楼楼主的方法不错，如果转角多的图用多线就未必好画了吧，比如窗户，交叉部分还是很多
而且用多线画需不断移动鼠标和输入数据，我想如果这样还不如
乖乖修剪来的快

第四类感情

不会吧,多线画那种东东我觉得再方便不过了,就是因为它的修剪功能很方便,而且和你画直线不是一样的嘛!

柔柔

象9楼的图为什么不换一种思路呢？
修剪完一个再复制不更好？

maplesu

同意柔柔的，你那个楼梯复制不是很方便呀

cdhua001

　　如果是说楼梯画的方法，我倾向于画一条L形的多段线，偏移出另一条，然后画上面的栏杆，最后复制出几个。（也就是柔柔的方法）
　　我觉得，很多时候也会用到剪切的，尤其是批量的剪切。多了解几种方法也很不错。

maplesu

其实有一段一直为井字线，剪掉中间部分烦恼，操作很慢。
所以那是编写了个lisp
看看你们有没有什么用处。

[php]
(defun C:jq()
  (setq ss (ssget '((0 . "LINE"))))
  (if (= (sslength ss) 4)
    (progn
      (setq l1 (ssname ss 0)
            l2 (ssname ss 1)
            l3 (ssname ss 2)
            l4 (ssname ss 3))
      (setq qd1 (cdr (assoc 10 (entget l1)))
            zd1 (cdr (assoc 11 (entget l1)))
            qd2 (cdr (assoc 10 (entget l2)))
            zd2 (cdr (assoc 11 (entget l2)))
            qd3 (cdr (assoc 10 (entget l3)))
            zd3 (cdr (assoc 11 (entget l3)))
            qd4 (cdr (assoc 10 (entget l4)))
            zd4 (cdr (assoc 11 (entget l4))))
      (setq jd1 (inters qd1 zd1 qd2 zd2)
            jd2 (inters qd1 zd1 qd3 zd3)
            jd3 (inters qd1 zd1 qd4 zd4))
      (cond ((= jd1 nil)
              (progn
                (setq jd5 (inters qd2 zd2 qd3 zd3)
                      jd6 (inters qd2 zd2 qd4 zd4))
                (command "break" l1 jd2 jd3)
                (command "break" l2 jd5 jd6)
                (command "break" l3 jd2 jd5)
                (command "break" l4 jd3 jd6)));jd1
            ((= jd2 nil)
              (progn
                (setq jd5 (inters qd3 zd3 qd2 zd2)
                      jd6 (inters qd3 zd3 qd4 zd4))
                (command "break" l1 jd1 jd3)
                (command "break" l2 jd1 jd5)
                (command "break" l3 jd5 jd6)
                (command "break" l4 jd3 jd6)));jd2
            ((= jd3 nil)
              (progn
                (setq jd5 (inters qd4 zd4 qd3 zd3)
                      jd6 (inters qd2 zd2 qd4 zd4))
                (command "break" l1 jd2 jd1)
                (command "break" l2 jd1 jd6)
                (command "break" l3 jd2 jd5)
                (command "break" l4 jd5 jd6)));jd3
            );cond
      );progn
    (princ "选择不为4根线！！")   
    );if
  (princ)
  )
[/php]

daiwenq

lisp还不会，还是柔柔的办法好