LSP for notes and leaders.

Does anyone have a LSP that will automatically place text and dimension leaders into a specific layer? For example, all of our notes and leaders go on a "Note" layer. Is there a LSP that will automatically do this for you?

Thanks in advanced!

This one only does dimensions and it prompts the user to type in the name of the layer - This can easily be changed

Hope this gets you started

~Greg

; This program selects all dimensions and places them 
;	on a user-specified layer.
;
(defun C:DimLay (/ SETD LAY)						; Begin function
(setvar "CMDECHO" 0)						; Turn off command echo
(setq SETD (ssget "X" '((0 . "DIMENSION"))))			; Selection set of dims
(if (null SETD) 						; If there are no dims
(princ "\nThere are no associated dimensions.")			; THEN tell user
(progn								; ELSE begin (progn)
	(setq LAY (getstring "\nTransfer to which layer? "))	; Get layer name
	(command ".CHPROP" SETD "" "LA" LAY "")			; Change dimensions to layer
)								; End (progn)
)								; End (if)
(setvar "CMDECHO" 1)						; Turn on command echo
(princ)								; Clean exit
)									; End function
; - -( End of Program )- -

why not just create a custom tool palette button for each leader type you will have. In there you can customize many things (including layers) so that when you click on the tool palette button, it will draw it to your settings every time.