[编程交流] 删除布局中的视口

(defun c:foo (/ s)  (foreach l (layoutlist)    (and (setq s (ssget "_X" (list (cons 410 l))))         (= 2 (sslength s))         (setq s (mapcar 'cadr (ssnamex s)))         (= "VIEWPORT" (cdr (assoc 0 (entget (car s)))) (cdr (assoc 0 (entget (cadr s)))))         (mapcar 'vla-delete (mapcar 'vlax-ename->vla-object s))    )  )  (princ))