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, 20

End Sub

3、结束语

参考文献

[1]

[2]