Here is a simple routine that searches for all dimensions in a drawing and asks the user to enter the name of the layer that you would like the dimensions to be on.

As seen Below:

There are some dimensions on the wrong layers.

• DIMLAY <enter> to start
• DIM <enter> this is the name of the dimension layer in my drawing. This will be different per drawing.

; 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 )- -