;;; Erase All Outside of selected objects
;;; Created by Igal Averbuh 2016
(defun c:eo()
(setvar 'cmdecho 0)

(princ "\nSelect Needful Objects")
(setq ss (ssget))
(command "-layer" "u" "*" "")
(command "_.ERASE" "all" "r" ss "")
(command "_.zoom" "e")
(setvar 'cmdecho 1)
(princ)
)
(c:eo)

Advertisements