topic Re: in VBA Forum

More help needed on Layouts

Anonymous — Tue, 14 Dec 1999 15:24:46 GMT

I'm having a hard time adding a layout then making the new layout current.
I can add the new one just fine, but I can't get it to become active using
code.

Thanx in advance
Michael Browne

Re: More help needed on Layouts

Anonymous — Tue, 14 Dec 1999 16:52:54 GMT

Try posting the code you're having the problem with,
as it's hard for someone to guess what it does.

Otherwise, this should do it:

set ThisDrawing.ActiveLayout = ThisDrawing.Layouts.Add("New Layout")

Michael Browne wrote:
>
> I'm having a hard time adding a layout then making the new layout current.
> I can add the new one just fine, but I can't get it to become active using
> code.
>
> Thanx in advance
> Michael Browne

--
/*********************************************************/
/* Tony Tanzillo Design Automation Consulting */
/* Programming & Customization for AutoCAD & Compatibles */
/* ----------------------------------------------------- */
/* tony.tanzillo@worldnet.att.net */
/* http://ourworld.compuserve.com/homepages/tonyt */
/*********************************************************/

Re:

Anonymous — Tue, 14 Dec 1999 17:24:00 GMT

Tony,

That doesn't want to work either. Here's my code. Its inside a form that
has a textbox
and two buttons

Private Sub CommandButton1_Click()

Set ThisDrawing.ActiveLayout = ThisDrawing.Layouts.Add("New Layout")

Unload Me
End Sub

Thanks for the help
Michael Browne

Tony Tanzillo wrote in message <385675E6.D27F80DE@worldnet.att.net>...
>Try posting the code you're having the problem with,
>as it's hard for someone to guess what it does.
>
>Otherwise, this should do it:
>
>set ThisDrawing.ActiveLayout = ThisDrawing.Layouts.Add("New Layout")
>
>Michael Browne wrote:
>>
>> I'm having a hard time adding a layout then making the new layout
current.
>> I can add the new one just fine, but I can't get it to become active
using
>> code.
>>
>> Thanx in advance
>> Michael Browne
>
>--
>/*********************************************************/
>/* Tony Tanzillo Design Automation Consulting */
>/* Programming & Customization for AutoCAD & Compatibles */
>/* ----------------------------------------------------- */
>/* tony.tanzillo@worldnet.att.net */
>/* http://ourworld.compuserve.com/homepages/tonyt */
>/*********************************************************/

Re:

Anonymous — Tue, 14 Dec 1999 17:28:07 GMT

Tony's code worked just fine for me. Are you getting an error message?

"Michael Browne" wrote in message
news:835ue6$e8q13@adesknews2.autodesk.com...
> Tony,
>
> That doesn't want to work either. Here's my code. Its inside a form that
> has a textbox
> and two buttons
>
>
> Private Sub CommandButton1_Click()
>
> Set ThisDrawing.ActiveLayout = ThisDrawing.Layouts.Add("New Layout")
>
> Unload Me
> End Sub
>
> Thanks for the help
> Michael Browne
>
>
>
>
> Tony Tanzillo wrote in message <385675E6.D27F80DE@worldnet.att.net>...
> >Try posting the code you're having the problem with,
> >as it's hard for someone to guess what it does.
> >
> >Otherwise, this should do it:
> >
> >set ThisDrawing.ActiveLayout = ThisDrawing.Layouts.Add("New Layout")
> >
> >Michael Browne wrote:
> >>
> >> I'm having a hard time adding a layout then making the new layout
> current.
> >> I can add the new one just fine, but I can't get it to become active
> using
> >> code.
> >>
> >> Thanx in advance
> >> Michael Browne
> >
> >--
> >/*********************************************************/
> >/* Tony Tanzillo Design Automation Consulting */
> >/* Programming & Customization for AutoCAD & Compatibles */
> >/* ----------------------------------------------------- */
> >/* tony.tanzillo@worldnet.att.net */
> >/* http://ourworld.compuserve.com/homepages/tonyt */
> >/*********************************************************/
>
>

Re:

Anonymous — Tue, 14 Dec 1999 17:28:14 GMT

My guess is that it may be failing because the form is
active. You might want to try closing the form first,
before trying to make the layout active.

