How to invert text with entmake?

Hello,

How to invert text with entmake?

Routine:

;texto com entmake
(defun c:test (/ dist_pt1_pt2)
(setq pt1 (getpoint "\n First point: "))
(setq pt2 (getpoint pt1 "\n 2nd point: "))
(setq fator 1)
(setq dist_pt1_pt2 (distance pt1 pt2))
(setq ang (angle pt1 pt2));angle
(princ "\n Angle: ")(princ ang)(princ "\n")
(setq PM_pt1_pt2 (mapcar '/ (mapcar '+ Pt1 Pt2) '(2.0 2.0 2.0)))
(entmake (list (cons 0 "TEXT")
(cons 1 (rtos dist_pt1_pt2 2 8));;string
(cons 7 "STANDARD");style
(cons 10 PM_pt1_pt2)
(cons 11 PM_pt1_pt2)
(cons 40 (* 0.2 fator));height
(cons 50 ang);angle - how to invert?
(cons 72 1);justif.
(cons 73 2);justif.
)
)
)
;texto com entmake

 

Thanks,

Rogerio

 

(cons 71 2) ??

Bill

 

(setq dist_pt1_pt2 (distance pt1 pt2))
;(setq ang (angle pt1 pt2));angle
(setq ang (angle pt2 pt1));opposite angle

Invert, using last line. Note angle relative to 1st point.

Bob

 

To verify my question, try:

pt1 - left and pt2 - right - text ok

pt1 - right and pt2 - left = text inverted

How to invert text angle to make ok the 2 conditions? (bad english, sorry)

Thanks,

Rogerio

 

In language lisp, aproximated...

(if (or (= ang 90)(>= ang 270)

Thanks,

Rogerio

 

You can check which angle is greater, and use lesser angle.
Like this:
;texto com entmake
(defun c:test (/ dist_pt1_pt2)
(setq pt1 (getpoint "\n First point: "))
(setq pt2 (getpoint pt1 "\n 2nd point: "))
(setq fator 1)
(setq dist_pt1_pt2 (distance pt1 pt2))
(setq ang1 (angle pt1 pt2))
(setq ang2 (angle pt2 pt1))
(if (> ang1 ang2)
(setq ang (angle pt2 pt1))
(setq ang (angle pt1 pt2))
); if
(princ "\n Angle: ")(princ ang)(princ "\n")
(setq PM_pt1_pt2 (mapcar '/ (mapcar '+ Pt1 Pt2) '(2.0 2.0 2.0)))
(entmake (list (cons 0 "TEXT")
(cons 1 (rtos dist_pt1_pt2 2 8));;string
(cons 7 "STANDARD");style
(cons 10 PM_pt1_pt2)
(cons 11 PM_pt1_pt2)
(cons 40 (* 0.2 fator));height
(cons 50 ang);angle - how to invert?
(cons 72 1);justif.
(cons 73 2);justif.
)
)
)
;texto com entmake

Cheers:

Bob

 

Yessss!!!

Thank very much!!!!

Simples, but funcional!!!

Thanks,

Rogerio

 

You can check which angle is greater, and use lesser angle.

Shouldn't need to calculate the same angle twice. You could simply do:

(setq ang
(min
(angle pt1 pt2)
(angle pt2 pt1)))

which to my eye is a lot easier to take in, even if it's formatted on one
line.

 

Thanks for solution.

Test:

Make a circle. Trace center lines. run the routine.

A routine work good in quadrants 1 and 3 (text direction ok)

In quadrants 2 and 4 fail (text direction inverted)

How to correct to work in 4 quadrants?

Thanks,

Rogerio

 

How to correct to work in 4 quadrants?

(defun c:test (/ dist_pt1_pt2)
(setq pt1 (getpoint "\n First point: "))
(setq pt2 (getpoint pt1 "\n 2nd point: "))
(setq fator 1)
(setq dist_pt1_pt2 (distance pt1 pt2))

(setq ang (rem (angle pt1 pt2) pi)) ;quadrant 1 & 3
(if (> ang (/ pi 2))
(setq ang (+ pi ang))) ;quadrant 2 & 4

(princ "\n Angle: ")(princ ang)(princ "\n")
(setq PM_pt1_pt2 (mapcar '/ (mapcar '+ Pt1 Pt2) '(2.0 2.0 2.0)))
(entmake (list (cons 0 "TEXT")
(cons 1 (rtos dist_pt1_pt2 2 8));;string
(cons 7 "STANDARD");style
(cons 10 PM_pt1_pt2)
(cons 11 PM_pt1_pt2)
(cons 40 (* 0.2 fator));height
(cons 50 ang);angle - how to invert?
(cons 72 1);justif.
(cons 73 2);justif.
)
)
)

 

;texto com entmake
(defun c:test (/ dist_pt1_pt2)
(defun dtr (d) (* pi (/ d 180.0)))
(defun rtd (r) (* 180.0 (/ r pi)))
(setq pt1 (getpoint "\n First point: "))
(setq pt2 (getpoint pt1 "\n 2nd point: "))
(setq fator 1)
(setq dist_pt1_pt2 (distance pt1 pt2))
(setq ang1 (angle pt1 pt2))
(setq ang2 (angle pt2 pt1))
(if (> ang1 ang2)
(setq ang (angle pt2 pt1))
(setq ang (angle pt1 pt2))
); if
(if (> ang (dtr 90))
(setq ang (- ang (dtr 90)))
); if
(princ "\n Angle: ")(princ ang)(princ "\n")
(setq PM_pt1_pt2 (mapcar '/ (mapcar '+ Pt1 Pt2) '(2.0 2.0 2.0)))
(entmake (list (cons 0 "TEXT")
(cons 1 (rtos dist_pt1_pt2 2 8));;string
(cons 7 "STANDARD");style
(cons 10 PM_pt1_pt2)
(cons 11 PM_pt1_pt2)
(cons 40 (* 0.2 fator));height
(cons 50 ang);angle - how to invert?
(cons 72 1);justif.
(cons 73 2);justif.
)
)
)
;texto com entmake

Bob

 

Bob, we used the same basic approach, adding a rotation correction, but
mine's more succinct. Both versions still need to have variables declared
local.

 

Tom,
Points taken. You are correct. I did the 'long' route, so
he/she would understand what is going on at each step (rather than use 'min' or 'rem') which are good, but may need further explaination (to a learner). My approach is to 'lead' the poster to draw a conclusion on their own..with simpler - more spread out code.

He/she is in good hands..)

Bob

 

Bob and others,

Thank very much.

Rogerio