使用线型

AutoCAD ActiveX/VBA

 
使用线型
 
 
 

线型是重复的划、点和空格组成的图案。复杂线型则是重复符号的图案。要使用线型,必须先将其加载到图形中。加载之前,LIN 库文件中必须存在该线型的定义。要将线型加载到图形中,请使用 Load 方法。

有关操作线型的详细信息,请参见《用户手册》中的“线型概述”。

注意不要将 AutoCAD 内部使用的线型与某些打印机提供的硬件线型相混淆。这两种类型的虚线产生的效果相似。请勿同时使用这两种类型,否则将产生不可预知的结果。

将线型加载到 AutoCAD 中

本例试图从 acad.lin 文件中加载线型“CENTER”。如果该线型已存在或者文件不存在,则显示相关消息。

Sub Ch4_LoadLinetype()
    On Error GoTo ERRORHANDLER
      
    Dim linetypeName As String
    linetypeName = "CENTER"
      
    ' 从 acad.lin 文件加载“CENTER”线型
    ThisDrawing.Linetypes.Load linetypeName, "acad.lin"
    Exit Sub
      
ERRORHANDLER:
    MsgBox Err.Description
      
End Sub