Go ahead and shoot me. I just wanted to show an alternative in case anyone cares. Not tested, but hopefully it makes sense. Also, it could use some error handling for the linetype being loaded.
(defun C:LTCL ( / a i e o)
(cond
( (setq a (ssget))
(setq i 0)
(repeat (sslength a)
(setq e (ssname a i)
o (vlax-ename->vla-object e)
)
(apply-props o
(list '("Linetype" "CENTER") '("LinetypeScale" 0.25))
)
(vlax-release-object o)
(setq i (1+ i))
)
)
)
(princ)
)
(defun apply-props (object proplist)
(foreach prop proplist
(if (vlax-property-available-p object (car prop))
(vlax-put-property object (car prop) (cadr prop))
)
)
)
Ok, if it blows, it blows and you can all laugh hysterically. Just don't blow anything through your nostrils while laughing.[/code]