so, many times i have to copy text that will be on one layer and i need to have it moved to another layer (i just make my destined layer current), reasons being that the text is in some crazy textstyle/size, etc and i need to adjust it and have it associated to a leader, the easiest way has been to just qleader/copy object and then i can just erase everything on the orig layer and i have all my orig work. this is what i have so far, it's not perfect and if i'm not careful with my picks thing i don't want end up on my current layer.
any suggestions would be greatly appreciated.
(DEFUN C:``()
(setq BPNT (getpoint "\nSpecify first leader point: "))
(setq EPNT (getpoint BPNT "\nSpecify next point: "))
(setq OBJ (entsel "\nSelect object to copy: "))
(if OBJ
(progn
(command "qleader" BPNT EPNT "" OBJ)
(command "chprop" "l" "" "la" (getvar "clayer") "c" "bylayer" "")
);progn
);if obj
(princ)
)