如何将选择集保存为DWG格式的文件

champagnewq

 各位大侠：
  我想把选择集中的内容单独保存为一个DWG文件，可是用以下代码：

Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add("NEWSSET")
……
Dim exportFile As String
exportFile = "C:\outfile"
ThisDrawing.Export exportFile, "DXF", sset
只能将该选择集中的内容输出为DXF,BMP等格式的文件，可是我想得到的是DWG格式的文件，该如何处理呢？谢谢大家先！

fjfhgdwfn

新建一个文档，COPY下就行了吧。或用块输出

champagnewq

谢谢楼上的回答，新建文档+copy太麻烦，可能块输出比较好，怎么做呢，麻烦贴一个示例代码，我是新手，谢谢！

fjfhgdwfn

 For Each entry1 In dmx
      Set objects(I) = entry1
      I = I + 1
      Next entry1
      Set DOC1 = Documents.Add
     doc2.CopyObjects objects, DOC1.ModelSpace '拷贝对象到新文件中
     
    
   DOC1.Save

新建文档。存盘

wylong

使用wblock方法

Dim exportFile As String
exportFile = "C:\outfile\youname.dwg"
ThisDrawing..Wblock exportFile, sset