Copyobjects详解之按引用传递(cad vba)

  DOC2.CopyObjects arr2, DOC1.ModelSpace, arr1

把文档2中内容考到文档1，这里的数组参数实际是文档模型空间的按引用传递，前面两个参数是原始容器，后面两个参数是接收容器，实际案例中可以为doc1中的块(复制到doc1的block中而不是doc1的模型空间中)。
 

在 VBA（Visual Basic for Applications）中，当你将对象（如 AutoCAD 模型空间中的一个圆）赋值给数组变量时，这个赋值操作实际上是按引用传递的，而不是按值传递。这意味着数组变量中存储的是对原始对象的引用，而不是对象本身的副本。

 

具体来说，当你执行类似以下的代码时：

 

【vba】

 Dim myCircle As AcadCircle

Dim myArray(0) As Object

 

' 假设已经有一个圆对象在模型空间中，并且已经通过某种方式获取了它的引用，赋值给 myCircle

Set myCircle = ModelSpace.Item(SomeIndexOrIdentifier) ' 这是一个假设的获取圆对象的方式

 

' 将 myCircle 的引用赋值给数组变量

Set myArray(0) = myCircle

 

在这个例子中，myArray(0)存储的是对myCircle所引用的同一个圆对象的引用。换句话说，myArray(0)和myCircle都指向内存中的同一个对象。因此，如果你通过myArray(0)或myCircle修改这个圆对象的属性（如位置、半径等），这些更改将反映在通过另一个变量访问的同一个对象上。

 

这种按引用传递的行为在 VBA 中是常见的，特别是当处理对象时。它允许你在不同的变量之间共享对同一个对象的访问，而无需创建对象的多个副本，这可以节省内存并提高性能。

 

然而，需要注意的是，虽然数组变量本身是按引用传递的（即它们存储的是对对象的引用），但如果你将数组变量本身作为参数传递给另一个过程或函数，并且你希望在过程中修改数组的内容（即更改数组元素所引用的对象），则你需要按引用传递数组变量。在 VBA 中，这通常是通过使用ByRef关键字（尽管它是默认的，因此通常不需要显式指定）来实现的。但是，如果你只是想要传递数组的一个副本，以便在过程中不修改原始数组，那么你可能需要使用其他技术（如创建数组的副本）来实现这一点。不过，在处理对象引用时，这通常不是必需的，因为按引用传递已经允许你共享对同一个对象的访问。