delphi控制CAD画线

代码说明：

本程序是用Delphi7来调用CAD程序，包括打开自动CAD程序并且进行连接； 在程序中，我没有取ActiveDocument的实例句柄，而是直接取了ModelSpace的实例句柄。在生成一个三维的OleVariant双精度数组后，对它进行赋值，然后调用AddLine方法绘制一个高为2030，宽为800的长方型，并让它立即显示。 程序在后台显示后，调用保存对新生成的CAD图纸进行保存为Dwg格式； 关闭应用程序后自动关闭刚才画图的CAD窗口。