请教：填充图案问题

路边

填充图案问题

我自己写了一个a.pat文件，内容如下：

*sy,sy
45, 0, 0, 0, 19.05
45, 4.49013, 0, 0, 19.05
45, 8.98026, 0, 0, 19.05
45, 13.4704, 0, 0, 19.05

请问怎样用VBA ，选择一个实体，用自己写的图案来填充！！

请高手帮忙！！！（写一下详细代码）谢谢！！！