(DEFUN C:UDTITLEFIELDS () (SETQ this-ttbats (SSGET "X" '((2 . "mbd-lkcttbats")))) (SETQ title-fill-1 (STRCAT "%<\\AcSm Database(\"L:\\Elgin-15.01\\800 Drawings\\810 Design Drawings\\Elgin-1501-PRC Pipeline.dst\").SheetSet(\"gDFF506E4-738E-4D0D-A2FB-37F4CA954155\").Component(\"g816BB8AC-6064-41A7-AFBF-3A697B606D6E\").Name \\f \"%tc4\">%" "\n" "%<\\AcSm Sheet.Title \\f \"%tc4\">%" "\n" "%<\\AcSm Database(\"L:\\Elgin-15.01\\800 Drawings\\810 Design Drawings\\Elgin-1501-PRC Pipeline.dst\").SheetSet(\"gDFF506E4-738E-4D0D-A2FB-37F4CA954155\").Component(\"g3EC0D979-E831-41B5-8F80-20ED1A99F1AA\").Name \\f \"%tc4\">%" " Line " "%<\\AcSm Database(\"L:\\Elgin-15.01\\800 Drawings\\810 Design Drawings\\Elgin-1501-PRC Pipeline.dst\").SheetSet(\"gDFF506E4-738E-4D0D-A2FB-37F4CA954155\").Component(\"g55F1247B-F406-4C44-A496-D991B4840A0A\").Name \\f \"%tc4\">%" ) ) (IF attupd nil (load "attupd" "\nFile ATTUPD.LSP not loaded! ")) (attupd "mbd-lkcttbats" "TITLE_1" title-fill-1) (COMMAND "UPDATEFIELD" (SSNAME this-ttbats 0) "") (PRINC) )