飞越迷雾 发表于 2009-9-3 13:54:00

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

<p>我用vb做了一个图片框，想做cad的图形预览。我开始的思路是想提取cad图形中图形的边界坐标，然后在vb中画出图形。但一直不知道该怎么得到图形的边界坐标。所以现在换了个思路，我把cad的图形输出，然后在vb中用图片框加载。</p><p>代码如下：</p><p>Dim Exportfile As String<br/>&nbsp;&nbsp;&nbsp; Me.Picture1.Width = Me.Picture1.Height * (Acadapp.ActiveDocument.Width / Acadapp.ActiveDocument.Height)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exportfile = App.Path &amp; "\PIC\显示图"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '创建选择集<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim SSet As AutoCAD.AcadSelectionSet<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set SSet = Acadapp.ActiveDocument.SelectionSets.Add("test")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SSet.Select (AutoCAD.AcSelect.acSelectionSetAll)</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '输出当前图形到文件<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Acadapp.ActiveDocument.Export Exportfile, "wmf", SSet</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SSet.Delete<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Picture1.Picture = LoadPicture(App.Path &amp; "\PIC\显示图.wmf")</p><p>但是出来的图形比例失真，要么太小，要么图形显示只有一半在图片框中。这个该如何调整啊！</p><p>恳请会的朋友帮忙！</p>

雪山飞狐_lzh 发表于 2009-9-3 14:08:00

<p>图片框有自动调整属性的</p><p>太小的话先Zoom下</p>

飞越迷雾 发表于 2009-9-3 14:23:00

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

<p></p><p>没明白你的意思，你是说先把图片框zoom一下？</p><p>我的图片框控件的大小和位置是固定的，所以有时会出现图片跑到图片框外面去的情况，这个该怎么弄啊？</p>

home 发表于 2009-9-3 18:30:00

用image控件显示图片吧，把控件的stretch的属性设置成true
页: [1]
查看完整版本: 求助vb预览cad的图形失真!