措施通过entsel函数返回用户所选择的尺寸的图元名，然后由 entget函数得到尺寸实体的界说数据，个中组码1的内容就是用户输入的尺寸文本，通过对其举办修改，插手上下毛病的数值就可以实现我们的目标了。个中部门代码如下：

(setq pc (nth m (nth n pcb)))

确定

pcb是毛病表，m、n是按照输入参数获得的维数，pc_s、pc_x别离是上、下毛病值。

因为措施回收的是对已经标注的尺寸添加公差的步伐，而不是简朴的注写text文本，以是添加上的公差笔墨与原尺寸文本是一个整体，这样就要用到AutoCAD的实领会见技能了。AutoCAD在画图进程中赋予所绘实体一个数字标号，称为图元名，它是指向由AutoCAD保持的一个内部数据文件的指针。通过图元名AutoLISP就能找到该实体的数据库记录，并对实体举办各类方法的处理赏罚。

(setq updata(strcat "\\A1;" jbcc "{\\H" gdxs "x;" "\\S" pc_s "^" pc_x ";}"))

前面两种要领必要人工查找尺寸毛病值，不能实现计划和画图的自动化，在现实计划事变中行使起来仍显繁琐，我们在AutoCAD软件的解说和行使进程中，回收二次开拓的要领较好的办理了这个题目。

组码内容修改完成后须用entmod函数更新图形数据库，所作的修改才会表现出来。该措施在AutoCADR14、AutoCAD2000上调试通过，涵盖了所有尺寸标注方法，可大大进步尺寸标注的速率。

（2）公差数值的存储与查询

(setq pc_x(nth 1 pc))

(setq dimobj(subst updata (assoc 1 dimobj) dimobj))

查询输入

（3）公差的注写

…

竣事对话框措施终止

输入毛病数值

(entmod dimobj)

途径3：操作AutoLISP说话编程实现公差的自动标注

(setq pc_s(nth 0 pc))

…

注写极限毛病

配置参数

…

开始

挪用预览图片子措施

公差名目

…

（1）．措施计划头脑

手工输入

途径1：操作AutoCAD提供的“尺寸样式打点器”对话框配置当前尺寸标注样式的更换样式。

途径2：操作AutoCAD的“多行笔墨编辑器”对话框的笔墨堆叠成果添加公差笔墨。

公差是机器计划中一项重要的技能要求，在用操作AutoCAD软件绘制机器图时，常常碰着标注尺寸公差的环境。 计划职员需按照尺寸公差代号查找国度尺度极限毛病表，找出该尺寸的极限毛病数值，凭证必然的名目在图中标注。为实现这一要求凡是有以下几种要领，现总结如下： 

公差数值的存储与查询是实现公差自动标注的要害之一。若行使外部数据库举办数据存储则在查询数据时必要行使中间文件，速率较慢。“表”是AutoLISP中最常用的数据记录器材，用表数据布局可以按照必要构建二维、三维乃至多维数组；操作表的检索函数可以快速地对表举办数据提取。对表的强盛处理赏罚手段是我们选择AutoLISP的另一个来由。我们按尺寸分段将国度尺度中的根基毛病表计划成AutoLISP表的情势，为了收缩查询时刻凭证孔、轴别离成立了一个二维表，通过变量在措施运行时将表调入内存。表中每一个元素包括上毛病和下毛病数值。在查询模块中操作根基尺寸、公差品级、共同代号作为输入参数，获得毛病数值地址的维数，从而查出该尺寸的上下毛病数值。查询语句如下：

；jbcc是该尺寸的根基尺寸数值；gdsx是公差笔墨的高度。

竣事语

AutoLISP是内嵌于AutoCAD的一种表处理赏罚说话，能直接会见图形数据库，通过修改图形数据对图形举办操纵，是扩充AutoCAD图形处理赏罚手段的有力器材，我们在计划措施时回收了模块化布局，将措施要完成的成果方针分别为查询和注写两个首要成果项，操作DCL说话计划出措施界面。主措施成立在界面驱动措施的基本上，通过界说响应的回调函数来实现其成果。操作AutoCAD的“appload”呼吁对措施举办装载，装载乐成后，主函数名即可作为AutoCAD的呼吁行使。措施流程图如图4所示，措施界面如图5所示。用户先选择必要添加公差的尺寸，措施得到该尺寸的根基尺寸数值，然后表现对话框供用户直接输入数据或选择查询方法，液压缸，最后挪用子措施注写该尺寸的公差文本。

放弃

表现对话框

在尺寸标注呼吁执行进程中，当呼吁行表现“指定尺寸线位置或[多行笔墨(M)/笔墨(T)/角度(A)/程度(H)/垂直(V)/旋转(R)]:”时键入“M”，调出“多行笔墨编辑器”对话框（如图2所示）。直接输入上下毛病数值并用标记“^”脱离（譬喻：+0.01^-0.02），然后选中输入的笔墨，点击对话框器材条上的 按钮使公差笔墨堆叠即可。对话框中的“<>”标记代表该尺寸的缺省文本，可以直接删除、修改。对付堆叠笔墨的编辑可以选中该堆叠笔墨后单击鼠标右键，在弹出的快捷菜单中选择“特征”，打开如图3所示的“堆叠特征”对话框便可修改堆叠笔墨的内容、巨细、位置等内容。

本文总结了在AutoCAD中举办尺寸公差标注的几种途径，出格是怎样用编程的要领实现尺寸公差的自动标注。AutoCAD是一个通用的画图平台，在此基本长举办各类专业应用措施的开拓则可以大大进步事变的服从，这也正是AutoCAD最吸引人的处所——在其强盛成果基本上的开放性。

在更换样式中配置公差的情势是极限毛病或对称毛病等，然后输入毛病数值及毛病笔墨高度和位置。用此更换样式标注的尺寸都将带有所配置的公差笔墨，液压缸，直至打消该样式更换。若要标注差异的尺寸公差则需一再上述进程，成立一个新的样式更换。必要指出的是在这一操纵进程顶用户必需行使体系给出的缺省根基尺寸文本，不然体系不予标注毛病，只标注根基尺寸。这样就给用户的尺寸毛病的标注事变造成未便。

笔墨高度

选择尺寸

这种要领比直接行使AutoCAD的公差标注成果要轻盈，可用于线性标注、对齐标注、直（半）径标注和角度标注，但不能用于基线标注和持续标注。

(setq updata (cons 1 updata))