批量剪切问题

zwf100

有n组线条，每组有2条线相交线组成，该两条线不同颜色，能否实现批量将一种颜色线以下（或者以上）的另外一种线剪切掉，求高手支招？

zwf100

好像论坛关于剪切的帖子较少

zwf100

zwf100 发表于 2015-10-16 00:34
好像论坛关于剪切的帖子较少

根据高手的程序改了下，还有不足之处，望高手简化，比如要先点两个点的功能不知如何去掉

zwf100

zwf100 发表于 2015-10-28 00:46
根据高手的程序改了下，还有不足之处，望高手简化，比如要先点两个点的功能不知如何去掉

2. <p>(defun c:ltr (/ CMDECHO F3 OS F8 OTH P1 LOOP GR P2 DP SE2 SE1 N K EN ENL)
   
3.   (defun *error* (s)
   
4.      (princ s)
   
5.      (setvar 'cmdecho cmdecho)
   
6.      (setvar 'osmode os)
   
7.      (setvar 'ORTHOMODE oth)
   
8.      )
   
9.    (setq cmdecho (getvar 'cmdecho))
   
10.    (setq f3 (getvar 'osmode) os f3)
    
11.    (setq f8 (getvar 'ORTHOMODE) oth f8)
    
12.    (setvar 'cmdecho 0)
    
13.    
    
14.    ;;;;;;++++++++++++++++++++++++++++++++++
    
15.    (princ "\n请选择剪切线的颜色(不能随层）:")
    
16.    (setq ss (nth 0 (entsel)))
    
17.    (command "undo" "be")
    
18.    (setvar "cmdecho" 0)
    
19.    (setq cor (assoc 62 (entget ss)))        ;颜色如果随层,按图层颜色
    
20.    (if (= cor nil)
    
21.      (progn (setq tc (cdr (assoc 8 (entget ss))))
    
22.             (setq tc (tblsearch "layer" tc))
    
23.             (setq cor (assoc 62 tc))
    
24.      )
    
25.    )
    
26.    (princ "\n请框选含有以上颜色的剪切线:")
    
27. (setq ss1 (ssget))
    
28. 
    
29. ;;;;;;;;;;;;;;;;+++++++++++
    
30.    (setq se1 (ssget "P" (list cor)))
    
31. </p><p>  (princ "\n请选择剪切线的颜色(不能随层）:")
    
32.    (setq ss (nth 0 (entsel)))
    
33.    (command "undo" "be")
    
34.    (setvar "cmdecho" 0)
    
35.    (setq cor (assoc 62 (entget ss)))        ;颜色如果随层,按图层颜色
    
36.    (if (= cor nil)
    
37.      (progn (setq tc (cdr (assoc 8 (entget ss))))
    
38.             (setq tc (tblsearch "layer" tc))
    
39.             (setq cor (assoc 62 tc))
    
40.      )
    
41.    )
    
42.    (princ "\n请框选含有以上颜色的被剪切线:")
    
43. (setq ss2 (ssget))
    
44. 
    
45. (setq se2 (ssget "P" (list cor)))
    
46. </p><p>;;; (grdraw p1 p2 1 -1)
    
47.    ;(initget 7 "  ")
    
48.    (setq p1 (getpoint "\n剪切哪一边？："))
    
49.    ;(if (= "" p1) (abcdefg))
    
50.    (setq n (sslength se2) k 0)
    
51.    (repeat n
    
52.      (progn
    
53.        (setq en (ssname se2 k)
    
54.             enl (list en p1)
    
55.             )
    
56.        (command "trim" se1 "" enl "")
    
57.         (setq k (1+ k))
    
58.        )
    
59.      )
    
60.    (entdel se1)
    
61.    (redraw)
    
62.    (setvar 'cmdecho cmdecho)
    
63.      (setvar 'osmode os)
    
64.      (setvar 'ORTHOMODE oth)
    
65.    (princ)
    
66.    )
    
67. 
    
68. </p>

<p>(defun c:ltr (/ CMDECHO F3 OS F8 OTH P1 LOOP GR P2 DP SE2 SE1 N K EN ENL) <br />   (defun *error* (s)<br />      (princ s)<br />      (setvar 'cmdecho cmdecho)<br />      (setvar 'osmode os)<br />      (setvar 'ORTHOMODE oth)<br />      )<br />    (setq cmdecho (getvar 'cmdecho))<br />    (setq f3 (getvar 'osmode) os f3)<br />    (setq f8 (getvar 'ORTHOMODE) oth f8)<br />    (setvar 'cmdecho 0)<br />     <br />    ;;;;;;++++++++++++++++++++++++++++++++++<br />    (princ "\n请选择剪切线的颜色(不能随层）:")<br />    (setq ss (nth 0 (entsel)))<br />    (command "undo" "be")<br />    (setvar "cmdecho" 0)<br />    (setq cor (assoc 62 (entget ss)))        ;颜色如果随层,按图层颜色<br />    (if (= cor nil)<br />      (progn (setq tc (cdr (assoc 8 (entget ss))))<br />             (setq tc (tblsearch "layer" tc))<br />             (setq cor (assoc 62 tc))<br />      )<br />    )<br />    (princ "\n请框选含有以上颜色的剪切线:")<br /> (setq ss1 (ssget))<br /> <br /> ;;;;;;;;;;;;;;;;+++++++++++<br />    (setq se1 (ssget "P" (list cor)))<br /> </p><p>  (princ "\n请选择剪切线的颜色(不能随层）:")<br />    (setq ss (nth 0 (entsel)))<br />    (command "undo" "be")<br />    (setvar "cmdecho" 0)<br />    (setq cor (assoc 62 (entget ss)))        ;颜色如果随层,按图层颜色<br />    (if (= cor nil)<br />      (progn (setq tc (cdr (assoc 8 (entget ss))))<br />             (setq tc (tblsearch "layer" tc))<br />             (setq cor (assoc 62 tc))<br />      )<br />    )<br />    (princ "\n请框选含有以上颜色的被剪切线:")<br /> (setq ss2 (ssget))<br /> <br /> (setq se2 (ssget "P" (list cor)))<br /> </p><p>;;; (grdraw p1 p2 1 -1)<br />    ;(initget 7 "  ")<br />    (setq p1 (getpoint "\n剪切哪一边？："))<br />    ;(if (= "" p1) (abcdefg))<br />    (setq n (sslength se2) k 0)<br />    (repeat n<br />      (progn<br />        (setq en (ssname se2 k)<br />             enl (list en p1)<br />             )<br />        (command "trim" se1 "" enl "")<br />         (setq k (1+ k))<br />        )<br />      )<br />    (entdel se1)<br />    (redraw)<br />    (setvar 'cmdecho cmdecho)<br />      (setvar 'osmode os)<br />      (setvar 'ORTHOMODE oth)<br />    (princ)<br />    )<br /> <br /> </p>

zwf100

根据论坛里高手的程序修改了下，基本能达到要求，就是不支持颜色随层对象和最后会提示错误