entmake aligned dimension text reversed

[diegolopezsilanes]

Hello, I'm doing a program that creates aligned dimensions, but I create them with the text aligned in reverse, that is, on the other side of the dimension line, as shown in the attached photo

Another issue is that I can not make them polyvalent for horizontal or vertical dimensioning

Thank you very much

here is the code i'm working with:

(DEFUN C:ddi ()  
(SETQ ptStart (getpoint "\nPTO1  "))
(SETQ ptEnd (getpoint "\nPTO2  "))
(SETQ ptLoc (getpoint "\nPTO3  "))
;;
(ENTMAKE (LIST
(CONS 0 "DIMENSION")
(CONS 100 "AcDbEntity")
(CONS 100 "AcDbDimension")
(CONS 10 ptLoc)
(CONS 11 '(0 0 0));;TRATAR DE QUITAR
(CONS 70 0)
(CONS 71 5)
'(100 . "AcDbAlignedDimension") ; added
(CONS 13 ptStart)
(CONS 14 ptEnd)
;;;(CONS 50 dimRot)
'(50 . 1.5708)
(CONS 100 "AcDbRotatedDimension")
)
)
)

[Moshe-A · Accepted solution]

@diegolopezsilanes hi,

instead this:

'(50 . 1.5708)

do this:

(cons 50 (/ pi 2))

[diegolopezsilanes]

Thanks Moshe