关于确定容器对象 （VBA/ActiveX）

图形对象在集合、集合或对象中创建。ModelSpacePaperSpaceBlock

该集合由属性返回，集合由属性返回。ModelSpaceModelSpacePaperSpacePaperSpace

可以直接引用这些对象，也可以通过用户定义的变量引用这些对象。若要直接引用对象，请在调用层次结构中包含该对象。例如，以下语句向模型空间添加一行：

Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint,endPoint)

若要通过用户定义的变量引用对象，请将该变量定义为 typeor，然后将该变量设置为活动文档的相应属性。下面的示例定义两个变量，并分别将它们设置为等于当前模型空间和图纸空间：AcadModelSpaceAcadPaperSpace

Dim moSpace As AcadModelSpace
Dim paSpace As AcadPaperSpace
Set moSpace = ThisDrawing.ModelSpace
Set paSpace = ThisDrawing.PaperSpace

以下语句使用用户定义的变量向模型空间添加一行：

Set lineObj = moSpace.AddLine(startPoint,endPoint)