[VBA程序]：请问在VB中能否使用OBJECTDBX技术？

waley111

要在vb中使用OBJECTDBX，但是老是出错，不是"ACTIVEX 无法创建对象 ",就是“自动化出错”
望那位大哥大姐帮忙看一下！
多谢了！！！！


Private Sub Command1_Click()


    On Error Resume Next
   
    ' 连接至 AutoCAD 应用程序
    Dim acadApp As Object
   
   
    Set acadApp = GetObject(, "AutoCAD.Application.15")
    If Err Then
        Err.Clear
        Set acadApp = CreateObject("AutoCAD.Application.15")
        If Err Then
            MsgBox Err.Description
            Exit Sub
        End If
    End If
   
    ' 连接至 AutoCAD 图形
    Dim acadDoc As Object
    Set acadDoc = acadApp.ActiveDocument
   
        
     
  Dim blkname As String     '图块名
  Dim dwgname As String     ‘要打开的dwg文件名字
        
  Dim blkobj(0) As Object
  Dim pnt(2) As Double
  Dim objdbx
  
        
        '根据AutoCAD的版本来确定使用ObjectDBX的版本
        '我的是cad2002

        Set objdbx = CreateObject("ObjectDBX.AxDbDocument")
  
  If Err Then
        Set objdbx = CreateObject("ObjectDBX.AxDbDocument.16")
  End If


    blkname = "111"返回控件中选中的文本
   
  
   dwgname = "d:\111.dwg"
   
    objdbx.Open dwgname
     
    pnt(0) = 0
    pnt(1) = 0
    pnt(2) = 0
   
    Set blkobj(0) = objdbx.Blocks(blkname)
   
    objdbx.CopyObjects blkobj, acadDoc.ModelSpace
   
    acadDoc.ModelSpace.InsertBlock pnt, blkname, 1, 1, 1, 0
   
     
     ZoomAll
     
    acadApp.Visible = True
   
    acadApp.ZoomAll
   

End Sub

雪山飞狐(lzh)

Set objdbx = CreateObject("ObjectDBX.AxDbDocument.1")试试，另外ObjectDBX注册了么？

waley111

Set objdbx = CreateObject("ObjectDBX.AxDbDocument.1")已经试过了，不行！！！

另外ObjectDBX注册了么？   怎么算是注册了？有什么特别的国成吗？在工具——引用里面已经添加了autocad  ObjectDBX 1.0l了！
但是还是不行啊？

大哥救救我吧！！！！！！

雪山飞狐(lzh)

试试先运行下面的Lisp代码

转自mjtd
  (defun REGISTEROBJECTDBX (/ DBXSERVER) ;by Tony Tanzillo
    (cond
      ((vl-registry-read
  "HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument\\CLSID"
       )
      )
      ((not (setq DBXSERVER (findfile "AxDb15.dll")))
       (alert "Error: Can't locate ObjectDBX Library (AxDb15.dll)")
      )
      (t
       (startapp "regsvr32.exe" (strcat "/s \"" DBXSERVER "\""))
       (or
  (vl-registry-read
    "HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument\\CLSID"
  )
  (alert
    "Error: Failed to register ObjectDBX ActiveX services."
  )
       )
      )
    )
  )

waley111

多谢斑主！！！

但是不知道这段lisp的作用是注册吗？

要是我将vb打包编译后在其他机子上运行的话会不会出现相同的问题？？？？

我的机子使用vba 的话不存在这个问题的！

只能先试一下再说了！

BigJue

有没有注册可以到注册表中查看，要注意的是你的objectDbx的版本，这个可以在注册表中查到（progID）

waley111

注册表中查看?
我在注册表查找objectDbx可以吗？