muck Posted July 29, 2009 Share Posted July 29, 2009 When the following VBA routine ends it shows the VBA design editor. 'Zoom Window Private Sub CommandButton1_Click() Dim vPt1 As Variant Dim vPt2 As Variant Me.hide vPt1 = ThisDrawing.Utility.GetPoint(, "Select Point 1") vPt2 = ThisDrawing.Utility.GetPoint(, "Select Point 2") ZoomWindow vPt1, vPt2 'Me.Show End Sub How can I get this routine to end showing the AutoCAD editor instead of the VBA design editor when this routine ends? Thank you, Quote Link to comment Share on other sites More sharing options...
ollie Posted July 30, 2009 Share Posted July 30, 2009 You could probably use activedocument.sendcommand("vbaide\r") Can't remeber the ascii character for return you may have to replace the \r with it Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.