How to find the heading / bearing of an object?

[cat3appr]

I've searched in google for 10 minutes but I couldn't find this : i have a series of rectangles and I need to find their heading, without labelling. How do I do that? I have autocadMap.

All the suggestions point out to open a survey tab which i don't have, or how to draw a line with bearing and distance, not useful.

I need a tool or a lisp that by clicking on the object, or poliline, it will give you the heading / bearing, relative to the north.

thank you

[BIGAL]

Label a pline could be simply modified to result in a BRG and distance, Instead of doing say (coomand "Text" do (alert (strcat brg distance etc))

 

I found one in a couple of minutes. 

[eldon]

Of course with rectangles, each one has a bearing on each side, a total of four per rectangle.

[tombu]

Try this lisp by Kent Cooper https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/get-angle-of-line-tangent-to-a-point-in-the-spline/m-p/2608359#M285125

(defun c:TanAng (/ esel pt ent)
	(setq
		esel (entsel "\nPick Object for Tangent Angle at pick point: ")
		ent (car esel)
		pt (trans (osnap (cadr esel) "nea") 1 0)
	); end setq
	(prompt
		(strcat
		"\nThe tangent angle is "
		(angtos(angle '(0 0 0) (trans (vlax-curve-getFirstDeriv ent (vlax-curve-getParamAtPoint ent pt)) 0 1 T)))
		); end strcat
	); end prompt
	(princ)
)

Doesn't draw anything just returns tangent direction at a picked point on a line, arc, or polyline.