Tblin AutoLisp Modes
(defun c:tblin (/)
;Initialize counters.
(setq Row 0)
(setq Col 0)
;Change these variables to adjust row and columns.
(setq OffCol 2)
(setq OffRow 0.2)
(setq ColMax 9)
(setq eof 0)
(setq Filename (FileToRead))
(setq FileHandler (open Filename “r”))
(while (= eof 0)
(progn
(while (< Col (* OffCol ColMax))
(progn
(setq TextIn (read-line FileHandler))
(if (= TextIn “~”)
(setq eof 1)
;Else
(progn
(setq Col (+ Col OffCol))
(command “TEXT” (list Col Row 0.0) “0.08” “0” TextIn)
);End progn
);End if
);End progn
);wend
(setq Row (- Row OffRow))
(setq Col 0)
);End progn
);Wend
(close FileHandler)
(princ)
)
(defun FileToRead (/)
; Prompt for file to be inserted
(if (= 1 (getvar “FILEDIA”))
(setq FileToRead (getfiled “File to Read” “” “TXT” 12))
;Else
(progn
(\n princ “Set variable FILEDIA to 1 then try again.”)
(setq FileToRead nil)
);End progn
);End if
)
;;; Save modes
;;;
(defun MODES (a)
(setq MLST ‘())
(repeat (length a)
(setq MLST (append MLST (list (list (car a) (getvar (car a))))))
(setq a (cdr a))
)
;;; Restore modes
;;;
(defun MODER ()
(repeat (length MLST)
(setvar (caar MLST) (cadar MLST))
(setq MLST (cdr MLST))
)
)
;;; Ascii Text error handler
;;;
(defun at_err (st) ; If an error (such as CTRL-C) occurs
; while this command is active…
(if (and (/= st “Function cancelled”)
(/= st “quit / exit abort”)
)
(princ (strcat “\nError: ” st))
)
(moder) ; Restore modified modes
(if (= (type rtfile) ‘FILE)
(close rtfile)
)
(setq rtfile nil)
(setq *error* olderr) ; Restore old *error* handler
(princ)
)
(defun asctxt (/)
(setq olderr *error* *error* at_err)
(modes ‘(“BLIPMODE” “CMDECHO” “HIGHLIGHT”))
; Prompt for file to be inserted
(while (null rtfile)
(if (null at_fnm)
(if (= 1 (getvar “FILEDIA”))
(setq rf (getfiled “File to Read” “” “” 12))
(progn
(initget 1)
(princ “\nFile to read (including extension): “)
(setq rf (getstring))
)
)
(if (= 1 (getvar “FILEDIA”))
(setq rf (getfiled “File to Read” at_fnm “” 12))
(progn
(princ “\nFile to read (including extension)/<“)
(princ (strcat at_fnm “>: “))
(setq rf (getstring))
)
)
)
(if (= rf nil) (exit))
(if (= rf 1)
(if (null at_fnm)
(progn
(initget 1)
(princ “\nFile to read (including extension): “)
(setq rf (getstring))
)
(progn
(princ “\nFile to read (including extension)/<“)
(princ (strcat at_fnm “>: “))
(setq rf (getstring))
)
)
)
(if (and (= rf “”) (/= nil at_fnm))
(setq rf at_fnm)
)
(setq rfa (findfile rf))
(if (= “~” rf)
(progn
(setq rfa nil)
(setq rtfile nil)
)
)
(if rfa
(progn
(setq at_fnm rfa)
(if (null (setq rtfile (open rfa “r”)))
(princ (strcat
“\n\tFile found, but couldn’t open ” at_fnm ” for reading. “))
)
)
(if (/= “~” rf)
(if (and (< 4 (strlen rf))
(/= (substr rf (- (strlen rf) 3) 1) “.”)
)
(princ “\nFile not found. Extension may be missing.”)
(princ “\nFile not found. “)
)
)
)
)
(setq cont T)
(if (= “Yes” (getkword “\nSet up columns?
(progn
(setq opt (append opt ‘(16)))
(initget (+ 1 2))
(setq cd (getdist pt “\nDistance between columns: “))
(initget (+ 1 2 4))
(setq nl (getint “\nNumber of lines per column: “))
)
)
)
)
(setvar “BLIPMODE” 0)
(setvar “HIGHLIGHT” 0)
(setvar “CMDECHO” 0)
(setq eof nil)
(setq s (repeat l1
(read-line rtfile)
))
(setq lc (1+ lc))
(1ltxt)
(while (null eof)
(if (= d “Auto”)
(progn
(setq s (read-line rtfile))
(setq lc (1+ lc))
(if s
(progn
(if (= lc (1+ nl))
(1ltxt)
(progn
(if (member ‘1 opt)
(setq s (strcat “%%u” s “%%u”))
)
(if (member ‘2 opt)
(setq s (strcat “%%o” s “%%o”))
)
(if (member ‘4 opt)
(setq s (strcase s))
)
(if (member ‘8 opt)
(setq s (strcase s T))
)
(command “_.TEXT” “” s)
(setq c (1+ c))
(if (= c n)
(setq eof T)
)
)
)
)
(setq eof T)
)
)
(progn
(setq s (read-line rtfile))
(setq lc (1+ lc))
(if s
(1ltxt)
(setq eof T)
)
)
)
)
(close rtfile)
(setq rtfile nil)
(moder) ; Restore modified modes
(setq *error* olderr) ; Restore old *error* handler
(princ)
)
;(defun c:at () (asctxt))
(defun c:asctext () (asctxt))
(princ “\n ASCTEXT loaded.”)
(princ)
(defun C:TBLIN ()
;;Select file using a dialog box.
(setq RpFileName
(getfiled “Select file to incorporate” “/acad/support/” “txt” 8)
)
;;Open the file.
(setq FileNum (open RpFileName “r”))
;;Test for an empty file.
(setq LineFile (read-line FileNum))
;;Getting data to Autocad.
(while (/= LineFile nil)
(setq LineFile (read-line FileNum)
(princ LineFile)
)
)
)
