Try this:
This example has a command dialog box for the user to
select the drawing file and view it on a VB6-generated form.
Private Sub cmdGetDrawing_Click()
Dim ViewDwgFileName As String
AvViewX1.Visible = True
AvViewX1.BorderStyle = 1
CommonDialog1.FileName = "\\CAE\caed\NPDRAWINGS\PE\" & "*.dwg"
CommonDialog1.Filter = "DWG files (*.DWG)|*.DWG|All files (*.*)|*.*"
CommonDialog1.Action = 1
ViewDwgFileName = CommonDialog1.FileName
AvViewX1.src = ViewDwgFileName
If CommonDialog1.FileName = "" Then Exit Sub
Call AvViewX1.GetDrawingExtents(0, 0, 0, 0)
End Sub
Put this in your Module:
Sub GetDrawingExtents()
Dim dLeft As Double
Dim dRight As Double
Dim dBottom As Double
Dim dTop As Double
'The coordinate values are passed by reference.
AvViewX1.GetDrawingExtents dLeft, dRight, dBottom, dTop
End Sub
I hope this helps. The documentation is very limited - it took me a while
to work with the
default zoom - the weakeness with the above code is an unresolved issue I
have concerning
zoom extents in volo - it does not have the capability parallel to the
Autocad viewer to
accomplish this (as an object arx). I posted a request in the newsgroup and
haven't
had a snip of a solution - but the above code gets you to bring the file IN.
Deb Silverman
CAE Systems Engineer
Nichols Portland
