更改对象的线型

From AutoCAD ActiveX/VBA

previous page next page

更改对象的颜色

将图层、颜色和线型指定给对象

保存和恢复图层设置

ActiveX/VBA 开发人员手册 > 创建和编辑 AutoCAD 图元 > 使用图层、颜色和线型 > 将图层、颜色和线型指定给对象 >

更改对象的线型

默认情况下，对象将继承创建时所在图层的线型。要更改对象的线型，请使用为该对象提供的 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

previous page start next page