引用层次结构中的对象 目的

信息概述

对象可以直接引用,也可以由用户引用 定义的变量。

直接引用对象

直接引用对象时,请将对象包括在调用层次结构中。 下面的代码片段在当前图形的模型空间中添加了一条线。


 Dim 起点(0 To 2) As Double, 终点(0 To 2) As Double
 Dim LineObj as AcadLine
 起点(0) = 0: 起点(1) = 0: 起点(2) = 0
 终点(0) = 30: 终点(1) = 20: 终点(2) = 0
 Set LineObj = 这幅画.ModelSpace.AddLine(startPoint,endPoint)

先前代码的说明:

在代码示例中,我们首先定义两个字段 起点 a 终点,两个维度3。接下来,对象 LineObj 类型 AcadLine (AutoCAD行)。它遵循 价值分配 放入数组的各个元素中。最后一行代码 添加 进入模型空间(模型空间的当前图这幅画) 线 (附加线)。

通过用户定义的变量对对象的引用

使用用户定义的变量引用对象时,我们对其进行定义 变量以匹配所需的空间(必需的类型),然后是变量 将其设置为指向当前图形的模型空间。以下 代码段定义了变量(移动空间)类型 AcadModelSpace 和集 要分配给当前模型空间的变量:

 Dim 移动空间 As AcadModelSpace
 Set 移动空间 = 这幅画.ModelSpace

使用用户定义的线向模型空间添加 抱歉,没有:


 Dim 起点(0 To 2) As Double, 终点(0 To 2) As Double
 Dim LineObj as AcadLine
 起点(0) = 0: 起点(1) = 0: 起点(2) = 0
 终点(0) = 30: 终点(1) = 20: 终点(2) = 0
 Set LineObj = 移动空间.AddLine(startPoint,endPoint)

先前代码的说明:

在代码示例中,它首先定义两个字段 起点 a 终点,两个维度3。接下来,对象 LineObj 类型 AcadLine (AutoCAD行)。它遵循 分配 价值观 放入数组的各个元素中。最后一行代码 添加 进入当前线条图的模型空间 (附加线)。指针 到当前图形和模型空间存储在一个变量中 移动空间.