Java 以跨平台深受大家喜欢，而由于它跨平台的目的，需要运行在java虚拟机上工作，使得它和本地机器各种内部联系变得很少，约束了它直接掉本地API的功能。本例采用VB代码生成调用AutoCAD接口的DLL文件，使用Jacob技术用Java调用DLL文件来实现Java对AutoCAD接口的调用。

软件环境：VB6.0，Jacob1.16，Eclipse3.7.2，AutoCAD 2007，win7 64。
Jacob程序及本文源码：http://pan.baidu.com/s/1nvJATUL

1，使用VB6.0创建一个DLL项目（ActiveX DLL），取名为“JavaForCad”，
2，加入此工程对AutoCAD的引用：点击VB的工程菜单→引用，勾选AutoCAD 2007 Type Library点确定。

3，编写调用AutoCAD接口的代码，具体VB代码如下：

Dim acadApp As AcadApplication
Dim acadDoc As AcadDocument
' 连接AutoCAD的方法
Sub ConnCad()On Error Resume Next' 获取AutoCAD对象赋值给acadAppSet acadApp = GetObject(, "AutoCAD.Application")If Err ThenErr.ClearSet acadApp = CreateObject("AutoCAD.Application")If Err ThenMsgBox Err.DescriptionExit SubEnd IfEnd If' 显示AutoCAD窗口acadApp.Visible = True
End Sub
' 调用AutoCAD接口画圆的方法
Sub DrawCircle()Set acadDoc = acadApp.ActiveDocumentDim circleObj As AcadCircleDim centerPoint(0 To 2) As DoubleDim radius As DoublecenterPoint(0) = 100#: centerPoint(1) = 100#: centerPoint(2) = 0#radius = 100#Set circleObj = acadDoc.ModelSpace.AddCircle(centerPoint, radius)
End Sub

4，生成对应的DLL文件
点击VB菜单的文件→生成JavaForCad.dll

5，注册“JavaForCad.dll”文件，在cmd窗口里执行命令“Regsvr32 C:\JavaForCad.dll”

6，搭建Jacob运行环境，将“jacob-1.16-M1-x86.dll”和“jacob-1.16-M1-x64.dll”对应放入System32和SysWOW64文件夹下。（“jacob-1.16-M1.zip”里有DLL文件）

7，创建Java项目，引入Jacob的jar包“Jacob.jar”(“jacob-1.16-M1.zip”压缩包里有)

8，编写Java代码

        ComThread.InitSTA();// 启动线程// 以下两种方式都能取得DLL文件对象// clsid值可通过在注册表中搜索"JavaForCad"取得// ActiveXComponent com = new// ActiveXComponent("clsid:3E1A16AB-D456-48EB-A943-A8C8633BF78D") ;// "JavaForCad"对应DLL文件名,"Class1"对应VB项目中类模块名称ActiveXComponent com = new ActiveXComponent("JavaForCad.Class1");// Dispatch对象看成是对Activex控件的一个操作Dispatch disp = com.getObject();// 调用DLL文件中的连接AutoCAD方法Dispatch.call(disp, "ConnCad");// 调用DLL文件中的画圆方法Dispatch.call(disp, "DrawCircle");ComThread.Release();// 结束进程

9，先启动AutoCAD后运行Java代码即可间接通过Java代码调用AutoCAD接口进行画圆操作。