It works very well
tanks very much
"James Belshan" escribió en el mensaje
news:A95E95AF6180FEF107D209124D8C656D@in.WebX.maYIadrTaRb...
> two ways to do it... the first is probably more useful, because you'll
> likely want to access this layout again.
>
> ' #1
> Dim objLayout As AcadLayout
> Set objLayout = ObjAcadDoc.Layouts.Add ("test")
> ObjAcadDoc.ActiveLayout = objLayout
>
> ' #2
> ObjAcadDoc.ActiveLayout = ObjAcadDoc.Layouts.Add ("test2")
>
> James
>
>