ObjectDbx对象创建和打开文件路径问题？

assing

vb6.0和AutoCAD2006,在工程/引用中也加上了类型库.16。希望自动插入另一个图里的图块，程序如下。问题：说什么实时错误，自动化错误。光标在CreateObject出错

Dim objDbx
Dim elem As Object
Dim blkName As String
Dim blkObj(0) As Object
Dim pnt(0 To 2) As Double
Set objDbx = CreateObject("ObjectDBX.AxDbDocument.16")
        objDbx.Open "c:\yaquan.dwg" 
        For Each elem In objDbx.Blocks'将图形中的块添加到列表中
            If elem.Name = "yq-ls" Then
                blkName = elem.Name
                Exit For
            End If
        Next         
    pnt(0) = 0: pnt(1) = 0: pnt(2) = 0
    Set blkObj(0) = objDbx.Blocks(blkName)
    objDbx.CopyObjects blkObj, obj_ModelSpace
    obj_ModelSpace.InsertBlock pnt, blkName, 1, 1, 1, 0
    '释放内存
    Set elem = Nothing
    Set objDbx = Nothing

assing

改成       Set objDbx = GetInterfaceObject("ObjectDBX.AxDbDocument.16") 就行了。

还有个问题：objDbx.Open "c:\yaquan.dwg"如何改成相对路径？？谢谢大家指点。

wyj7485

把dwg文件放到程序同级目录下用app.path