[VBA函数]：求助 在VBA中插入外部块时不写全路径找不到文件?

WIDNSHELL

我已经设置了"C:\"为默认的工作路径,用LSP可以插入.
(command "insert" "blockname"  "0,0,0" "" "" "")

在VBA中第一次插入外部块时显示文件处理器错误.
程序如下,第一次插入时将"block",改成"C:\block.DWG"可以
有什么办法只需blockname,不加全路径仍能插入?
sub ax()
Dim insertionPnt As Variant
insertionPnt = ThisDrawing.Utility.GetPoint(, "选择图框的插入点.")
Dim blockRefObj As AcadBlockReference
Set blockRefObj = ThisDrawing.ModelSpace.INSERTblock(insertionPnt, "blockname", 1#, 1#, 1#, 0)
End sub

雪山飞狐(lzh)

"block.DWG"

WIDNSHELL

谢了
可以用,但能不能更能更简单点,不加文件扩展名
我以前也用这个代码编了段可以直接插入,但今天再拿出来就不行了.

常青

看看

macula55

用VBA插入外部块最好是写全路径，要不很容易出错！