;;;Replace ARCS with any block at their center point. (for Eddie Staley)
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 12-20-94
;;;>		   EDITED: 09-02-1997
;;;
(DEFUN C:dbl ( / lupr attrq blkol blknm blkpf getit tset tsln cntr edtw inxyz
                 inscl inang tent bins attr dblnk pt_lst count)
  (setq lupr (getvar"luprec"))
  (setq attrq (getvar"attreq"))
  (setvar "ATTREQ" 0)
  (setq inscl (getvar"dimscale"))
  (setq blknm (getstring "Block Name to Insert? " ))
  (setq blkpf (substr blknm 1 3))
  (setq tset (ssget '((0 . "ARC"))))
  (if tset
    (progn
      (setq tsln (sslength tset))
      (setq cntr 0)
    )
  )
  (while
    (if (and (< cntr tsln) tset)
      (setq tent (entget (ssname tset cntr)))
    );if
    (progn
      (setq edtw (entget (cdar tent)))
      (setq inxyz (strcat(rtos(cadr(assoc 10 edtw)))","(rtos(caddr(assoc 10 edtw)))))
      (if pt_lst
        (if (member inxyz pt_lst)
          nil
          (setq pt_lst (append pt_lst (list inxyz)))
        )
        (setq pt_lst (list inxyz))
      )
      (entdel (cdar edtw))
      (setq tent (entlast))
      (setq bins (entlast))
    );progn
    (setq cntr (1+ cntr))
  );while
  (setq ptlstlen (length pt_lst))
  (setq count 0)
  (while (< count ptlstlen)
    (command ".insert" blknm (nth count pt_lst) inscl inscl 0)
    (setq count (1+ count))
  )
  (setvar "LUPREC" lupr)
  (setvar "ATTREQ" attrq)
);DEFUN