社区 › VB › 怎么把一个图元导出为bmp文件?

cag 发表于 2004-6-27 17:57:00

怎么把一个图元导出为bmp文件?

Sub Example_Export()
                       Dim L As AcadLine
                       Dim P1(0 To 2) As Double
                       Dim P2(0 To 2) As Double
                       
                       P2(0) = 10: P2(1) = 10: P2(2) = 0
                       Set L = ThisDrawing.ModelSpace.AddLine(P1, P2)
                       L.Update
                       
                       Dim exportFile As String
                       exportFile = "C:\DXFExprt"
                       
                       Dim sset As AcadSelectionSet
                       Set sset = ThisDrawing.SelectionSets.Add("TEST4")
                       
                       ThisDrawing.Export exportFile, "bmp", sset
                       sset.Delete
End Sub 如以上以示,怎么把线L选中导出为一个bmp文件?能否不让它提示选取实体而将线导出?

雪山飞狐_lzh 发表于 2004-6-27 18:22:00

ThisDrawing.Export exportFile, "bmp", sset
      之前将直线加入选择集

cag 发表于 2004-6-27 19:56:00

呵呵,看来有了论坛会让人变懒,明明知道的问题却不去试一下,非要让人来确认一下.
Sub Example_Export()
                       'On Error Resume Next
                       Dim exportFile As String
                       exportFile = "C:\DXFExprt"
                       
                       Dim sset As AcadSelectionSet
                       Set sset = ThisDrawing.SelectionSets.Add("TEST3")
                       sset.Select acSelectionSetAll
                       
                       ThisDrawing.Export exportFile, "bmp", sset
                       sset.Delete
End Sub但为何有时会出现如下对话框?

雪山飞狐_lzh 发表于 2004-6-27 20:34:00

选择集的一个著名的Bug
你的这个代码应该不会触发呀

cag 发表于 2004-6-28 12:42:00

可现在出现了,该怎么解决?

efan2000 发表于 2004-6-28 13:30:00

可能是你的选择集已经创建过了，重复创建是会出错的。

cag 发表于 2004-6-28 17:52:00

最后不是加了一句sset.Delete在导出后就把选择集删了啊

myfreemind 发表于 2004-6-28 18:48:00

在中间代码出错的情况下，就不会执行下去，所以最后选择集也没有删除！

cag 发表于 2004-6-28 19:11:00

是啊，就是在最前加入On Error Resume Next也没用，有时还是会出错

查看完整版本: 怎么把一个图元导出为bmp文件?