override dimension text height with entmake

I'm using the following code for creating a dimradial dimension text:

( defun DimRadius( p1 p2 p3 Size)

( entmake
( list
( cons 0 "DIMENSION" )
( cons 15 p2 )
( cons 10 p1 )
( cons 11 p3 )
( cons 70 4 )
;|( list -3
( list "ACAD"
( cons 1000 "DSTYLE" )
( cons 1002 "{" )
( cons 1070 140 )
( cons 1070 10 )
( cons 1070 41 )
( cons 1070 10 )
( cons 1002 "}" )
)
) |;
)
)

)

The problem is that neither text height nor arrow size are not changed to 10.
Another problem is that I cannot pass 10.5 as text height. Error occurs.

I saw using this code, the text height is changed but not in 10

Can you give me a hint ?