va[1]:=0;

　　va[2]:=0;

　　---- 上述代码实现了在坐标(0，天圆液压缸筒，0，0)处写工艺库记录某字段的内容。 本措施在win98/delphi4.0下通过调试、运行。

　　ac:=a.activedocument;

　　---- 在工艺卡片的天生进程中，最首要的是往工艺表格内填写工艺内容，插入工序简图，以填写工艺笔墨为例，va是三维可变数组，用以确定工艺笔墨的起始坐标;text1、am是variant范例，个中am是从属于document的modalspace工具。

　　text1.height:=3.5;

　　AutoCAD R14.01版本提供了ActiveX Automation 技能，ActiveX 是微软拟定的一种实现措施间通信、挪用的软件复用类型，它提供了一种节制AutoCAD的机制，即往往AutoCAD中每一个裸露的工具，如circle、line都可以用VB、Delphi等支持ActiveX的说话来节制。每一个工具都有其响应的特征、要领，可以读取或改变其特征，可以用要领来节制工具的举措。操作该项技能做AutoCAD二次开拓，可能编写基于AutoCAD的数据库措施，有着显而易见的良好性，尤其与专用说话autolisp对比。毫无疑问，活塞杆，ActiveX Automation 技能为AutoCAD业已富厚的二次开拓又提供了一个崭新的天地。

　　va[0]:=0;

　　---- 起首，实现对AutoCAD的节制，AutoCAD自己是一个OLE自动化处事器，Delphi4用Olevariant范例的变量来引用OLE自动化工具，进而会见自动化工具的特征和要领。起首建设AutoCAD自动化处事器，设AutoCAD工具的变量为a,子工具之一document,即文档(图形文件)，变量为ac,其建设如下：

　　---- 我厂在CAPP(工艺帮助计划)软件的开拓中，应用Delphi4说话，操作AutoCAD的ActiveX Automation 技能，从数据库中读取数据，直接写到AutoCAD文件中，实现了工艺卡片的自动天生，得到了令人满足的结果。下面以《机器加工工艺进程卡片》的天生为例声名详细的实现。

　　text1:=am.AddmText(va2,39,table2ljth.value);

　　a:=creataoleobject('autocad.application');