为什么批量wipeout后会出现这种效果

偏爱云~小吴

2. (defun c:Jx ()
   
3. (setvar "CMDECHO" 0)
   
4. (setq i 0)
   
5. (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
   
6.   (repeat (sslength ss)
   
7.    (setq ent (ssname ss i)
   
8.        ent-lst (entget ent)
   
9.        p1 (cadr (assoc 10 ent-lst))
   
10.        p2 (caddr (assoc 10 ent-lst))
    
11.    )
    
12.    (setq pt1 (list p1 p2)
    
13.        pt2 (list (+ p1 20.8333) p2)
    
14.        pt3 (list (+ p1 20.8333) (- p2 12.5))
    
15.        pt4 (list p1 (- p2 12.5))
    
16.    )
    
17.    (command "_.wipeout" pt1 pt2 pt3 pt4 "")
    
18.    (setq i (1+ i))
    
19.   );end repeat
    
20. );end if
    
21. (command "_.ERASE" ss "")
    
22. (setvar "CMDECHO" 1)
    
23. (princ)
    
24. )
    

(defun c:Jx ()<br /> (setvar "CMDECHO" 0)<br /> (setq i 0)<br /> (if (setq ss (ssget '((0 . "LWPOLYLINE"))))<br />   (repeat (sslength ss)<br />    (setq ent (ssname ss i)<br />        ent-lst (entget ent)<br />        p1 (cadr (assoc 10 ent-lst))<br />        p2 (caddr (assoc 10 ent-lst))<br />    )<br />    (setq pt1 (list p1 p2)<br />        pt2 (list (+ p1 20.8333) p2)<br />        pt3 (list (+ p1 20.8333) (- p2 12.5))<br />        pt4 (list p1 (- p2 12.5))<br />    )<br />    (command "_.wipeout" pt1 pt2 pt3 pt4 "")<br />    (setq i (1+ i))<br />   );end repeat<br /> );end if<br /> (command "_.ERASE" ss "")<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )<br />

风树

感觉被对象捕捉过去一样

edata

初步结论，算法问题。

kwok

试试这个

2. (defun c:Jx ()
   
3. (setvar "CMDECHO" 0)
   
4. (setvar "osmode" 0)
   
5. (setq i 0)
   
6. (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
   
7.   (repeat (sslength ss)
   
8.    (setq ent (ssname ss i)
   
9.        ent-lst (entget ent) )
   
10.         (setq ptlist (vl-remove-if '(lambda (x) (/= 10 (car x))) ent-lst))
    
11.   (setq ptlist (mapcar 'cdr ptlist))
    
12. 
    
13.   (setq   ptlist (vl-sort ptlist (function
    
14.                     (lambda (e1 e2)
    
15.                       (< (+ (car e1) (cadr e1)) (+ (car e2) (cadr e2))) ))))
    
16. (setq   pt1  (nth 0 ptlist)
    
17.         pt2  (nth 1 ptlist)
    
18.         pt3  (nth 3 ptlist)
    
19.         pt4  (nth 2 ptlist)   )
    
20.    (command "_.wipeout" pt1 pt2 pt3 pt4 "")
    
21.    (setq i (1+ i))
    
22.   );end repeat
    
23. );end if
    
24. (command "_.ERASE" ss "")
    
25. (setvar "osmode" 4133)
    
26. (setvar "CMDECHO" 1)
    
27. (princ)
    
28. )

(defun c:Jx ()<br /> (setvar "CMDECHO" 0)<br /> (setvar "osmode" 0)<br /> (setq i 0)<br /> (if (setq ss (ssget '((0 . "LWPOLYLINE"))))<br />   (repeat (sslength ss)<br />    (setq ent (ssname ss i)<br />        ent-lst (entget ent) )<br />         (setq ptlist (vl-remove-if '(lambda (x) (/= 10 (car x))) ent-lst))<br />   (setq ptlist (mapcar 'cdr ptlist))<br /> <br />   (setq   ptlist (vl-sort ptlist (function<br />                     (lambda (e1 e2)<br />                       (< (+ (car e1) (cadr e1)) (+ (car e2) (cadr e2))) ))))<br /> (setq   pt1  (nth 0 ptlist)<br />         pt2  (nth 1 ptlist)<br />         pt3  (nth 3 ptlist)<br />         pt4  (nth 2 ptlist)   )<br />    (command "_.wipeout" pt1 pt2 pt3 pt4 "")<br />    (setq i (1+ i))<br />   );end repeat<br /> );end if<br /> (command "_.ERASE" ss "")<br /> (setvar "osmode" 4133)<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )

楚留香

1\你取的10的组吗只是一个顶点，不能确认是哪个顶点！你应该把顶点都取出来，然后按顺时针或者逆时针排序！

偏爱云~小吴

楚留香 发表于 2013-12-14 21:34
1\你取的10的组吗只是一个顶点，不能确认是哪个顶点！你应该把顶点都取出来，然后按顺时针或者逆时针排序！ ...

但是wiprout只需要第三个顶点，再说矩形的4个顶点都是10组码怎么区分嘛，请指教

ZZXXQQ

1、kwok程序中已经将组码10的顶点提取出来了。
2、实际上提取的顶点是有序的，不用排序。
3、wipeout可以直接转换PLINE。
直接应用顶点：

2. (defun c:Jx ()
   
3. (setvar "CMDECHO" 0)
   
4. (setvar "osmode" 0)
   
5. (setq i 0)
   
6. (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
   
7.   (repeat (sslength ss)
   
8.    (setq ent (entget (ssname ss i)))
   
9.    (command "_.wipeout")
   
10.    (foreach x ent (if (= (car x) 10) (command (cdr x))))
    
11.    (command "")
    
12.    (setq i (1+ i))
    
13.   );end repeat
    
14. );end if
    
15. (command "_.ERASE" ss "")
    
16. (setvar "osmode" 4133)
    
17. (setvar "CMDECHO" 1)
    
18. (princ)
    
19. )
    

(defun c:Jx ()<br /> (setvar "CMDECHO" 0)<br /> (setvar "osmode" 0)<br /> (setq i 0)<br /> (if (setq ss (ssget '((0 . "LWPOLYLINE"))))<br />   (repeat (sslength ss)<br />    (setq ent (entget (ssname ss i)))<br />    (command "_.wipeout")<br />    (foreach x ent (if (= (car x) 10) (command (cdr x))))<br />    (command "")<br />    (setq i (1+ i))<br />   );end repeat<br /> );end if<br /> (command "_.ERASE" ss "")<br /> (setvar "osmode" 4133)<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )<br />

直接转换：

2. (defun c:Jx ()
   
3. (setvar "CMDECHO" 0)
   
4. (setvar "osmode" 0)
   
5. (setq i -1)
   
6. (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
   
7.   (repeat (sslength ss)
   
8.    (setq en (ssname ss (setq i (1+ i))))
   
9.    (command "_.wipeout" "P" en "Y")
   
10.   )
    
11. )
    
12. (setvar "osmode" 4133)
    
13. (setvar "CMDECHO" 1)
    
14. (princ)
    
15. )
    

(defun c:Jx ()<br /> (setvar "CMDECHO" 0)<br /> (setvar "osmode" 0)<br /> (setq i -1)<br /> (if (setq ss (ssget '((0 . "LWPOLYLINE"))))<br />   (repeat (sslength ss)<br />    (setq en (ssname ss (setq i (1+ i))))<br />    (command "_.wipeout" "P" en "Y")<br />   )<br /> )<br /> (setvar "osmode" 4133)<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )<br />

偏爱云~小吴

ZZXXQQ 发表于 2013-12-15 09:15
1、kwok程序中已经将组码10的顶点提取出来了。
2、实际上提取的顶点是有序的，不用排序。
3、wipeout可以 ...

受教了，看来是我考虑的复杂了，随便问一下，区域覆盖后文字辈盖住了，如何让文字上浮一层，仔细找了一下图元上没找到影响的参数。只能用笨方法集体移动后再还原

llsheng_73

偏爱云~小吴 发表于 2013-12-16 12:23
受教了，看来是我考虑的复杂了，随便问一下，区域覆盖后文字辈盖住了，如何让文字上浮一层，仔细找了一下 ...

可以用DRAWORDER命令让它前置。。。

偏爱云~小吴

llsheng_73 发表于 2013-12-22 00:54
可以用DRAWORDER命令让它前置。。。

是的我也这样想的，我再想是借用之前的ssget还是重新选择好一点，以什么样的一个形式嵌进去