Delete viewport in a layout containing only one viewport (and nothing else)

[w64bit]

I am trying to delete the viewport on a layout containing only one viewport (and nothing else).

Can anyone please help?

Edited August 5, 2022 by w64bit

[ronjonp]

Try this .. does not check for locked layers:

(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)
)

 

[w64bit]

It's working very well.

Thank you very much.

[ronjonp]

39 minutes ago, w64bit said:

It's working very well.

Thank you very much.

Glad to help