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

cag

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

ThisDrawing.Export exportFile, "bmp", sset


        之前将直线加入选择集

cag

呵呵,看来有了论坛会让人变懒,明明知道的问题却不去试一下,非要让人来确认一下. 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

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

cag

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

efan2000

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

cag

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

myfreemind

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

cag

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