Dim Text Above the Dim Line

[BeKirra]

If you want to generate a pair from a variable you need to use cons instead of quote ('). Something like this:

(setq DimTadValue 4)
(cons 1070 DimTadValue) ;Returns (1070 . 4)

Using the quote will not evaluate the items in the list into their values. So using the following:

(setq DimTadValue 3)
'(1070 . DimTadValue) ;Returns (1070 . DIMTADVALUE) not (1070 . 3)

Thanks again, irneb.
I just looked into the HELP and learnded the quote function.

[thattinh01986]

And you may to look into Activex, sth like this :

(defun C:upd(/ key lst tmp)
(cond 	(	(ssget (list (cons 0 "DIMENSION")))
			(setq lst '((0 . "Centered")(1 . "Above")(2 . "Outside")(3 . "JIS")))
			(princ "Please select number 1 to 4 to take effect")
			(while (/= 32 (setq key (cadr (grread nil 4 1))))
					(vlax-for dObj (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
						(vla-put-VerticalTextPosition dObj
							(setq tmp (- key 49))
						)
					)
					(princ (strcat "\nChange DimText Position to " (cdr (assoc tmp lst))))
			)
		)
		(T (princ "Nothing to do"))
)
(princ)
)