更改对象的颜色
将图层、颜色和线型指定给对象
保存和恢复图层设置
默认情况下，对象将继承创建时所在图层的线型。要更改对象的线型，请使用为该对象提供的 Linetype 特性。Linetype 特性需要输入要指定给对象的线型名称。
注意在指定对象线型之前，必须先将该线型加载到当前图形中。要将线型加载到图形中，请使用 Load 方法。
本例创建一个圆，然后，本例将试图从 acad.lin 文件中加载线型“CENTER”。如果该线型已存在或者文件不存在，则显示相关消息。最后，本例将圆的线型设置为“CENTER。”。
Sub Ch4_ChangeCircleLinetype()
On Error Resume Next
' 创建圆
Dim circleObj As AcadCircle
Dim center(0 To 2) As Double
Dim radius As Double
center(0) = 2: center(1) = 2: center(2) = 0
radius = 1
Set circleObj = ThisDrawing.ModelSpace. _
AddCircle(center, radius)
Dim linetypeName As String
linetypeName = "CENTER"
' 从 acad.lin 文件加载“CENTER”线型
ThisDrawing.Linetypes.Load linetypeName, "acad.lin"
If Err.Description <> "" Then MsgBox Err.Description
' 指定圆的线型为“CENTER”
circleObj.Linetype = "CENTER"
circleObj.Update
End Sub