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

biztech

[em0][em0][em0]

yshf

ObjectDBX宿主是AutoCAD，你那种用法在AutoCAD VBA中也许是可以的，但VB6.0中需先建立宿主才能引用，可能的写法是(没有试过)：
   Dim AcadApp As Object
   Dim objDbx As Object
   Set AcadApp = CreateObject("AutoCAD.Application.16.2")
   Set objDbx = AcadApp.GetInterfaceObject("ObjectDBX.AxDbDocument.16")

lanrenqing

dbx 依旧好用，感谢