gizmowiebe
Guest
|
 Posted:
Tue Dec 21, 2004 11:16 pm Post subject:
Press ENTER when acad window appears |
|
|
Hi there,
I'm creating a block manager for home use. And i'm using mslides because they look better than the thumbnails. When a button is pushed a drawing will open set to top view and zoom extends and then I'm trying to use the sendcommand option. But when the save as window appears it doesn't enter.
This is my code
**************************************************************
Private Sub mslide_Click()
Dim strSearchDoc As String
Dim objDoc As AcadDocument
strSearchDoc = pathfolder & "\" & ListBox1.Value & "\" & ListBox2.Value & ".dwg"
For Each objDoc In ThisDrawing.Application.Documents
If UCase(strSearchDoc) = UCase(objDoc.path & "\" & objDoc.name) Then
Else
AcadApplication.Documents.Open (pathfolder & "\" & ListBox1.Value & "\" & ListBox2.Value & ".dwg")
End If
Next
Dim NewDirection(0 To 2) As Double
NewDirection(0) = -0: NewDirection(1) = 0: NewDirection(2) = 1
ThisDrawing.ActiveViewport.Direction = NewDirection
ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
Dim zoom As AcadDocument
ZoomExtents
Me.hide
ThisDrawing.SendCommand "Mslide" & vbCr & vbCr
End Sub
***************************************
the last vbCr doesnt work.
Anyone any ideas.
THX
Wiebe
|
|
FAQ
Memberlist
Register
Profile
Log in to check your private messages
Log in