插入外部块，显示“文件处理器错误”

Flyingdancing

如下代码：

2. Sub BB()
   
3. Dim X As AcadBlockReference
   
4. Dim p As Variant
   
5. p = ThisDrawing.Utility.GetPoint
   
6. Set X = ThisDrawing.ModelSpace.InsertBlock(p, "F:\快捷文档\块\re-s.dwg", 1, 1, 1, 0)
   
7. End Sub
   

Sub BB()<br /> Dim X As AcadBlockReference<br /> Dim p As Variant<br /> p = ThisDrawing.Utility.GetPoint<br /> Set X = ThisDrawing.ModelSpace.InsertBlock(p, "F:\快捷文档\块\re-s.dwg", 1, 1, 1, 0)<br /> End Sub<br />

显示“文件处理器错误”，而且奇怪的是，某些DWG文件能够正常使用，某些却不行……我就纠结了

但是，后来改变方法，路径用变量赋值后，结果就正常了……有人能解释吗

2. Sub BB()
   
3. Dim X As AcadBlockReference
   
4. Dim p As Variant
   
5. p = ThisDrawing.Utility.GetPoint
   
6. s = "F:\快捷文档\块\re-s.dwg"
   
7. Set X = ThisDrawing.ModelSpace.InsertBlock(p, s, 1, 1, 1, 0)
   
8. End Sub

Sub BB()<br /> Dim X As AcadBlockReference<br /> Dim p As Variant<br /> p = ThisDrawing.Utility.GetPoint<br /> s = "F:\快捷文档\块\re-s.dwg"<br /> Set X = ThisDrawing.ModelSpace.InsertBlock(p, s, 1, 1, 1, 0)<br /> End Sub