[LISP函数]：如何在标注的尺寸上增加公差？

wlz088

以前似乎在哪见过这个lsp程序，现在要用的时候找不着了，那位大侠能告诉我这个功能是如何实现的吗？

lsjjm

下面这个小程序可以给以标注好的尺寸加上公差。
(defun c:addtolerance ( )
  (vl-load-com)
  (setq upl (getstring "\nInput Upper Limit:"))
  (setq dow (getstring "\nInput Downlower Limit:"))
  (if (or (= upl "")(= (atof upl) 0))(setq upl "0"))
  (if (or (= dow "")(= (atof dow) 0))(setq dow "0"))
  (if (vl-string-search "." upl)
    (setq pre1 (- (strlen upl) 1 (vl-string-search "." upl)))
    (setq pre1 0)
  );i
  (if (vl-string-search "." dow)
    (setq pre2 (- (strlen dow) 1 (vl-string-search "." dow)))
    (setq pre2 0)
  );i
  (setq pre (max pre1 pre2))
  (princ "\nSelect Dimension:")
  (setq ents (ssget) n 0)
  (while (< n (sslength ents))
    (setq ent (vlax-ename->vla-object (ssname ents n)))
    (vlax-put-property ent 'toleranceprecision pre)
    (vlax-put-property ent 'toleranceupperlimit (atof upl))
    (vlax-put-property ent 'tolerancelowerlimit (atof dow))
    (if (= (atof upl)(atof dow))
      (vlax-put-property ent 'tolerancedisplay 1)
      (vlax-put-property ent 'tolerancedisplay 2)
    )
    (setq n (1+ n))
  );
  (princ)  
);addtolerance