;;;Place a Block in the drawing at any orientation (scaled to dimscale).
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 5-27-94
;;;>		   EDITED: 04-08-1997
;;;
(DEFUN C:BSR ( / );pt1 pt2 pt3 inss1 inss2 e1ang e2ang
  (setvar "cmdecho" 0)
;  (setq clayr (getvar"clayer")
        symname (getstring "\nBlock Name: ")
        pt1 (getpoint "\nInsertion Point: ")
;        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)
;            (getvar"lastpoint")
;            (upoint 1 "" "\nDirection " nil pt1)
;          )
;        pt3 (upoint 1 "" "\nMagnetic North Direction " nil pt1)
        inss1 (getvar"dimscale")
;        e1ang (*(/(-(angle pt1 pt3)(/ pi 2.0))(* 2.0 pi))360.00)
;        pt1 (list(car pt1)(cadr pt1)(*(getvar"dimscale")1001))
  );setq
  (graphscr)
  (rotx pt1)
  (command ".insert" symname pt1 inss1 inss1
  );command
;  (setvar "clayer" clayr)
  (setvar "cmdecho" 1)
;  (command)
);defun