TYPE（用户定义类型）类型在CAD-vba中的应用

type类型可以是任何用 Type 语句定义的数据类型。用户自定义类型可包含一个或多个某种数据类型的数据元素、数组或一个先前定义的用户自定义类型。例如：

在cad vba 中应用如下（生成点和线）：

 

部分代码：

Option Explicit

' 定义一个自定义类型 PointData，包含点的X Y坐标，颜色，层名称
Type PointData
    X As Double      ' X 坐标
    Y As Double      ' Y 坐标
    Color As Long    ' 颜色（用颜色索引表示）
    Layer As String  ' 层名称
End Type
Type point2d
X As Double      ' X 坐标
Y As Double      ' Y 坐标
End Type

' 创建点并设置颜色和层，返回点对象
Function CreatePoint(Pt As PointData) As AcadPoint
    ' 创建一个点对象
    Dim newPoint As AcadPoint
    Dim PtCoords(0 To 2) As Double
   
    PtCoords(0) = Pt.X
    PtCoords(1) = Pt.Y
    PtCoords(2) = 0  ' Z坐标默认为0
   
    Set newPoint = ThisDrawing.ModelSpace.