;Place a Map North Symbol "n" (block) in the drawing.  (uses UPOINT)
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;		All rights reserved without prejudice.
;	Copyright:	5-27-94
;	Edited:		6-6-94
;
(DEFUN C:MGN ( / );pt1 pt2 pt3 inss1 inss2 e1ang e2ang
  (setq pt1 (getpoint "\nCenter of North Arrow "))
  (setq pt3 (upoint 1 "" "\nMagnetic North Direction " nil pt1))
  (setq inss1 (getvar"dimscale"))
  (setq e1ang (*(/(-(angle pt1 pt3)(/ pi 2.0))(* 2.0 pi))360.00))
  (command ".layer" "m" "G-SHBD7SYMB" "c" 6 "" "")
  (command "insert" "n" pt1 inss1 inss1 e1ang)
);defun c:mgn