Dimension Style

does anyone have a lsp or know of a way to set the current layer based on
the selection of a dimstyle? the dimesion style and layer names will be
different.

 

Something like this?

Code:

(defun c:dimlay (/ dlist dimstl ss lay)
;adjust the list to suit. The first element is a dim style,
; the second is the corresponding layer to use.
(setq dlist (list '("PAPER" . "Layer1")
'("Style2" . "Layer2")
'("Style3" . "Layer3")
'("Style4" . "Layer4")))
(if (setq ss (ssget ":S" '((0 . "DIMENSION"))))
(progn
(setq dimstl (cdr (assoc 3 (entget (ssname ss 0)))))
(if (and (setq lay (assoc dimstl dlist))
(or (tblsearch "layer" (cdr lay))
(entmake (list '(0 . "LAYER")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbLayerTableRecord")
(cons 2 (cdr lay))
'(70 . 0) '(62 . 7)
'(6 . "CONTINUOUS") ))
);or
);and
(setvar "clayer" (cdr lay))
)
)
)
(princ)
)