Topic: get correct angle

[Coder]

Hello guys,

I am trying to locate one similar text ( 125 ) on line objects on the top side regardless of the ( start, end, and angle ) of lines.
I tried to solve this by myself but failed and the result is not the same all the time.

Hope you can solve this problem for me.

Thanks in advance.

[badjo_5]

I have something simmilar, this is in C#, raw version.
PI is const.

 

Code: [Select]

         public static double checkAngle(double angle)
        {
              if (angle >= 0 && angle < PI / 2)
              {
                  //angle = angle;
              }
              else if (angle >= PI / 2 && angle < PI)
              {
                  angle = angle - PI;
              }
              else if (angle >= PI && angle < PI + PI / 2)
              {
                  angle = angle - PI;
              }
              else if (angle >= PI + PI / 2 && angle < PI + PI / 2)
              {
                  angle = angle - 2 * PI;
              }
             
              return angle;
        }

This gives slightly different result from yours (lower left corner must like upper right corner)..

[Stefan]

Code - Auto/Visual Lisp: [Select]

1. (setq a (angle StartPoint EndPoint))
2.  
3. (setq a (atan (/ (sin a) (cos a))))

Don't worry about cos, it is never zero.

Code - Auto/Visual Lisp: [Select]

1. (cos (/ pi 2.0)) -> 6.12323e-17

[Coder]

Thanks badjo, that's what I was trying to write but I not sure if it will work correctly all the time .

Thanks Stefan,

Can you please explain that function and the way it works ? I can't get it to work but when I added (/ pi 2.0) worked but not as expected and it fails in most cases to give the right rotation as explained in photo above.

[Stefan]

Thanks badjo, that's what I was trying to write but I not sure if it will work correctly all the time .

Thanks Stefan,

Can you please explain that function and the way it works ? I can't get it to work but when I added (/ pi 2.0) worked but not as expected and it fails in most cases to give the right rotation as explained in photo above.

atan can take 1 or 2 arguments. For 2 arguments, returns an angle between 0 and 2pi, depending on the sign of the 2 arg. For 1 argument, returns an angle between -pi/2 and pi/2, which is exactly the range of the readable angles.

Use WCS points and entmakex and it should work.

If you use it in a 2D rotated UCS, you need to add UCSXDIR angle. For 3D rotated UCS, you need some more transformation.

[Coder]

Sorry Stefan, but that was not the same as my example.

Number 16 located above the line but it has to be on the opposite side.

[ronjonp]

Sorry Stefan, but that was not the same as my example.

Number 16 located above the line but it has to be on the opposite side.

If it's on the top side already but you want it on the opposite side wouldn't that be the bottom ? 

[Stefan]

Sorry Stefan, but that was not the same as my example.

Number 16 located above the line but it has to be on the opposite side.

I'm really sorry, I didn't read carefully your request, I thought it's all about angles.

I am trying to locate one similar text ( 125 ) on line objects on the top...

Now is more confusing... Do you want some text above and some below? They are all "125", which one are you trying to fix?

[Coder]

Sorry Stefan, but that was not the same as my example.

Number 16 located above the line but it has to be on the opposite side.

If it's on the top side already but you want it on the opposite side wouldn't that be the bottom ? 

The side which is anticlockwise is the top side. 

Sorry Stefan, but that was not the same as my example.

Number 16 located above the line but it has to be on the opposite side.

I'm really sorry, I didn't read carefully your request, I thought it's all about angles.

I am trying to locate one similar text ( 125 ) on line objects on the top...

Now is more confusing... Do you want some text above and some below? They are all "125", which one are you trying to fix?

Thank you.

Yes I may add one more text on the opposite side but not now and the location of text is on the side of anticlockwise.

Hopefully its not bothering and won't take much codes.

[Coder]

The 125 represents the length of each line so the lengths are not the same all the time but in my above example they were the same by coincidence.

[Stefan]

The side which is anticlockwise is the top side. 

 

Code - Auto/Visual Lisp: [Select]

1. ;u  - line angle
2. ;a  - text angle
3. ;pm - mid point
4. ;pt - text position
5. ;(setq d 2.5);text displacement
6.  
7. (setq u (angle p1 p2))
8.  
9. (setq a (atan (/ (sin u) (cos u))))
10.  
11. (setq pm (mapcar '(lambda (a b) (/ (+ a b) 2.0)) p1 p2)
12.       pt (polar pm (+ u (/ pi 2)) d)
13.      ;it might be (- u (/ pi 2.0)) for the... other anticlockwise direction, but then again, who knows exactly what to expect
14. )
15.  

[Coder]

Sorry, it does not work as expected.

Can you please check if the codes are correct with your codes?

Code: [Select]

(defun c:test (/ ss n obj start end lst ang pt center a)
  (setq ss (ssget '((0 . "LINE"))))
  (repeat (setq n (sslength ss))
    (setq obj (ssname ss (setq n (1- n))))
    (setq lst (entget obj))
    (setq start  (cdr (assoc 10 lst))
          end    (cdr (assoc 11 lst))
          ang    (angle start end)
          center (polar start ang (/ (distance start end) 2.0))
    )
    (setq a (atan (/ (sin ang) (cos ang))))
    (setq pt (polar center (- ang (/ pi 2)) 0.5))
    (entmakex (list '(0 . "TEXT")
                    (cons 1 (rtos (distance start end) 2 0))
                    (cons 10 pt)
                    (cons 11 pt)
                    (cons 40 0.35)
                    (cons 50 a)
              )
    )
  )
  (princ)
)

[Stefan]

I give up on this. I'm sure you are nearly there, just a little push and you are done.

[ronjonp]

Sorry, it does not work as expected.

Can you please check if the codes are correct with your codes?

Code: [Select]

(defun c:test (/ ss n obj start end lst ang pt center a)
  (setq ss (ssget '((0 . "LINE"))))
  (repeat (setq n (sslength ss))
    (setq obj (ssname ss (setq n (1- n))))
    (setq lst (entget obj))
    (setq start  (cdr (assoc 10 lst))
          end    (cdr (assoc 11 lst))
          ang    (angle start end)
          center (polar start ang (/ (distance start end) 2.0))
    )
    (setq a (atan (/ (sin ang) (cos ang))))
    (setq pt (polar center (- ang (/ pi 2)) 0.5))
    (entmakex (list '(0 . "TEXT")
                    (cons 1 (rtos (distance start end) 2 0))
                    (cons 10 pt)
                    (cons 11 pt)
                    (cons 40 0.35)
                    (cons 50 a)
              )
    )
  )
  (princ)
)

This request is confusing. It would help to post your sample drawing too so we don't have to try to recreate something we know little about. Are you sure you don't just need a 'make text readable' function?

[Lee Mac]

atan can take 1 or 2 arguments. For 2 arguments, returns an angle between 0 and 2pi, depending on the sign of the 2 arg. For 1 argument, returns an angle between -pi/2 and pi/2, which is exactly the range of the readable angles.

Neat trick. 

[Coder]

I give up on this. I'm sure you are nearly there, just a little push and you are done.

Thank you Stefan for your kind replies and your help, I am very grateful.

This request is confusing. It would help to post your sample drawing too so we don't have to try to recreate something we know little about. Are you sure you don't just need a 'make text readable' function?

Many thanks ronjonp for your contribution, yes I am sure but to make the text readable is easy to work around but my concern was about the location of the text on certain side of the selected lines.

Anyway, that seems to be over my head and I already finished what I wanted to automate by codes.

Have a great days guys.