[请教]程序移植到VB后利用ObjectDbx技术的问题
在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中一切正常啊。不知能是什么原因，请高手指教。
1.你需要查查VB中，TextBox的属性来确定哪个是用来传递字符串的值。
2.ObjectDBX需要AutoCAD的支持，也就是说它需要打开AutoCAD后才能有效。
楼上问题解决了。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中这样已经成功了。
试试 Public objDbx as Object 我已经试过了
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不是很稳定啊。
~{UfJGStCF!#>MJG2P!#DQ5@JGNR5D~}2002~{0f1>5DJB#?~}
晕！怎么是乱码。我现在的IE不知怎么了，贴也看不全，缩小字体都不行。真是郁闷。
在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就可以
页:
[1]