Michael Browne wrote:
>
> Tony,
>
> That doesn't want to work either. Here's my code. Its inside a form that
> has a textbox
> and two buttons
>
> Private Sub CommandButton1_Click()
>
> Set ThisDrawing.ActiveLayout = ThisDrawing.Layouts.Add("New Layout")
>
> Unload Me
> End Sub
>
> Thanks for the help
> Michael Browne
>
> Tony Tanzillo wrote in message <385675E6.D27F80DE@worldnet.att.net>...
> >Try posting the code you're having the problem with,
> >as it's hard for someone to guess what it does.
> >
> >Otherwise, this should do it:
> >
> >set ThisDrawing.ActiveLayout = ThisDrawing.Layouts.Add("New Layout")
> >
> >Michael Browne wrote:
> >>
> >> I'm having a hard time adding a layout then making the new layout
> current.
> >> I can add the new one just fine, but I can't get it to become active
> using
> >> code.
> >>
> >> Thanx in advance
> >> Michael Browne
> >
> >--
> >/*********************************************************/
> >/* Tony Tanzillo Design Automation Consulting */
> >/* Programming & Customization for AutoCAD & Compatibles */
> >/* ----------------------------------------------------- */
> >/* tony.tanzillo@worldnet.att.net */
> >/* http://ourworld.compuserve.com/homepages/tonyt */
> >/*********************************************************/

--
/*********************************************************/
/* Tony Tanzillo Design Automation Consulting */
/* Programming & Customization for AutoCAD & Compatibles */
/* ----------------------------------------------------- */
/* tony.tanzillo@worldnet.att.net */
/* http://ourworld.compuserve.com/homepages/tonyt */
/*********************************************************/

Re:

Anonymous — Tue, 14 Dec 1999 20:09:37 GMT

It still does not work. The error I keep getting is:

Run-time error '438':
Object doesn't support this property or method

It does create the new layout but it just won't switch to it

Tony Tanzillo wrote in message <38567E2E.63B0C244@worldnet.att.net>...
>My guess is that it may be failing because the form is
>active. You might want to try closing the form first,
>before trying to make the layout active.
>
>Michael Browne wrote:
>>
>> Tony,
>>
>> That doesn't want to work either. Here's my code. Its inside a form
that
>> has a textbox
>> and two buttons
>>
>> Private Sub CommandButton1_Click()
>>
>> Set ThisDrawing.ActiveLayout = ThisDrawing.Layouts.Add("New Layout")
>>
>> Unload Me
>> End Sub
>>
>> Thanks for the help
>> Michael Browne
>>
>> Tony Tanzillo wrote in message <385675E6.D27F80DE@worldnet.att.net>...
>> >Try posting the code you're having the problem with,
>> >as it's hard for someone to guess what it does.
>> >
>> >Otherwise, this should do it:
>> >
>> >set ThisDrawing.ActiveLayout = ThisDrawing.Layouts.Add("New Layout")
>> >
>> >Michael Browne wrote:
>> >>
>> >> I'm having a hard time adding a layout then making the new layout
>> current.
>> >> I can add the new one just fine, but I can't get it to become active
>> using
>> >> code.
>> >>
>> >> Thanx in advance
>> >> Michael Browne
>> >
>> >--
>> >/*********************************************************/
>> >/* Tony Tanzillo Design Automation Consulting */
>> >/* Programming & Customization for AutoCAD & Compatibles */
>> >/* ----------------------------------------------------- */
>> >/* tony.tanzillo@worldnet.att.net */
>> >/* http://ourworld.compuserve.com/homepages/tonyt */
>> >/*********************************************************/
>
>--
>/*********************************************************/
>/* Tony Tanzillo Design Automation Consulting */
>/* Programming & Customization for AutoCAD & Compatibles */
>/* ----------------------------------------------------- */
>/* tony.tanzillo@worldnet.att.net */
>/* http://ourworld.compuserve.com/homepages/tonyt */
>/*********************************************************/

Re:

Anonymous — Tue, 14 Dec 1999 21:21:31 GMT

Eliminate the 'Set' before ThisDrawing.ActiveLayout and
it will work:

ThisDrawing.ActiveLayout = Thisdrawing.Layouts.Add("New Layout")

Michael Browne wrote:
>
> It still does not work. The error I keep getting is:
>
> Run-time error '438':
> Object doesn't support this property or method
>
> It does create the new layout but it just won't switch to it
>

--
/*********************************************************/
/* Tony Tanzillo Design Automation Consulting */
/* Programming & Customization for AutoCAD & Compatibles */
/* ----------------------------------------------------- */
/* tony.tanzillo@worldnet.att.net */
/* http://ourworld.compuserve.com/homepages/tonyt */
/*********************************************************/