社区 › VB › ObjectDbx对象创建和打开文件路径问题？

assing 发表于 2007-2-6 11:59:00

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

vb6.0和2006,在工程/引用中也加上了类型库.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 发表于 2007-2-6 16:06:00

改成       Set objDbx = GetInterfaceObject("ObjectDBX.AxDbDocument.16") 就行了。
还有个问题：objDbx.Open "c:\yaquan.dwg"如何改成相对路径？？谢谢大家指点。

wyj7485 发表于 2007-2-6 17:04:00

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

查看完整版本: ObjectDbx对象创建和打开文件路径问题？