Getangle returning coordinates rather than the angle between two points

[JasonSelf]

I thought this following expression would work but it is returning the coordinates for the second point rather than the angle between the two points

(setq #pt1 (getpoint))
(setq #pt2 (getpoint))
(setq #angle (getangle #pt1 #pt2)

[ Moderator Action = ON ] What are [ CODE ] tags... [ Moderator Action = OFF ]

Does anyone know where I am missing the point (pardon the pun) here?

Thanks,
Jason Self

[Jeff_M]

(setq #angle (angle #pt1 #pt2)

(getangle) is for obtaining an angle from the user

[JasonSelf]

Great, Thanks

[framedNlv]

You might try:
(setq #pt1 (getpoint))
(setq #pt2 (getpoint))
(command "_line" #pt1 #pt2 "");don't know if you want a line but here it is
(print (getvar "lastangle"))

What are you trying to do with it?


Chris

[abdulhuck]

I thought this following expression would work but it is returning the coordinates for the second point rather than the angle between the two points

(setq #pt1 (getpoint))
(setq #pt2 (getpoint))
(setq #angle (getangle #pt1 #pt2)

[ Moderator Action = ON ] What are [ CODE ] tags... [ Moderator Action = OFF ]

Does anyone know where I am missing the point (pardon the pun) here?

Angle function returns the angle between two points in radians.

(setq #angle (angle #pt1 #pt2))

[peter]

Try This,


(setq lstPoint2 (getcorner (setq lstPoint1 (getpoint))))

[jwanstaett]

You try using the cal function I not at work so i do not has access to AutoCAD but it some ting like

 
(set  #angle (cal "angle ( pt1 pt2)")

pt1 and pt2 are point save to lisp variables pt1 pt2

check AutoCAD help for the cal command the cal function work the same as the cal command