求助vb预览cad的图形失真!

飞越迷雾

我用vb做了一个图片框，想做cad的图形预览。我开始的思路是想提取cad图形中图形的边界坐标，然后在vb中画出图形。但一直不知道该怎么得到图形的边界坐标。所以现在换了个思路，我把cad的图形输出，然后在vb中用图片框加载。

代码如下：

Dim Exportfile As String
    Me.Picture1.Width = Me.Picture1.Height * (Acadapp.ActiveDocument.Width / Acadapp.ActiveDocument.Height)
            Exportfile = App.Path & "\PIC\显示图"
            '创建选择集
            Dim SSet As AutoCAD.AcadSelectionSet
           Set SSet = Acadapp.ActiveDocument.SelectionSets.Add("test")
            SSet.Select (AutoCAD.AcSelect.acSelectionSetAll)

            '输出当前图形到文件
            Acadapp.ActiveDocument.Export Exportfile, "wmf", SSet

            SSet.Delete
            Picture1.Picture = LoadPicture(App.Path & "\PIC\显示图.wmf")

但是出来的图形比例失真，要么太小，要么图形显示只有一半在图片框中。这个该如何调整啊！

恳请会的朋友帮忙！

雪山飞狐_lzh

图片框有自动调整属性的

太小的话先Zoom下

飞越迷雾

lzh741206发表于2009-9-3 14:08:00图片框有自动调整属性的太小的话先Zoom下

没明白你的意思，你是说先把图片框zoom一下？

我的图片框控件的大小和位置是固定的，所以有时会出现图片跑到图片框外面去的情况，这个该怎么弄啊？

home

用image控件显示图片吧，把控件的stretch的属性设置成true