[求助]：导出实体问题

flydyt

到处都是怎么插入未打开的图形中的块,我想请问一下怎么把当前图形中的实体输出到未打开的文件中,谢谢

雪山飞狐(lzh)

Signature

object.WBlock FileName, SelectionSet

Object

Document
The object or objects this method applies to.

FileName

String; input-only
The file name to write the selection set to.

SelectionSet

SelectionSet object; input-only
The name of the selection set.

flydyt

好像输出的新文件就覆盖了旧文件，我的意思是在未打开的文件中添加实体

雪山飞狐(lzh)

Sub tt()
On Error Resume Next
   
    Dim filename As String
   
    filename = "f:/1.dwg"
   
    Dim objDbx As Object
    If Left(Version, 2) = "15" Then
        Set objDbx = CreateObject("ObjectDBX.AxDbDocument.1")
    ElseIf Left(Version, 2) = "16" Then
        Set objDbx = CreateObject("ObjectDBX.AxDbDocument.16")
    End If
   
    objDbx.Open filename
   
    Dim ss As AcadSelectionSet
    ThisDrawing.SelectionSets("Test").Delete
    Set ss = ThisDrawing.SelectionSets.Add("Test")
    ss.SelectOnScreen
    Dim objs() As AcadEntity
    ReDim objs(ss.Count - 1)
    For i = 0 To ss.Count - 1
        Set objs(i) = ss(i)
    Next i
    ss.Delete
   
    ThisDrawing.CopyObjects objs, objDbx.ModelSpace
    objDbx.SaveAs filename
End Sub

flydyt

谢谢