I just hacked this to work...bad lisp
(defun C:SHT_ClnBlk (/ en line1 line2 line3 ?line4 line5 readfile)
(ARCH:LYR "A-SHTT-NAME")
(setq readfile (open (strcat (getvar "dwgprefix") "SHT_ClnBlk.txt") "r"))
(setq line1 (read-line readfile))
(setq line2 (read-line readfile))
(setq line3 (read-line readfile))
(setq line4 (read-line readfile))
(setq line5 (read-line readfile))
(command
".insert"
(strcat "SHT_ClnBlk" "=" ARCH#CUSF
"Builders Plan Service/Syms/Arch_syms/" "SHT_ClnBlk")
"0,0"
""
""
""
"" "" "" "" "")
(setq en (cdr (assoc -1 (entget (entlast)))))
(ARCH:ATTUPDATE en "OWNER" line1)
(ARCH:ATTUPDATE en "SUB" line2)
(ARCH:ATTUPDATE en "LOTBLK" line3)
(ARCH:ATTUPDATE en "ADDRESS" line4)
(ARCH:ATTUPDATE en "CITY" line5)
(close readfile)
(princ)
)
;;;
(defun C:SHT_ClnBlkSite (/ en line1 line2 line3 ?line4 line5 readfile)
(ARCH:LYR "A-SHTT-NAME")
(setq readfile (open (strcat (getvar "dwgprefix") "SHT_ClnBlk.txt") "r"))
(setq line1 (read-line readfile))
(setq line2 (read-line readfile))
(setq line3 (read-line readfile))
(setq line4 (read-line readfile))
(setq line5 (read-line readfile))
(command
".insert"
(strcat "SHT_ClnBlkSite" "=" ARCH#CUSF
"Builders Plan Service/Syms/Arch_syms/" "SHT_ClnBlkSite")
"0,0"
""
""
""
"" "" "" "" "" "" "" "" "" "")
(setq en (cdr (assoc -1 (entget (entlast)))))
(ARCH:ATTUPDATE en "OWNER" line1)
(ARCH:ATTUPDATE en "OWNER2" line1)
(ARCH:ATTUPDATE en "SUB" line2)
(ARCH:ATTUPDATE en "SUB2" line2)
(ARCH:ATTUPDATE en "LOTBLK" line3)
(ARCH:ATTUPDATE en "LOTBLK2" line3)
(ARCH:ATTUPDATE en "ADDRESS" line4)
(ARCH:ATTUPDATE en "ADDRESS2" line4)
(ARCH:ATTUPDATE en "CITY" line5)
(ARCH:ATTUPDATE en "CITY2" line5)
(princ)
)