VB编程引用AutoCAD实体对象

在使用实体对象属性或方法来编辑已经创建完毕的实体对象之前，必须用变量引用该对象，引用实体对象的方法有多种，可根据具体情况，选择恰当的方法来加以引用。

在创建实体的同时引用实体对象。

在创建实体对象时，Set语句设置的对象变量代表和引用该实体对象，下面的语句创建了一个圆对象，变量circleObj即引用该圆对象，可以设置属性，调用该方法来编辑该圆对象。语句circleObj=acRed设置Color属性，使该圆变红色。

Dim circleobj As AcadCircle

Dim centerpoint(0 To 2) As Double

centerpoint(0) = 0#: centerpoint(1) = 0#: centerpoint(2) = 0#

Set circleobj = acadapp.ActiveDocument.ModelSpace.AddCircle(centerpoint, 5)

circleobj.Color = acRed

用实体集合的Item方法引用实体对象

如果已知实体在集合中的索引位置，可以用实体集合的Item方法引用该实体对象。

下面的语句用变量Obj引用模型空间第三个实体对象，并将其颜色变为蓝色。

Dim obj As AcadEntity

Set obj = acadapp.ActiveDocument.ModelSpace.Item(2)

obj.Color = acBlue

obj.Update

用HandleToObject方法引用实体对象

实体对象的Handle属性返回对象的句柄，若已知对象的句柄，可以用对象的HandleToObject方法引用该实体对象，HandleToObject方法只能返回当前文档中的实体对象。

newobj = object.HandleToObject(Handle)

下面的语句创建一个圆，用Handle属性获得其句柄，然后用HandleToObject方法引用为2B的句柄，将其设置为红色。

Private Sub Command1_Click()

Dim circleobj As AcadCircle

Dim centerpoint(0 To 2) As Double

centerpoint(0) = 0#: centerpoint(1) = 0#: centerpoint(2) = 0#

Set circleobj = acadapp.ActiveDocument.ModelSpace.AddCircle(centerpoint, 5)

ZoomExtents

circleobj.Update

Dim handle As Variant

handle = circleobj.handle

MsgBox "圆的句柄是：" & circleobj.handle

Dim tempobj As AcadObject

Set tempobj = acadapp.ActiveDocument.HandleToObject(handle)

tempobj.Color = acRed

MsgBox "圆改变为红色"

acadapp.ActiveDocument.Regen acActiveViewport

End Sub

用ObjectIdToObject方法引用实体对象

若已知对象标识符ObjectID，可以用对象OjbectIdToOjbect方法引用该实体对象。

newobj=object.ObjectIDToObject(ID)