[求助]已知路径的图快的引入
请问：把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
你的程序可以正常运行，除非图形文件不存在
还是有个问题？
本帖最后由 作者 于 2003-5-20 20:30:16 编辑此文件的确存在，并且经我检查后，拼写也无问题，可还是报错
是不是文件名不能写成路径形式呀？
因为用参照的时候，没有任何错误？
或，是不是还有什么别的情况我没考虑到，请多多费心！！
页:
[1]