[请教]程序移植到VB后利用ObjectDbx技术的问题

StartMe

在Dvb中运行正常，但是程序移植到VB后遇到下面两个问题：

1）、TextBox控件无法传递对象，如Dvb中语句

objDbx.Open Me.TextBox1.Value    （TextBox1.text为图形文件名）

.Value在vb中TextBox控件无此属性，用TextBox.text属性又无法传递对象。那么在Vb中应怎样写？

2）、为什么调用ObjectDBX目标属性时总出现什么“自动化错误”的提示？

引用中我已经引用了相应版本的ObjectDBX类型库，获取时也是用的相应版本的"ObjectDBX.AxDbDocument.XX"，怀疑objectdbx没注册又参照龙龙仔版主的注册方法注册了，但还是不行，不知怎么回事，是否就是ObjectDBX本身的不稳定？但是在Dvb中一切正常啊。不知能是什么原因，请高手指教。

mccad

1.你需要查查VB中，TextBox的属性来确定哪个是用来传递字符串的值。

2.ObjectDBX需要AutoCAD的支持，也就是说它需要打开AutoCAD后才能有效。

StartMe

楼上问题解决了。CAD2006/2007下运行一切正常，但是对于CAD2002无论如何也获取不了对OBJECTDBX的引用，类型库已经引用，按照龙版主的注册方法也注册了：

Public objDbx As AxDbDocument
Private Sub Class_Initialize()
    If Left(AcadApp.Version, 2) = "15" Then
        Set objDbx = GetInterfaceObject("ObjectDBX.AxDbDocument.1")
    ElseIf Left(AcadApp.Version, 2) = "16" Then
        Set objDbx = GetInterfaceObject("ObjectDBX.AxDbDocument.16")
    ElseIf Left(AcadApp.Version, 2) = "17" Then
        Set objDbx = GetInterfaceObject("ObjectDBX.AxDbDocument.17")
    End If
End Sub

CAD2002时提示As AxDbDocument类型未定义，于是换了Public objDbx
objDbx却始终获不到引用，这该如何解决？在CAD2006/2007中这样已经成功了。

mccad

试试 Public objDbx as Object

StartMe

我已经试过了

Public objDbx

Private Sub Class_Initialize()
    If Left(AcadApp.Version, 2) = "15" Then
        Set objDbx = GetInterfaceObject("ObjectDBX.AxDbDocument.1")
    ElseIf Left(AcadApp.Version, 2) = "16" Then
        Set objDbx = GetInterfaceObject("ObjectDBX.AxDbDocument.16")
    ElseIf Left(AcadApp.Version, 2) = "17" Then
        Set objDbx = GetInterfaceObject("ObjectDBX.AxDbDocument.17")
    End If
End Sub

还是不行，感觉特憋屈，怎么会不行呢？不应该有什么问题啊。尤其其它版本一切正常。

2002是不是支持ObjectDBX不是很稳定啊。

StartMe

~{UfJGStCF!#>MJG2P!#DQ5@JGNR5D~}2002~{0f1>5DJB#?~}

 

 

StartMe

晕！怎么是乱码。我现在的IE不知怎么了，贴也看不全，缩小字体都不行。真是郁闷。

 

 

 

gzxl

在Dvb中运行正常，但是程序移植到VB后遇到下面两个问题：

1）、TextBox控件无法传递对象，如Dvb中语句

objDbx.Open Me.TextBox1.Value    （TextBox1.text为图形文件名）

.Value在vb中TextBox控件无此属性，用TextBox.text属性又无法传递对象。那么在Vb中应怎样写？

 

 

楼上问题解决了。

 

 

如何处理啊？方法是什么?

 

 

 

 

臭要饭的

这里发表下本小菜的看法 我认为并不一定需要textbox来传值 可以用全局的形参 或者是按址传值 不都可以获取到所要的文件名么 另外还需要注意一个问题的是 在windows系统里文件名太长需要用GetShortPathName函数来获取短名称，在VB中引用可以不用TextBox啊 我的就是用回调函数解决的

阿华嘿嘿

本小菜发表一下体会吧，楼主说的用Public定义objDbx无效，甚至会出错，用Dim就可以