遮罩（Wipeout）转面域（Region）

marting

1. ;;;--------------------------------------------------------------------;
   
2. ;;; Description:
   
3. ;;; Convert all wipeouts within a given drawing to regions.
   
4. ;;;--------------------------------------------------------------------;
   
5. ;;; Exit function:
   
6. (defun WIPEOUT->REGION:Exit (msg)
   
7.   (cond        ((not msg))                        ; Normal exit
   
8.         ((member msg '("Function cancelled" "quit / exit abort")))
   
9.                                         ; <esc> or (quit)
   
10.         ((princ (strcat "\n  <!>  Error: " msg "  <!> ")))
    
11.   )                                        ; Fatal error, display it
    
12.   (WIPEOUT->REGION:Quit)
    
13. )
    
14. ;;;--------------------------------------------------------------------;
    
15. ;;; Quit function:
    
16. (defun WIPEOUT->REGION:Quit ()
    
17.   (setvar 'cmdecho *oldCmdecho*)
    
18.   (setq *oldCmdecho* nil)
    
19.   (setq        *error*        *oldError*
    
20.         *oldError* nil
    
21.   )
    
22.   (vla-endundomark *activeDoc*)
    
23.   (princ)
    
24. )
    
25. ;;;--------------------------------------------------------------------;
    
26. ;;; Main function:
    
27. (defun c:WIPEOUT->REGION (/ ss)
    
28.   (vl-load-com)
    
29.   (vla-startundomark
    
30.     (cond (*activeDoc*)
    
31.           ((setq *activeDoc*
    
32.                   (vla-get-activedocument (vlax-get-acad-object))
    
33.            )
    
34.           )
    
35.     )
    
36.   )
    
37.   ;; Error checking
    
38.   (setq        *oldError* *error*
    
39.         *error*           WIPEOUT->REGION:Exit
    
40.   )
    
41.   (setq *oldCmdecho* (getvar 'cmdecho))
    
42.   (setvar 'cmdecho 0)
    
43.   ;; Main code
    
44.   (if (and (setq ss (ssget "_x" '((0 . "WIPEOUT"))))
    
45.            (setq ss (ssget "_x"))
    
46.       )
    
47.     ((lambda (i / e v visList wipList mn mx c)
    
48.        (while (setq e (ssname ss (setq i (1+ i))))
    
49.          (if (/= "WIPEOUT" (strcase (cdr (assoc 0 (entget e)))))
    
50.            (progn (vla-put-visible
    
51.                     (setq v (vlax-ename->vla-object e))
    
52.                     :vlax-false
    
53.                   )
    
54.                   (setq visList (cons v visList))
    
55.            )
    
56.            (setq wipList (cons e wipList))
    
57.          )
    
58.        )
    
59.        (foreach        w wipList
    
60.          (vla-getboundingbox
    
61.            (setq v (vlax-ename->vla-object w))
    
62.            'mn
    
63.            'mx
    
64.          )
    
65.          (setq c (mapcar '*
    
66.                          (mapcar '+
    
67.                                  (setq mn (vlax-safearray->list mn))
    
68.                                  (setq mx (vlax-safearray->list mx))
    
69.                          )
    
70.                          '(0.5 0.5 0.5)
    
71.                  )
    
72.          )
    
73.          (vl-cmdf "._boundary" c "")
    
74.          (vl-cmdf "._matchprop" w (entlast) "")
    
75.          (vl-cmdf "._region" (entlast) "")
    
76.          (vla-delete v)
    
77.        )
    
78.        (foreach o visList (vla-put-visible o :vlax-true))
    
79.      )
    
80.       -1
    
81.     )
    
82.     (prompt
    
83.       "\n  <!>  No Wipeouts Detected in Currect Drawing  <!> "
    
84.     )
    
85.   )
    
86.   (WIPEOUT->REGION:Quit)
    
87. )
    

;;;--------------------------------------------------------------------;<br /> ;;; Description:<br /> ;;; Convert all wipeouts within a given drawing to regions.<br /> ;;;--------------------------------------------------------------------;<br /> ;;; Exit function:<br /> (defun WIPEOUT->REGION:Exit (msg)<br />   (cond        ((not msg))                        ; Normal exit<br />         ((member msg '("Function cancelled" "quit / exit abort")))<br />                                         ; <esc> or (quit)<br />         ((princ (strcat "\n  <!>  Error: " msg "  <!> ")))<br />   )                                        ; Fatal error, display it<br />   (WIPEOUT->REGION:Quit)<br /> )<br /> ;;;--------------------------------------------------------------------;<br /> ;;; Quit function:<br /> (defun WIPEOUT->REGION:Quit ()<br />   (setvar 'cmdecho *oldCmdecho*)<br />   (setq *oldCmdecho* nil)<br />   (setq        *error*        *oldError*<br />         *oldError* nil<br />   )<br />   (vla-endundomark *activeDoc*)<br />   (princ)<br /> )<br /> ;;;--------------------------------------------------------------------;<br /> ;;; Main function:<br /> (defun c:WIPEOUT->REGION (/ ss)<br />   (vl-load-com)<br />   (vla-startundomark<br />     (cond (*activeDoc*)<br />           ((setq *activeDoc*<br />                   (vla-get-activedocument (vlax-get-acad-object))<br />            )<br />           )<br />     )<br />   )<br />   ;; Error checking<br />   (setq        *oldError* *error*<br />         *error*           WIPEOUT->REGION:Exit<br />   )<br />   (setq *oldCmdecho* (getvar 'cmdecho))<br />   (setvar 'cmdecho 0)<br />   ;; Main code<br />   (if (and (setq ss (ssget "_x" '((0 . "WIPEOUT"))))<br />            (setq ss (ssget "_x"))<br />       )<br />     ((lambda (i / e v visList wipList mn mx c)<br />        (while (setq e (ssname ss (setq i (1+ i))))<br />          (if (/= "WIPEOUT" (strcase (cdr (assoc 0 (entget e)))))<br />            (progn (vla-put-visible<br />                     (setq v (vlax-ename->vla-object e))<br />                     :vlax-false<br />                   )<br />                   (setq visList (cons v visList))<br />            )<br />            (setq wipList (cons e wipList))<br />          )<br />        )<br />        (foreach        w wipList<br />          (vla-getboundingbox<br />            (setq v (vlax-ename->vla-object w))<br />            'mn<br />            'mx<br />          )<br />          (setq c (mapcar '*<br />                          (mapcar '+<br />                                  (setq mn (vlax-safearray->list mn))<br />                                  (setq mx (vlax-safearray->list mx))<br />                          )<br />                          '(0.5 0.5 0.5)<br />                  )<br />          )<br />          (vl-cmdf "._boundary" c "")<br />          (vl-cmdf "._matchprop" w (entlast) "")<br />          (vl-cmdf "._region" (entlast) "")<br />          (vla-delete v)<br />        )<br />        (foreach o visList (vla-put-visible o :vlax-true))<br />      )<br />       -1<br />     )<br />     (prompt<br />       "\n  <!>  No Wipeouts Detected in Currect Drawing  <!> "<br />     )<br />   )<br />   (WIPEOUT->REGION:Quit)<br /> )<br />

longer88

纯cad能用吧

qxlonmsn

楼主威武啊  这都能搞出来

434939575

这都能整。佩服。