Need Lisp To Keep From Doing Over And Over

[t_olmos]

LOOKING FOR A LISP FILE FOR THE FOLLOWING:

While object is selected

PULL DOWN MENU, EDIT

COPY W/ BASEPOINT (_copybase)

_copybase Specify Base Point: 0,0

command: e

PULL DOWN MENU, EDIT

PASTE AS BLOCK

(_pasteblock Duplicate definition of Block _oblique ignored.)

Specify Insertion Point: 0,0

command: _LayerP

[Lee Mac]

Quick and dirty:

 

(defun c:pstblk (/ *error* vl ov ss)

 (defun *error* (msg)
   (if ov (mapcar 'setvar vl ov))
   (if
     (not
       (wcmatch
         (strcase msg) "*BREAK,*CANCEL*,*EXIT*"))
     (princ
       (strcat "\n<< Error: " msg " >>")))
   (princ))

 (setq vl '("CMDECHO" "OSMODE")
       ov (mapcar 'getvar vl))
 (mapcar 'setvar vl '(0 0))

 (if (setq ss (ssget))
   (progn
     (command "_.copybase" '(0 0 0) ss "")
     (command "_.pasteblock" '(0 0 0))
     (command "_.erase" ss "")))

 (mapcar 'setvar vl ov)
 (princ))

[t_olmos]

thanks lee, works good will save me some time here, thanks again

[Lee Mac]

thanks lee, works good will save me some time here, thanks again

 

No probs mate