;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 10-22-2001
;;;
(DEFUN C:DXFIX ()
  (setq	sec_cnt	1
	p_cnt 1
  ) ;_ end of setq
  (SETQ IT (OPEN "L:/10606/25630-1/0CAD/SURVEY/WSACC/PARCEL.DXF" "r"))
  (SETQ
    ITOUT (OPEN	(STRCAT	"L:/10606/25630-1/0CAD/SURVEY/WSACC/PARCEL"
			(ITOA sec_cnt)
			".DXF"
		) ;_ end of STRCAT
		"w"
	  ) ;_ end of OPEN
  ) ;_ end of SETQ
  (WRITE-LINE "  0" ITOUT)
  (WRITE-LINE "SECTION" ITOUT)
  (WRITE-LINE "  2" ITOUT)
  (WRITE-LINE "ENTITIES" ITOUT)
  (IF (EQ sec_cnt 1)
    (WHILE (/= (READ-LINE IT) "BLOCKS"))
  ) ;_ end of IF
  (PRINC (STRCAT "\nBegin PARCEL" (ITOA sec_cnT) ".DXF"))
  (WHILE
    (AND sec_cnt (SETQ RDLN_1 (READ-LINE IT)))
     (COND
       ((EQ RDLN_1 "BLOCK")
	(WHILE (/= (SETQ RDLN_1 (READ-LINE IT)) "  0"))
       )
       ((EQ RDLN_1 "ENDBLK")
	(READ-LINE IT)
	(SETQ p_cnt (1+ p_cnt))
	(IF (> p_cnt 8000)
	  (PROGN
	    (SETQ sec_cnt (1+ sec_cnt)
		  p_cnt	  1
	    ) ;_ end of SETQ
	    (WRITE-LINE "ENDSEC" ITOUT)
	    (WRITE-LINE "  0" ITOUT)
	    (WRITE-LINE "EOF" ITOUT)
	    (CLOSE ITOUT)
	    (PRINC
	      (STRCAT "\nFinished PARCEL" (ITOA (1- sec_cnt)) ".DXF")
	    ) ;_ end of PRINC
	    (SETQ
	      ITOUT
	       (OPEN (STRCAT "L:/10606/25630-1/0CAD/SURVEY/WSACC/PARCEL"
			     (ITOA sec_cnt)
			     ".DXF"
		     ) ;_ end of STRCAT
		     "w"
	       ) ;_ end of OPEN
	    ) ;_ end of SETQ
	    (PRINC (STRCAT "\nBegin PARCEL" (ITOA sec_cnT) ".DXF"))
	    (WRITE-LINE "  0" ITOUT)
	    (WRITE-LINE "SECTION" ITOUT)
	    (WRITE-LINE "  2" ITOUT)
	    (WRITE-LINE "ENTITIES" ITOUT)
	  ) ;_ end of PROGN
	) ;_ end of IF
       )
       ((EQ RDLN_1 "SECTION")
	(SETQ sec_cnt NIL)
	(WHILE (SETQ RDLN_1 (READ-LINE IT)))
       )
       (T (WRITE-LINE RDLN_1 ITOUT))
     ) ;_ end of COND
  ) ;_ end of WHILE
  (WRITE-LINE "ENDSEC" ITOUT)
  (WRITE-LINE "  0" ITOUT)
  (WRITE-LINE "EOF" ITOUT)
  (CLOSE ITOUT)
  (PRINC
    (STRCAT "\nFinished PARCEL" (ITOA (1- sec_cnt)) ".DXF")
  ) ;_ end of PRINC
  (CLOSE IT)
  (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!***|;