guohq 发表于 2010-7-3 19:53:00

目前我已经试验成功，做三个DLL，分别引用2002 ,2006 ,2009Type Library,然后新建一个工程，此工程得引用刚才生成的三个DLL，这样就不会出错版本间的冲突，

pmq 发表于 2010-7-4 14:38:00

我的“测量成图剖面计算”也是这样，做三个DLL，分别引用2006,2009,2011
Public Sub CadVer()
    strAcadVersion = Application.Version
    strAcadVersion = Left(strAcadVersion, 4)
    Select Case strAcadVersion
    Case "16.0", "16.1", "16.2"
      Set SurA = CreateObject("SurFun200456.Class1")
    Case "17.0", "17.1", "17.2"
      Set SurA = CreateObject("SurFun200789.Class1")
    Case "18.0", "18.1", "18.2"
      Set SurA = CreateObject("SurFun20101.Class1")
    Case Else
    End Select
End Sub
根据CAD版本调用相应的DLL文件。

http://pmq.ys168.com/

fuhuodao 发表于 2015-8-7 23:12:00

做三个DLL，分别引用2002 ,2006 ,2009Type Library，，，能不能说的更详细点吗
页: 1 [2]
查看完整版本: VB引用CAD类库