Cap all layer names?

[Anonymous]

Just wondering if someone had a lisp to capitalize all layer names?

[Anonymous]

I'm sure there are tons of these floating around,
but how about this quickie.

(defun c:capLayers ()
(vlax-map-collection
(vla-get-layers
(vla-get-activedocument
(vlax-get-acad-object)))
'(lambda (x)
(vla-put-name x (strcase (vla-get-name x))))
)
(princ)
)

--
Autodesk Discussion Group Facilitator



"Dave Lewis" wrote in message
news:4933999@discussion.autodesk.com...
Just wondering if someone had a lisp to capitalize all layer names?

[Anonymous]

thankx


"Jason Piercey" wrote in message
news:4934000@discussion.autodesk.com...
I'm sure there are tons of these floating around,
but how about this quickie.

(defun c:capLayers ()
(vlax-map-collection
(vla-get-layers
(vla-get-activedocument
(vlax-get-acad-object)))
'(lambda (x)
(vla-put-name x (strcase (vla-get-name x))))
)
(princ)
)

--
Autodesk Discussion Group Facilitator



"Dave Lewis" wrote in message
news:4933999@discussion.autodesk.com...
Just wondering if someone had a lisp to capitalize all layer names?