程序如何才能在CAD2004中运行

ywy6688

各位版主及专家：新年好!

         我用VB6编了一个程序，其中需调用CAD。我机子上安装的是CAD2002。

         编译生成可执行文件后，程序能在任何装有CAD2002的计算机上正常运行，但在安装了CAD2004的计算机上就不行运行该程序了。我该如何办？

        肯请得到你们的帮助。谢谢！

BigJue

类型库的版本问题。好像有很多人问过这个问题，采用动态绑定的方法比较好。

变量都定义为Object，不要定义为AcadApplication

ywy6688

BigJue：你好！

能说得详细点吗？我刚接触VB开发CAD，谢谢 如何用OBJECT来代替AcadApplication，在VB中引用CAD2002后生成EXE文件，在CAD2004平台上就提示类型错误，具体该怎样操作

zxj_76

把你连接AUTOCAD这部分代码发上来看看

ywy6688

zxj_76专家:你好!

        我在VB工具栏的"引用"栏用勾选了ＡＵＴＯＣＡＤ的相关选项，之后用了如下命令：Dim aCADline As Object
   
    Dim cad1 As Object  'AutoCAD对象
    Dim cad2 As Object  'AutoCAD当前绘图模型区对象
    Dim CADobj1 As Object, CADobj2 As Object, CADobj3 As Object '定义备用的三个CAD对象
    Dim CADpoint1(3) As Double, CADpoint2(3) As Double, CADpoint3(3) As Double '定义备用的三个点变量 必须只能是数据型的
    Dim txtMODE 'As AcadTextStyle '定义mytxt变量为文本样式
    CADpoint1(1) = 0: CADpoint1(2) = 0: CADpoint2(1) = 800: CADpoint2(2) = 300: CADpoint3(1) = 800: CADpoint3(2) = 1000
    Set cad1 = CreateObject("autocad.application"): cad1.Visible = True
    Set cad2 = cad1.ActiveDocument: cad1.ActiveDocument.Utility.InitializeUserInput 1 '该句命令使CAD接收VB的命令，并将在CAD中的输入传入VB的变量中

 　进行该定义后　Dim txtMODE 'As AcadTextStyle '定义mytxt变量为文本样式

　由于版本问题（２００２，２００４），就会出错　，能否找到一个通用格式

　　　　　　谢谢