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)) AutoCAD的矿图符号库设计(3):http://www.youerw.com/jisuanji/lunwen_90084.html