TEXT
图1. Shape文件地物类型与DXF文件图元类型对照表
作者以某市地下管线Shape文件为例，实现了将管线Shape文件转化为Auto CAD系统DXF文件，并将数据转化功能集成到某市地下管线管理信息系统中，很好的解决了地下管线管理系统与Auto CAD制图系统之间的数据格式共享问题。转化过程中没有丢失图形信息。下面以地下管点Shape文件为例，简单介绍如何将点图元写入DXF文件。
点状地物对应DXF文件的点图元，但是由于Shape文件中点状地物通常表示地图上的一个独立地物，如电线杆等，他具有某些特殊的符号，因此往往需要把Shape文件的点状地物作为一个块（Block）插入到DXF文件中，这也是通用的文件格式转换工具所不能做到的。下面是一个插入图块的通用函数：
Public Sub InsertBlock(lyrName As String, blkName As String, X As Double, Y As Double)
Print #fnum, 0
Print #fnum, "INSERT" ‘插入图块组码
Print #fnum, 8
Print #fnum, lyrName ‘插入图块的图层名
Print #fnum, 100
Print #fnum, "AcDbBlockReference"
Print #fnum, 2
Print #fnum, blkName ‘插入的图块名
Print #fnum, 10
Print #fnum, X ‘插入图块点X坐标