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

StartMe · 发表于 2007-4-6 22:38:00

在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 · 发表于 2007-4-7 10:24:00

1.你需要查查VB中，TextBox的属性来确定哪个是用来传递字符串的值。
2.ObjectDBX需要AutoCAD的支持，也就是说它需要打开AutoCAD后才能有效。

StartMe · 发表于 2007-4-10 22:19:00

楼上问题解决了。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 · 发表于 2007-4-11 21:45:00

试试 Public objDbx as Object

StartMe · 发表于 2007-4-11 22:56:00

我已经试过了
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 · 发表于 2007-4-13 20:40:00

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

5fj251z3qa5.jpg

wye4dbxjqvx.jpg

StartMe · 发表于 2007-4-13 21:18:00

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

q5hw4pnqelj.jpg

gzxl · 发表于 2010-6-19 10:38:00

在Dvb中运行正常，但是程序移植到VB后遇到下面两个问题：
1）、TextBox控件无法传递对象，如Dvb中语句
objDbx.Open Me.TextBox1.Value （TextBox1.text为图形文件名）
.Value在vb中TextBox控件无此属性，用TextBox.text属性又无法传递对象。那么在Vb中应怎样写？

楼上问题解决了。

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

臭要饭的 · 发表于 2012-6-7 14:47:00

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

阿华嘿嘿 · 发表于 2013-5-31 15:19:00

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

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

发表回复

精选推荐