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

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

各位大侠：
我想把选择集中的内容单独保存为一个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格式的文件

发表回复

精选推荐