----我厂在CAPP（工艺辅助设计）软件的开发中，应用Delphi4语言，利用a class=“inlink“ href=“http://www。com/machine/softedu/CADAutoCAD的ActiveXAutomation技术，从数据库中读取数据，直接写到AutoCAD文件中，实现了工艺卡片的自动生成，获得了令人满意的效果。----首先，实现对AutoCAD的控制，AutoCAD本身是一个OLE...
---- 我厂在CAPP（
工艺辅助设计）软件的开发中，应用Delphi4语言，利用
CAD/" target="_blank">AutoCAD的ActiveX Automation 技术，从数据库中读取数据，直接写到AutoCAD文件中，实现了工艺卡片的自动生成，获得了令
满意的效果。下面以《
机械加工工艺过程卡片》的生成为例说明具体的实现。
---- 首先，实现对AutoCAD的控制，AutoCAD本身
一个OLE自动化服务器，Delphi4用Olevariant类型的变量来引用OLE自动化对象，进而访问自动化对象的特性和方法。首先创建AutoCAD自动化服务器，设AutoCAD对象的变量为a,子对象之一document,即文档（图形文件），变量为ac,其创建如下：
a:=creataoleobject('autocad.application');
ac:=a.activedocument;
---- 在工艺卡片的生成过程中，最主要的是往工艺表格内填写工艺内容，插入工序简图，以填写工艺文字为例，va是三维可变数组，用以确定工艺文字的起始坐标；text1、am是variant类型，其中am是从属于document的modalspace对象。
va[0]:=0;
va[1]:=0;
va[2]:=0;
text1:=am.AddmText(va2,39,table2ljth.value);
text1.height:=3.5;
---- 上述代码实现了在坐标（0，0，0）处写工艺库记录某字段的内容。 本程序在win98/delphi4.0下通过调试、运行。
