Is it possible to "pan" or "zoom" while adding entities t

[Anonymous]

I'm wondering if it is possible to use pan and zoom commands when I'm
selecting entities for a selectionset.

Public Sub pickSelection()
Dim selectie As AcadSelectionSet
Set selectie = ThisDrawing.SelectionSets.Add("sset2")
selectie.SelectOnScreen
End Sub

Using this code results in a pickbox, but if I want to pan or zoom VBA gives
an error. Is it possible at all, if yes, how?

Thanks

Jan Appelman
LENGKEEK architecten en ingenieurs bv
The Netherlands

[Anonymous]

While you have the prompt, type 'zoom at the command line.
Same with 'pan. While in the Pan or Zoom mode, right click for a popup menu
to exit or switch between panning and zooming.

-Steven Elliott

Jan Appelman wrote in message
news:32EA6EE465C0EBDC9A8EF1240050A845@in.WebX.SaUCah8kaAW...
> I'm wondering if it is possible to use pan and zoom commands when I'm
> selecting entities for a selectionset.
>
> Public Sub pickSelection()
> Dim selectie As AcadSelectionSet
> Set selectie = ThisDrawing.SelectionSets.Add("sset2")
> selectie.SelectOnScreen
> End Sub
>
> Using this code results in a pickbox, but if I want to pan or zoom VBA
gives
> an error. Is it possible at all, if yes, how?
>
> Thanks
>
> Jan Appelman
> LENGKEEK architecten en ingenieurs bv
> The Netherlands
>

[Anonymous]

Also, if you have a mouse with a wheel, you can use the wheel for pan and
zoom. If you don't.... well... get one!!! It makes Acad a lot easier. : )

-Steven Elliott

Steven Elliott wrote in message
news:1B22DE7E0ED91B59671ABC798E6D76BA@in.WebX.SaUCah8kaAW...
> While you have the prompt, type 'zoom at the command
line.
> Same with 'pan. While in the Pan or Zoom mode, right click for a popup
menu
> to exit or switch between panning and zooming.
>
> -Steven Elliott
>
> Jan Appelman wrote in message
> news:32EA6EE465C0EBDC9A8EF1240050A845@in.WebX.SaUCah8kaAW...
> > I'm wondering if it is possible to use pan and zoom commands when I'm
> > selecting entities for a selectionset.
> >
> > Public Sub pickSelection()
> > Dim selectie As AcadSelectionSet
> > Set selectie = ThisDrawing.SelectionSets.Add("sset2")
> > selectie.SelectOnScreen
> > End Sub
> >
> > Using this code results in a pickbox, but if I want to pan or zoom VBA
> gives
> > an error. Is it possible at all, if yes, how?
> >
> > Thanks
> >
> > Jan Appelman
> > LENGKEEK architecten en ingenieurs bv
> > The Netherlands
> >
>

[Anonymous]

Thanks Steven, Kind of odd that you have to change the command under the
standardbuttons to have the old Transparancy functionality but it works,
thanks!

Jan Appelman
LENGKEEK architecten en ingenieurs bv
the Netherlands

Steven Elliott schreef in berichtnieuws
1B22DE7E0ED91B59671ABC798E6D76BA@in.WebX.SaUCah8kaAW...
>

[Anonymous]

You are welcome.

-Steven Elliott

Jan Appelman wrote in message
news:C03ED20D9DDF5A04828FAF5B35E251D9@in.WebX.SaUCah8kaAW...
> Thanks Steven, Kind of odd that you have to change the command under the
> standardbuttons to have the old Transparancy functionality but it works,
> thanks!
>
> Jan Appelman
> LENGKEEK architecten en ingenieurs bv
> the Netherlands
>
> Steven Elliott schreef in berichtnieuws
> 1B22DE7E0ED91B59671ABC798E6D76BA@in.WebX.SaUCah8kaAW...
> >
>