[请教]程序移植到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 SubCAD2002时提示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 objDbxPrivate 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!#>MJG2;PP!#DQ5@JGNR5D~}2002~{0f1>5DJB#?~}

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

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

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

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

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

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

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

页: [1] 2

明经CAD社区's Archiver

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