match to Dimstyle AND layer

[alanjt]

I do have my share of weird happenings on this system. I look at it like finding a hunk of lead shot while eating a brace of pheasant.

That's why you get the shot with the taste. :wink:

 

For the record, I've never used or seen this in person. An engineer I used to work with showed it to me. I just think it's ridiculous a good show of the stupid stuff we Americans come up with.

[alanjt]

Just for fun, here's a version without the use of command. Basically an amalgamation of AutoLISP and VisualLISP. Kind of step-brother to what Lee posted...

 

(defun c:test (/ e)
 (and (setq e (car (entsel "\nSelect Dimension: ")))
      (or (eq "DIMENSION" (cdr (assoc 0 (setq e (entget e)))))
          (alert "Invalid object!")
      )
      (setvar 'clayer (cdr (assoc 8 e)))
      ((lambda (doc)
         (vla-put-activedimstyle
           doc
           (vla-item (vla-get-dimstyles doc) (cdr (assoc 3 e)))
         )
       )
        (cond (*AcadDoc*)
              ((setq *AcadDoc* (vla-get-activedocument (vlax-get-acad-object))))
        )
      )
 )
 (princ)
)

 

You can also use vla-put-activelayer instead of (setvar 'clayer, but I saw no reason to define the document's layers.