;;;Place a Magnetic North Symbol (block) in the drawing at any orientation.
;;;(uses UPOINT)
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 5-27-94
;;;>		   EDITED: 10-06-2005
;;;
(DEFUN C:BUBN ( / );pt1 pt2 pt3 inss1 inss2 e1ang e2ang
  (setvar "cmdecho" 0)
  (if dimscl nil (load "dimscl"))
  (if gvpno nil (load "gvpno"))
  (dimscl)
  (setq pt1 (getpoint "\nCenter of North Arrow ")
        pt1 (list(car pt1)(cadr pt1)(* dimsc 1001))
  );setq
  (if (/=(getvar"viewtwist")0)
    (setq e1ang 0)
    (setq pt3
            (if
              (setq rotent(entsel "\nSelect rotated entity to match or Enter to Pick rotation. "))
              (polar pt1 (+(/ pi 2)(cdr(assoc 50(entget(car rotent)))))1)
              (upoint 1 "" "\nMagnetic North Direction " nil pt1)
            )
          e1ang (*(/(-(angle pt1 pt3)(/ pi 2.0))(* 2.0 pi))360.00)
    );setq
  )
  (graphscr)
  (c:svlayr)
  (gvpno)
  (setq mjrg "C"
        llt "-"
        colr "1"
        modf "SYMB")
  (c:mklayr)
  (command ".insert" "naro" pt1 dimsc dimsc e1ang)
  (c:rslayr)
  (setvar "cmdecho" 1)
  (command)
);defun c:mgn