(progn (if (= n 40) (setq tole1$ "+0.01" tole2$ " 0"))
  )

　　若不做幻灯片则在启动Lisp前先键入Lisp变量n的值。为使标注更利便，操纵当前层自动换至尺寸标注层(DIM层)。

　　((and (<= dimt 50) (> dimt 30)) (setq st1 75 st2 82))

　　用TEXT指令将公差值写入，其写入位置依据名义尺寸的位数及是否有小数点算出，角度字高也随名义尺寸变革。对JS级公差作非凡处理赏罚(n=10、11、12*)。

　　若所标公差为H8，则菜单上响应行内容为:

　　(setq toleh (* 0.6 txth))

　　在菜单上选择了公差尺度条目后、屏幕上呈现响应幻灯片(如图示)当选取响应公差品级的项目后，完成了两个指令输入：起首给出了公差品级(现实上是给出了在公差值表中该品级的响应行号n值);其次是启动了公差尺度Lisp措施。Lisp措施启动后，打开公差值表(Tole.TXT)行使repeat函数在公差值表中持续读取一行数据，至直与所标公差品级响应的第n举动止。

　　((and (<= dimt 315) (> dimt 250)) (setq st1 145 st2 152))

　　((and (<= dimt 500) (> dimt 400)) (setq st1 173 st2 180))

　　(if (or (= n 10) (= n 11) (= n 12) (= n 13) (= n 27) (= n 28))

　　(setq y2 (+ y1 (* (sin (+ angr 1.5708)) (* 0.85 txth))))

　　公差标注幻灯片

　　(setq dimt (atof dim$))

　　(setq ln (strlen dim$))

　　(cond ((and (<= dimt 3) (> dimt 0)) (setq st1 5 st2 12))

　　(setq x1 (+ (cadr posi) (* (cos angr) (* (- ln 1.2) txth))))

　　(setq tole1$ (substr tols$ st1 6) tole2$ (substr tols$ st2 6))

　　(setq angd (* (/ angr pi) 180))

　　((and (<= dimt 80) (> dimt 50)) (setq st1 89 st2 96))

　　(setvar "cmdecho" 0) (command "layer" "s" "dim" "")

　　AutoCAD在用于机器计划时，公差标注有两种要领;其一是通过DIM参数设定完成，但参数设定繁琐，速率也慢，每一个差异公差值都要设定一次，在R12 0中名义尺寸与公差值的小数点位数沟通使名义尺寸显得累赘(R13 0对此作了改造);其二是用TEXT指令直接写入，但速率也慢，字的位置也不易写准，常需用MOVE指令移动一次。上述两种要领都需在作图时备公差数值表，先查表后标注，因此在尺寸公差标注上所花时刻许多。