Cad用vba 创建选择集添加所有对象进cad并自动获取源文件中每个对象插入点并粘贴到另一个cad文件以源文件的每一个对象的插入点粘贴中，实现两个cad文件间复制粘贴功能？

在AutoCAD中使用VBA创建选择集并自动化复制粘贴功能，你需要做以下几个步骤：

1. **启用宏和VBA编辑器**:
首先，确保你的AutoCAD版本支持VBA，并在"工具"菜单中启用"宏"。

2. **编写VBA脚本**:
使用Visual Basic for Applications (VBA)，你可以创建一个模块编写如下的代码片段：

Sub CopyObjectsFromSourceToDestination()
    Dim srcDoc As Document ' 源文档
    Dim destDoc As Document ' 目标文档
    Dim selSet As Object ' 选择集
    Dim obj As Object ' 当前对象
    
    ' 打开源文档
    Set srcDoc = ActiveDocument ' 更改为你的源文件路径
    srcDoc.Activate
    
    ' 创建新的目标文档实例（假设它还未打开）
    If Not destDoc.IsLoaded Then
        Set destDoc = Documents.Open("你的目标文件路径") ' 替换为你的目标文件路径
    End If
    
    ' 创建选择集
    Set selSet = srcDoc.ModelSpace.SelectSet
    
    ' 添加所有对象到选择集
    For Each obj In selSet
        selSet.Add obj
    Next obj
    
    ' 获取每个对象的插入点
    Dim insertionPoints() As Variant
    ReDim insertionPoints(0 To selSet.Count - 1, 2) ' 二维数组，每一行对应一个插入点
    For i = 0 To selSet.Count - 1
        insertionPoints(i, 0) = i + 1 ' 序列编号
        insertionPoints(i, 1) = obj.InsertionPoint.X ' X坐标
        insertionPoints(i, 2) = obj.InsertionPoint.Y ' Y坐标
    Next i
    
    ' 将插入点数据复制到内存
    Dim pointData As Variant
    pointData = insertionPoints
    
    ' 粘贴到目标文档
    With destDoc
        .ModelSpace.InsertBlock Array(), insertionPoints ' 这里使用Array()代替了pointData，因为InsertBlock接受的是块名数组而不是点数据
        '.Close False ' 关闭目标文档时不保存更改，如果你需要保留更改则应删除这行
    End With

End Sub

3. **运行脚本**:
保存你的VBA代码，在AutoCAD的命令提示符中输入`RunCopyObjectsFromSourceToDestination`（替换为你的宏名称），然后按回车键执行。

请注意，这个例子简化了一些细节，例如错误处理、文件路径管理以及块插入时的命名规则。在实际操作中，你可能需要根据你的具体需求对代码进行调整。