Will do..Thanks
Just playing around will learning fields:
(setq arch#sern (substr (getvar "dwgprefix") 13 (- (strlen (getvar "dwgprefix")) 13)))
(if (/= (ssget "x" '((0 . "insert")(2 . "sc-96"))) nil)(setq arch#scms "Scale = 1/8\" = 1'- 0\""))
(setq l
(list
'("SHTNO" . "%<\\AcVar ctab>%")
'("DRHNO" . "2113AL V1 R0")
'("PLANNO" . "2113AL Standard")
'("DATE" . "%<\\AcVar Date \\f \"MMMM d, yyyy\">%")
'("SCALE" . "%<\\AcVar.17.0 Lisp.arch#scms \\f \"%tc3\">%")
'("BPSNO" . "%<\\AcVar.17.0 Lisp.arch#sern \\f \"%tc3\">%")
)
)
[code/]