(DEFUN fixsymbdatlist (symbdat_input /) (SETQ cnt1 1 cnt2 12 ) ;_ end of setq (SETQ symbdat_outfn (getfiled "Symbol Data Output File" (STRCAT (GETVAR "DWGPREFIX") "SymbolData") "dat" 5)) (SETQ symbdat_outfo (OPEN symbdat_outfn "w")) (WHILE (< cnt2 (STRLEN symbdat_in)) (IF (WCMATCH (SUBSTR symbdat_in cnt2 11) "(PARAPOINT_") (PROGN (PRINT (SUBSTR symbdat_in cnt1 (-(1- cnt2)cnt1)) symbdat_outfo) (SETQ cnt1 cnt2) ) ;_ end of PROGN ) ;_ end of if (SETQ cnt2 (1+ cnt2)) (IF (EQ cnt2 (STRLEN symbdat_in)) (PRINT (SUBSTR symbdat_in cnt1 (- cnt2 cnt1)) symbdat_outfo) ) ;_ end of IF ) ;_ end of while (CLOSE symbdat_outfo) (SETQ symbdat_outfo (OPEN symbdat_outfn "r")) (WHILE (SETQ this_line (READ-LINE symbdat_outfo)) (PRINC "\n") (PRINC this_line) (PRINC) (SET (CAR (READ this_line)) (CDR (READ this_line))) ) (CLOSE symbdat_outfo) ) ;_ end of defun ;|«Visual LISP© Format Options» (100 2 15 2 T "end of " 100 15 2 0 2 nil nil nil T) ;*** DO NOT add text below the comment! ***|;