[编程交流] 从块中删除擦除

(defun c:t1 ( / ss1 )(if (setq ss1 (ssget "X" '((0 . 
"WIPEOUT"))))(command "_.draworder" ss1 "" "_Back")))

(defun c:BlockWipeouts2Bottom (/ blk item lst Sortents count)
 (setq count 0)
 (vlax-for blk (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object)))
   (if (and (= (vla-get-IsLayout blk) :vlax-false)
            (= (vla-get-IsXRef blk) :vlax-false)
            (not (wcmatch (strcase (vla-get-Name blk)) "`**"))
       )
     (vlax-for item blk
       (if (eq (vla-get-ObjectName item) "AcDbWipeout")
         (setq lst (cons item lst) count (1+ count))
       )
     )
   )
   (if (and lst
            (setq Sortents
                   (LM:SortentsTable
                     (vla-ObjectIDtoObject
                       (vla-get-ActiveDocument
                         (vlax-get-acad-object)
                       )
                       (vla-get-OwnerID (car lst))
                     )
                   )
            )
       )
     (vla-MovetoBottom Sortents (LM:ObjectVariant lst))
   )
   (setq lst nil)
 )
 (vla-Regen (vla-get-ActiveDocument (vlax-get-acad-object)) acAllViewports)
 (princ "\n")
 (princ count)
 (princ " wipeouts moved to bottom inside blocks.")
 (princ)
)