;Place a Block in the drawing at any orientation (scaled to dimscale).
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;		All rights reserved without prejudice.
;
;	Copyright:	5-27-94
;	Edited:		10-3-96
;
(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