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

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

Sub Example_Export()<BR>                       Dim L As AcadLine<BR>                       Dim P1(0 To 2) As Double<BR>                       Dim P2(0 To 2) As Double<BR>                       <BR>                       P2(0) = 10: P2(1) = 10: P2(2) = 0<BR>                       Set L = ThisDrawing.ModelSpace.AddLine(P1, P2)<BR>                       L.Update<BR>                       <BR>                       Dim exportFile As String<BR>                       exportFile = "C:\DXFExprt"<BR>                       <BR>                       Dim sset As AcadSelectionSet<BR>                       Set sset = ThisDrawing.SelectionSets.Add("TEST4")<BR>                       <BR>                       ThisDrawing.Export exportFile, "bmp", sset<BR>                       sset.Delete<BR>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()<BR>                       'On Error Resume Next<BR>                       Dim exportFile As String<BR>                       exportFile = "C:\DXFExprt"<BR>                       <BR>                       Dim sset As AcadSelectionSet<BR>                       Set sset = ThisDrawing.SelectionSets.Add("TEST3")<BR>                       sset.Select acSelectionSetAll<BR>                       <BR>                       ThisDrawing.Export exportFile, "bmp", sset<BR>                       sset.Delete<BR>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也没用，有时还是会出错
页: [1]
查看完整版本: 怎么把一个图元导出为bmp文件?