关于使用线型 （VBA/ActiveX）

线型说明

线型可以具有与之关联的描述。描述提供线型的 ASCII 表示形式。您可以使用属性分配或更改线型说明。Description

线型描述最多可以包含 47 个字符。描述可以是注释，也可以是一系列下划线、点、破折号和空格，以显示线型模式的简单表示形式。例如：

ThisDrawing.ActiveLinetype.Description = "Exterior Wall"

将线型加载到 AutoCAD 中

本示例尝试从 acad.lin 文件加载线型“CENTER”。如果线型已存在，或者文件不存在，则会显示一条消息。

Sub Ch4_LoadLinetype()
  On Error GoTo ERRORHANDLER

  Dim linetypeName As String
  linetypeName = "CENTER"

  ' Load "CENTER" line type from acad.lin file
  ThisDrawing.Linetypes.Load linetypeName, "acad.lin"
  Exit Sub

ERRORHANDLER:
  MsgBox Err.Description
End Sub