;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 02-11-2000
;;;
(DEFUN C:WBINCR ()
  (SETQ WB_CNT 2)
  (PRINC "\nSelect entities to WBLOCK: ")
  (SETQ WBSS (SSGET))
  (WHILE WBSS
    (COMMAND ".WBLOCK" (STRCAT(GETVAR"DWGPREFIX")"PR"(ITOA WB_CNT)) "" "0,0" WBSS "")
    (SETQ WB_CNT (1+ WB_CNT))
    (PRINC (STRCAT"\nSelect entities for "(STRCAT(GETVAR"DWGPREFIX")"PR"(ITOA WB_CNT))" WBLOCK: "))
    (SETQ WBSS (SSGET))
  )
  (princ)
)