3。1。1  点状地物符号

绘制点状地物符号的方式有很多，最简单的方式是使用Point对象创建点。系统提供变量PDMODE和PDSIZE，用以改变所创建出的点的外观。PDMODE的值0、2、3、4指定绘制点的形状，值1为无显示。

图3-1  点示例1

通过在上述值上加32、64、96，将在点的外围出现其他的，如圆、方等二维线条，进一步改变点样式：

图3-2  点示例2

但使用Point命令只能创建CAD中自带的简单符号，远远达不到设计的要求。故创建图块，将自己绘制的图形当做点对象。

（1）井下控制测量点，以经纬仪导线点(图3-3)为例：

图3-3    经纬仪导线点（永久）

水准基点的代码给创建点对象建立了一个框架，想要将其更改为经纬仪导线点，只需将绘制部分的代码更改即可：

'在块中添加圆

    Dim tx1 As AcadCircle

    Dim xy(0 To 2) As Double

    Dim r As Double

    xy(0) = 1: xy(1) = 1: xy(2) = 0

    r = 0。75

    Set tx1 = block3。AddCircle(xy, r)

    '在块中添加圆

    Dim tx2 As AcadCircle

    Dim xy1(0 To 2) As Double

    Dim r1 As Double

    xy1(0) = 1: xy1(1) = 1: xy1(2) = 0

    r1 = 0。4

    Set tx2 = block3。AddCircle(xy1, r1)

（2）钻孔：

钻孔的绘制也类似，只要注意在绘制过程中，偶尔需要文字辅助或阴影的填充等。阴影填充如图3-4：

图3-4  见煤钻孔

创建阴影代码如下：

'创建关联阴影对象

    Dim hatch1 As AcadHatch

    Dim hname As String

    Dim htype As Long

    Dim ha As Boolean

    hname = "SOLID"

    htype = 0文献综述

    ha = True

    Set hatch1 = block5。AddHatch(htyppe, hname, ha)

    '定义阴影边界

    Dim loop1(0 To 0) As AcadEntity

    Dim xy1(0 To 2) As Double

    Dim r1 As Double

    xy1(0) = 1: xy1(1) = 1: xy1(2) = 0

    r1 = 1。5

    Set loop1(0) = block5。AddCircle(xy1, r1)

    hatch1。AppendOuterLoop (loop1)

    hatch1。Evaluate

其中，“SOLID”为阴影的填充类型。如有需要还可更改阴影的比例。

3。1。2  线状地物符号

直线是AutoCAD中最为基本的对象，一般情况下，通过制定坐标点来绘制线。默认的线型为CONTINUOUS，为一种不间断的直线，除此之外，还有许多不同的点划线的线型。

当绘制巷道时，由于巷道宽度不同，所以在选取第一点和第二点绘制出巷道一侧之后，可手动选取第三点，自动将已画好的一边巷道定点复制到另一侧，绘制成完整的巷道。并根据需求更改颜色，线型，线宽，岩巷代码如下：

  '获取第三点

    Dim p3 As Variant

    p3 = ThisDrawing。Utility。GetPoint(p2, vbCrLf & "点3：")

    '在模型空间中添加直线

    Dim tx2 As AcadLine

    Dim sp2(0 To 2) As Double

    sp2(0) = p3(0): sp2(1) = p3(1): sp2(2) = p3(2)

    Dim ep2(0 To 2) As Double

    ep2(0) = p3(0) + (p1(0) - p2(0)): ep2(1) = p3(1) + (p1(1) - p2(1)): ep2(2) = p3(2) + (p1(2) - p2(2))