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

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

 各位大侠：<br/>  我想把选择集中的内容单独保存为一个DWG文件，可是用以下代码：<br/><br/>Dim sset As AcadSelectionSet<br/>Set sset = ThisDrawing.SelectionSets.Add("NEWSSET")<br/>……<br/>Dim exportFile As String<br/>exportFile = "C:\outfile"<br/>ThisDrawing.Export exportFile, "DXF", sset<br/>只能将该选择集中的内容输出为DXF,BMP等格式的文件，可是我想得到的是DWG格式的文件，该如何处理呢？谢谢大家先！<br/>

fjfhgdwfn 发表于 2007-6-19 08:03:00

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

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

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

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

<p>&nbsp;For Each entry1 In dmx<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set objects(I) = entry1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; I = I + 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next entry1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set DOC1 = Documents.Add<br/>&nbsp;&nbsp;&nbsp;&nbsp; doc2.CopyObjects objects, DOC1.ModelSpace '拷贝对象到新文件中<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp; DOC1.Save</p><p></p><p>新建文档。存盘</p>

wylong 发表于 2007-6-19 15:44:00

<p>使用wblock方法</p><p>Dim exportFile As String<br/>exportFile = "C:\outfile\youname.dwg"<br/>ThisDrawing..Wblock exportFile, sset</p>
页: [1]
查看完整版本: 如何将选择集保存为DWG格式的文件