make text nice readable

[devitg]

I made a lisp to rotate the dim text to be perpendicular to dimed entity. 

But it results in a son so nice readable. 

Find attached LSP. and DWG 

What I need is the way to see it nice readable. 

 

no nice readable dim text CADTUTOR .rar

[Lee Mac]

I use a function such as the following -

;; Readable  -  Lee Mac
;; Returns an angle corrected for text readability.
 
(defun LM:readable ( a )
    (   (lambda ( a )
            (if (< a 0.0)
                (LM:readable a)
                (if (and (< (* pi 0.5) a) (<= a (* pi 1.5)))
                    (LM:readable (+ a pi))
                    a
                )
            )
        )
        (rem (+ a pi pi) (+ pi pi))
    )
)

 

[devitg]

53 minutes ago, Lee Mac said:

I use a function such as the following -

;; Readable  -  Lee Mac
;; Returns an angle corrected for text readability.
 
(defun LM:readable ( a )
    (   (lambda ( a )
            (if (< a 0.0)
                (LM:readable a)
                (if (and (< (* pi 0.5) a) (<= a (* pi 1.5)))
                    (LM:readable (+ a pi))
                    a
                )
            )
        )
        (rem (+ a pi pi) (+ pi pi))
    )
)

 

@Lee Mac despite I use the word READABLE at my post , I did not use it at your web site. Thanks for it.

Lee , please put it as a lsp at your website , loking for 

 

LM:readable

 

do not give result. 

 

I will apply it to my LISP.  

Best regards

 

 

 

Edited July 14, 2023 by devitg
add comment