Set tx2 = ThisDrawing。ModelSpace。AddLine(sp2, ep2)

    tx2。Lineweight = acLnWt030

    tx2。color = acRed

    tx2。Layer = "矿区"

    tx2。Update

但在更改线型的时候要注意，更改对象的线型，使用对象提供的linetype属性，linetype属性要求指定对象的线型名称作为输入，并从线型文件中加载线型：

  '从线型文件中加载线型来`自+优-尔^论:文,网www.chuibin.com +QQ752018766-

    Dim litypename As String

    litypename = "ACAD_ISO04W100"

    ThisDrawing。Linetypes。Load litypename, "acadiso。lin"

3。1。3  面状地物符号

面状地物符号一般选择创建实体填充区域或创建面域再关联阴影的方法来实现。创建实体填充区域，可以使用FILLMODE快速产生填满颜色的三角形和四边形。这种方法在绘制设备时广泛应用。

面域是一种闭合的附于二维空间的区域，这种闭合的形状被称为回路。回路定义了非交叉边界在平面上的区域，它既可以是一段曲线，也可以是顺序连接曲线。但曲线内部不能有交点，否则无法形成面域。生成面域的回路必须定义为对象的数组。使用AddRegion方法将通过由输入的曲线数组构成的每一闭合回路创建面域。

阴影为用图案填充图形中的指定区域。顺序为：创建Hatch（阴影）对象，关联阴影，分配阴影图案类型和名称，最后定义阴影边界，这个边界就可以是面域。

3。2  设备设施

矿图制图中常用的线型、线宽的设计及加载在上文中已经提到，此处就不再赘述。设备设施的设计原则和独立地物也基本相同。部分点状设施如水闸门（图3-5），需要添加实体：