;;;Insert at 0,0; scale=1; angle=0. (uses USTR) Can preset bname for drawings, else it prompts.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1991-2001
;;;>		   EDITED: 11-18-2005
;;;
(DEFUN C:Xi1 (/ inss1 aname bnndx pt1 bname2)
  (setq	cmdec (getvar "cmdecho")
	attrq (getvar "attreq")
  ) ;_ end of setq
  (setvar "cmdecho" 0)
  (setvar "attreq" 0)
  (if ustr
    nil
    (load "ustr" "\nFile USTR.LSP not loaded! ")
  ) ;_ end of if
;;;  (setq bname (ustr 0 "Block Name " bname nil))
;;;  (setq aname (strcat bname ".dwg"))
  (setq	blkname	(getfiled "Select Drawing to Insert @ 0,0 1:1 0°"
			  (getvar "DWGPREFIX")
			  "dwg"
			  8
		) ;_ end of getfiled
  ) ;_ end of setq
  (if (AND blkname dos_relativepath)	;dos_relativepath is part of McNeel & Associates free DOSLIB utility v6.1
    (PROGN				;If this function is available the relative path will be used where possible
      (setq relblkname (dos_relativepath (getvar "dwgprefix") blkname))
      (PRINC "\nPath from: ")
      (PRINC (getvar "dwgprefix"))
      (PRINC "\nPath to: ")
      (PRINC blkname)
      (PRINC "\nRelative Path: ")
      (PRINC relblkname)
      (PRINC)
      (if relblkname
	(progn
	  (while (wcmatch relblkname "\\*")
	    (setq relblkname (substr relblkname 2))
	  )
	  (setq blkname relblkname)
	)
      ) ;_ end of if
    ) ;_ end of PROGN
  ) ;_ end of if
  (if blkname
    (progn
      (setq bname blkname)
    )
    (IF	(tblsearch "block" blkname)
      (SETQ BNAME blkname)
      (SETQ BNAME NIL)
    ) ;_ end of IF
  ) ;_ end of if
  (IF bname
    (PROGN
      (setq bnndx 1)
      (setq pt1 (list 0 0 0))
;;;        (setq pt1 (getpoint "\nInsertion Point ")
;;;              pt1 (list(car pt1)(cadr pt1)0)
;;;        );setq
      (setq bname2 (strcat (substr bname 1 7) "l"))
      (setq inss1 1)
;;;        (command "_.layer" "m" bname "")
;;;        (command ".xref" "attach" bname pt1 inss1 inss1 "0")
      (command ".insert" bname pt1 inss1 inss1 "0")
      (if (or (wcmatch bname "H@?#0@?@") (wcmatch bname "h@?#0@?@"))
	(progn
	  (command "_.layer" "m" bname2 "")
	  (command ".insert" bname2 pt1 inss1 inss1 "0")
	) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of PROGN
    (prompt (strcat "\nBlock or File " aname " not found! \n"))
  ) ;_ end of IF
  (setvar "cmdecho" 1)
  (setvar "attreq" 1)
  (princ)
) ;_ end of DEFUN

 ;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 0 0 0 T T nil T)
 ***Don't add text below the comment!***|;