;;; written: 2-11-2005
(DEFUN c:unwhite ()
  (SETQ blkent (TBLNEXT "BLOCK" T))
  (WHILE
    blkent
     (IF (OR
	   (WCMATCH (SETQ nblkname (STRCASE (CDR (ASSOC 2 blkent)))) "PARA*")
	   (WCMATCH (SETQ nblkname (STRCASE (CDR (ASSOC 2 blkent)))) "HD*")
	 ) ;_ end of OR
       (PROGN
	 (ENTMAKE
	   (LIST '(0 . "BLOCK") (CONS 2 nblkname) '(70 . 64) '(10 0.0 0.0 0.0))
	 ) ;_ end of entmake
	 (ENTMAKE '((0 . "POINT")
		    (8 . "DEFPOINTS")
		    (62 . 0)
		    (10 0.0 0.0 0.0)
		   )
	 ) ;_ end of entmake
	 (ENTMAKE '((0 . "ENDBLK")))
       ) ;_ end of progn
     ) ;_ end of if
    (SETQ blkent (TBLNEXT "BLOCK" nil))
  ) ;_ end of WHILE
) ;_ end of DEFUN
;|«Visual LISP© Format Options»
(100 2 30 2 T "end of " 100 9 2 1 1 T T nil T)
;*** DO NOT add text below the comment! ***|;