[求助]已知路径的图快的引入

suwei0072000

请问：
把C:\leohydrosys\block\o1.dwg的图以快的形式导入用以下的方法
要如何改进才可
尽管用外部参照可以很好的解决此问题，但每个参照的引用都会新建一个图层
很不方便（用块的话，仅需一个层就可以）
请多多帮忙，谢谢！！
---------------------------------------------------------------------
Sub o1()
   
    Dim blockRefObj As AcadBlockReference
    insertpoint = ThisDrawing.Utility.GetPoint(, "insert position.")
    Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertpoint, "C:\leohydrosys\block\o1.dwg", 1#, 1#, 1#, 0)
    ZoomAll
   
End Sub

mccad

suwei0072000

此文件的确存在，并且经我检查后，拼写也无问题，可还是报错
是不是文件名不能写成路径形式呀？
因为用参照的时候，没有任何错误？
或，是不是还有什么别的情况我没考虑到，请多多费心！！