Here is where I am stuck. Unfortunately some of the lisps that were provided did not work. The routine that I have worked out is below with the section that I am stuck at is in all CAPS.
;sets FILEDIA system variable to 0
filedia
0
;begin layout command and add 4W-11X17.dwt template
layout
T
4W-11X17.dwt
Layout1
;sets FILEDIA system variable to 1
filedia
1
;Sets View to Layout1
layout
s
layout1
;Lock Title Layer
-layer
lo
title
;Copy window Viewport
copybase
0,0
window
-0.02,10.66
14.72,-0.02
;Sets View to layout2-layout1
layout
s
layout2-layout1
;Pastes original Viewport into new layout
pasteclip
0.099572,0
;Copy title info from original title block
layout
s
layout1
(load " T:/Lisp Routines/txtpre.lsp")
txtpre
window
14.725,4.55
16.25,4.35
-
txt2mtxt
window
14.725,5.0625
16.25,4.35
;THIS IS THE SECTION WHERE I NEED TO COPY THE CONTENTS OF THE MTEXT. I WOULD LIKE TO WINDOW AT 14.725,5.0625 DOWN TO 16.25,4.35 (SIZE OF MTEXT FIELD) THEN COPY THE CONTENTS OF THE MTEXT TO CLIPBOARD.
;NEXT I WOULD SWITCH TO LAYOUT2-LAYOUT1 AND -ATTEDIT THE TITLE BLOCK (NAME: 4W-11X17)
;LAST STEP WOULD BE TO PASTE THE CONTENTS OF THE CLIPBOARD INTO VALUE (TAG: TITLE_1)
;Delete original Title Block
-layout
d
layout1
;Rename new Title Block
-layout
r
Layout2-layout1
Layout1
;Unlock TITLE layer
-layer
u
TITLE
;Regenerate Drawing
regen
;Zoom to Extents
zoom
e
qsave
Thanks!
Shaun