[编程交流] “-BEdit”多块

(defun C:Clean()
(vl-load-com)
(cond ((and (setq ent (car (entsel "\nSelecione o Bloco: ")))
(eq (cdr (assoc 0 (entget ent))) "INSERT")
(setq NAME (vla-get-effectivename(vlax-ename->vla-object ent))))))
(command "-bedit" NAME)
(setq HT (ssget "all" '((0 . "HATCH"))))
(command "erase" HT "")
(setq SS (ssget "all" '((0 . "SOLID"))))
(command "erase" SS "")
(command "chprop" "all" "" "Color" "bylayer" "")
(command "bclose" "S")
(princ)
)

(sslength ht) ; this tells you how many objects
(repeat (sslength ht)) ;a loop that goes through all the object in the selection set
(ssname ht x) ; this retrieves the object based on the value of x start at 0
(command "erase" (ssname ht x) "") ; removes object
(entget (ssname ht 2)) ; look at 2nd object in HT use this for zooming etc

(defun C:Clean ( / bl ss i ent name h s )
 (vl-load-com)
 (setq bl (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))
 (while (not ss)
   (if (setq ss (ssget "_:L" '((0 . "INSERT"))))
     (progn
       (setq i -1)
       (while (setq ent (ssname ss (setq i (1+ i))))
         (setq name (vla-get-effectivename (vlax-ename->vla-object ent)))
         (if (eq (vla-get-isxref (vla-item bl name)) :vlax-false)
           (progn
             (command "_.bedit" name)
             (setq h (ssget "all" '((0 . "HATCH"))))
             (command "_.erase" h "")
             (setq s (ssget "all" '((0 . "SOLID"))))
             (command "_.erase" s "")
             (command "_.chprop" "all" "" "Color" "ByLayer" "")
             (command "_.bclose" "S")
           )
         )
       )
     )
     (prompt "\nEmpty sel.set... Select again...")
   )
 )
 (princ)
)

(vl-load-com)
(defun c:Test (/ b o)
   ;;--- Tharwat 26.June.2013 ---;;  
   (or doc
       (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
   )
   (vlax-for b
             (vla-get-blocks
                 doc
             )
       (if (and
               (eq :vlax-false (vla-get-isLayout b))
               (eq :vlax-false (vla-get-isXref b))
           )
           (vlax-for o b
               (if [b][color=red](or[/color][/b]
                       (eq "AcDbHatch" (vla-get-objectname o))
                       [b][color=red](eq "AcDbSolid" (vla-get-objectname o))[/color][/b]
[b][color=red]                   )[/color][/b]
                   (vl-catch-all-apply 'vla-delete (list o))
               )
           )
       )
   )
   (vla-regen doc acAllViewports)
   (princ)
)

[color=slategray]................[/color]
[color=slategray]................[/color]
[color=slategray](vlax-for o b[/color]
[color=slategray]    (if (or[/color]
[color=slategray]            (eq "AcDbHatch" (vla-get-objectname o))[/color]
[color=slategray]            (eq "AcDbSolid" (vla-get-objectname o))[/color]
[color=slategray]        )[/color]
[color=slategray]        (vl-catch-all-apply 'vla-delete (list o))[/color]
       [color=red][b](vla-put-color o "256")[/b][/color]
[color=slategray]    )[/color]
[color=slategray])[/color]
[color=slategray]................[/color]
[color=slategray]................[/color]

(vl-load-com)
(defun c:Test (/ b o)
 ;;---     Tharwat 2014         ---;;
 (or doc (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))))
 (vlax-for b (vla-get-blocks doc )
   (if
     (and
       (eq :vlax-false (vla-get-isLayout b))
       (eq :vlax-false (vla-get-isXref b))
       )
     (vlax-for o b
       (if (or
             (eq "AcDbHatch" (vla-get-objectname o))
             (eq "AcDbSolid" (vla-get-objectname o))
             )
         (vl-catch-all-apply 'vla-delete (list o))
         (vl-catch-all-apply 'vla-put-color (list o AcBylayer))
         )
       )
     )
   )
 (vla-regen doc acAllViewports)
 (princ)
 )