[LISP函数]：下面这个小程序可以给以标注好的尺寸加上公差。

coco25825

下面这个小程序可以给以标注好的尺寸加上公差。
(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

fatant

下不了!!!!!!!!!!!!!!!!!!!!!!!!!

yxianfo

此程序若能实现当上偏差或下偏差的值为0时，其标注值是“0”而不带小数点及后面的0（下偏差为0时还多出了一个负号“-”）就好了。若能在公称尺寸与公差值之间再增加一空格就更完美了，因为它们之间显得有点太挤。程序的优点是一次可给多个尺寸添加相同的公差值。
本程序对改动过的尺寸无效。
有能力的请完善一下。