24 lines
540 B
Common Lisp
24 lines
540 B
Common Lisp
;--------------------------
|
|
; Layerloeschen AW 30.6.91
|
|
;--------------------------
|
|
|
|
(Defun C:DellayA ()
|
|
(Setvar "Cmdecho" 0)
|
|
(Setq A (Getstring "\nLayer to delete - Name: "))
|
|
(Command "_erase" (Ssget "X" (Cons (Cons 8 (Eval A)) TEMPWORD)) "")
|
|
(Princ)
|
|
)
|
|
|
|
(Defun C:DellayB ()
|
|
(Setvar "Cmdecho" 0)
|
|
(Setq A (Entsel "\nLayer to delete - select object: "))
|
|
(If
|
|
A
|
|
(Progn
|
|
(Setq A (Cdr (Assoc 8 (Entget (Car A)))))
|
|
(Command "_erase" (Ssget "X" (Cons (Cons 8 (Eval A)) TEMPWORD)) "")
|
|
)
|
|
)
|
|
(Princ)
|
|
)
|
|
|