VB引用CAD类库

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，，，能不能说的更详细点吗

VB引用CAD类库

发表回复

精选推荐