Executive Delete

I'll try here then...

Does anybody know of a macro that will unlock a layer, delete the item(s) picked then lock the layer again?

TIA

 

Sure...

(defun CeleteObjects ( / a len cnt layName)
(setq a (ssget))
(setq len (sslength a))
(setq cnt 0)
(repeat len
(setq e (ssname a cnt))
(setq layName (cdr (assoc 8 (entget (ssname a cnt)))))
(princ (strcat "\n " layName))
(command "-layer" "u" layName "")
(command "erase" e "")
(command "-layer" "lo" layName "")
(setq cnt (+ cnt 1))
)
(princ (strcat "Done erasing objects! \n\nTo restore objects to their
original state, type 'UNDO' - "(rtos len)))
(princ)
)

--
Matt W

The difference between genius and stupidity is that genius has its limits.

| I'll try here then...
|
| Does anybody know of a macro that will unlock a layer, delete the item(s)
picked then lock the layer again?
|
| TIA

 

Oops!
Forgot what NG I was in.
Anyhoo... It'll work, it's just not written in VBA.

If you need it in VBA, I can re-write it.

--
Matt W

The difference between genius and stupidity is that genius has its limits.
| Sure...
|
| (defun CeleteObjects ( / a len cnt layName)
| (setq a (ssget))
| (setq len (sslength a))
| (setq cnt 0)
| (repeat len
| (setq e (ssname a cnt))
| (setq layName (cdr (assoc 8 (entget (ssname a cnt)))))
| (princ (strcat "\n " layName))
| (command "-layer" "u" layName "")
| (command "erase" e "")
| (command "-layer" "lo" layName "")
| (setq cnt (+ cnt 1))
| )
| (princ (strcat "Done erasing objects! \n\nTo restore objects to their
| original state, type 'UNDO' - "(rtos len)))
| (princ)
| )
|
| --
| Matt W
|
| The difference between genius and stupidity is that genius has its limits.
|
| | | I'll try here then...
| |
| | Does anybody know of a macro that will unlock a layer, delete the
item(s)
| picked then lock the layer again?
| |
| | TIA
|
|