button help

I need help making a button to stack dimension alternate units under primary
units per individual dimensions

 

Maybe something like.

(defun c:TurnOnAltUnits (/ Ent Obj)

(if (setq Ent (entsel "\n Select dimension: "))
(progn
(setq Obj (vlax-ename->vla-object (car Ent)))
(vla-put-AltUnits Obj ':vlax-true)
(vla-put-TextSuffix Obj "\\P")
)
)
)

Tim

 

hey Tim, this worked great with a couple changes...
added this to my acad.lsp and then made a button to access it.

thanks alot Tim,




(defun c:dimstack (/ Ent Obj)

(if (setq Ent (entsel "\n Select dimension: "))
(progn
(setq Obj (vlax-ename->vla-object (car Ent)))
(vla-put-AltUnits Obj ':vlax-true)
(vla-put-TextSuffix Obj "mm\\P")
)
)
)