社区 › VB › 如何将选择集保存为DWG格式的文件

champagnewq 发表于 2007-6-18 17:33:00

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

各位大侠：
我想把选择集中的内容单独保存为一个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 发表于 2007-6-19 08:03:00

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

champagnewq 发表于 2007-6-19 09:23:00

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

fjfhgdwfn 发表于 2007-6-19 13:12:00

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 发表于 2007-6-19 15:44:00

使用wblock方法
Dim exportFile As String
exportFile = "C:\outfile\youname.dwg"
ThisDrawing..Wblock exportFile, sset

查看完整版本: 如何将选择集保存为DWG格式的文件