[编程交流] 删除所有布局的对象

(defun C:F4 ( / current_layout doc plotabs plottablist len K ss2)
(setq current_layout (getvar "ctab"))
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(vlax-for lay (vla-get-Layouts doc)
  (setq plotabs (cons (vla-get-name lay) plotabs))
)
(setq plottablist (acad_strlsort plotabs))
(setq len (length plottablist))
(setvar "osmode" 0)
(setq K 0)
(repeat len
  (setq name (nth K plottablist))
  (if (and (/= name "Model") (/= name current_layout))
        (progn
        (setvar "ctab" name)
        (command "zoom" "E") ;put what you want to here as many lines as you want like (command "erase" "W" 0,0 50,35 "")
        (command "erase" "W" '(250 76) '(422 17) "")
        (command "erase" "W" '(666 70) '(686 60) "")
        ) ;end progn
) ; end if
(setq K (+ K 1))
(setq ss2 '())
) ; end repeat
(setvar "ctab" current_layout)
(princ)
);defun

(vl-load-com)
(defun ss-union ( s1 s2 / si )
   (cond
       (   (null s1) s2)
       (   (null s2) s1)
       (   (< (sslength s1) (sslength s2))
           (repeat (setq si (sslength s1))
               (ssadd (ssname s1 (setq si (1- si))) s2)
           )
           s2
       )
       (   t
           (repeat (setq si (sslength s2))
               (ssadd (ssname s2 (setq si (1- si))) s1)
           )
           s1
       )
   )
)
(defun C:E1 ( / current_layout doc plotabs plottablist len K ss2 BBP ssg ss ssw1 ssw2)
; (setq current_layout (getvar "ctab"))
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(vlax-for lay (vla-get-Layouts doc)
  (setq plotabs (cons (vla-get-name lay) plotabs))
)
(setq plottablist (acad_strlsort plotabs))
(setq len (length plottablist))
; (setvar "osmode" 0)
(setq K 0)
(repeat len
  (setq name (nth K plottablist))
  (if (/= name "Model")
        (progn
                (setvar "ctab" name)
                (command "zoom" "E")
                (if (setq ssg (ssget "X" (list '(2 . "Drawing Frame") (cons 410 (getvar "ctab")))))
                        (progn
                                (setq BBP (cdr (assoc 10 (entget (ssname ssg 0)))))
                                (setq BBP (list (car BBP) (cadr BBP)))
                                (setq wp1 (list (+ (car BBP) 254) (+ (cadr BBP) 65)))
                                (setq wp2 (list (+ (car BBP) 420) (+ (cadr BBP) 20)))
                                (setq wp3 (list (+ (car BBP) 665) (+ (cadr BBP) 70)))
                                (setq wp4 (list (+ (car BBP) 684) (+ (cadr BBP) 62)))
                        )
                )
                ; (command "zoom" "E") ;put what you want to here as many lines as you want like (command "erase" "W" 0,0 50,35 "")
                (if (setq ssw1 (ssget "_W" wp1 wp2))
                        (setq ss (ss-union ss ssw1))
                )
                (if (setq ssw2 (ssget "_W" wp3 wp4))
                        (setq ss (ss-union ss ssw2))
                )
                (if ss
                        (progn
                                (command "_erase" ss "")
                                ; (command "pasteclip" '(0 0 0))
                        )
                )
        ) ;end progn
) ; end if
(setq K (+ K 1))
(setq ss2 '())
) ; end repeat
; (command "_qsave")
; (setvar "ctab" current_layout)
(princ)
);defun

; https://www.theswamp.org/index.php?topic=51868.msg569126#msg569126
(defun c:usewithcaution        (/ p1 p2 ss)
 (vl-load-com)
 (if (and (= 0 (getvar 'tilemode))
   (setq p1 (getpoint "\nSpecify first corner point: "))
   (setq p2 (getcorner p1 "\nSpecify other corner point: "))
 )
 (foreach tab (layoutlist)
   (setvar 'ctab tab)
   (and (= 1 (getvar 'cvport)) (vlax-invoke (vlax-get-acad-object) 'zoomwindow p1 p2))
   (if (setq ss (ssget "W" p1 p2 (list (cons 410 tab))))
     (mapcar 'entdel (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
   )
 )
 )
 (princ)
)