Lisp to select only Rotated Dimensions

[jgardner.79905]

I am having trouble with a routin that selects all the dimensions in my drawing then based on wether it is a rotated dimension or a Anguler dimention it will change different properties of that dimension. If you can tell what I am doing wrong please tell me.

here is my code:

(defun c:dimup ()
(setq ssSelection (ssget "X"(list (cons 0 "dimension"))))
(repeat (setq intCount (sslength ssSelection))
(setq intCount (1- intCount)
entSelection (ssname ssSelection intCount)
objSelection (vlax-ename->vla-object entSelection)
)
(cond
((= (vla-get-ObjectName objSelection) "AcDb2LineAngularDimension")
(princ)
)
((= (vla-get-ObjectName objSelection) "AcDbRotatedDimension")
(vla-put-StyleName objSelection "MI Standard")
(vla-put-Layer objSelection "Plan-Dims")
)
)
)
)

[ Moderator Action = ON ] What are [ CODE ] tags... (http://forums.augi.com/misc.php?do=bbcode#code) [ Moderator Action = OFF ]

[jgardner.79905]

nevermind I figured it out, it works fine the way it is, but thanks for attempting to help.

Jason