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

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

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但为何有时会出现如下对话框?

dy1lg1o3qc3.JPG