分享一个增加公差的小工具（我只是搬运工）......

XO-20170910

分享一个增加公差的小工具（我只是搬运工）......



(defun c:gc()
  (setq gett (getstring "\n请选择标公差类型 [对称公差(D)/默认(极限公差)]:"))
  (setq gett (strcase gett));字符串转换大小写
  (if (= gett "D") (progn
                     (defun vla-ssname (ss index)
    (vlax-ename->vla-object (ssname ss index))
  )
  (setq %%g1 (getdist "\n输入[对称公差]±:"))
  (if (null %%g1) (setq %%g1 %%kc)
    );if
  (princ "\n选择尺寸:")
  (while (setq ss (ssget ":S" '((0 . "DIMENSION"))))
  (repeat (setq i (sslength ss))
    (setq vobj (vla-ssname ss (setq i (1- i))))
    (vla-put-ToleranceDisplay vobj acTolDeviation)
    (vla-put-ToleranceUpperLimit vobj %%g1)
    (vla-put-ToleranceLowerLimit vobj %%g1)
  )
    );while
  (setq %%kc %%g1);用这种方法，获的上次输入值，应该还有更好的方法
  (princ)
                    );progn
    );if
  (if (= gett "") (progn
                    (defun vla-ssname (ss index)
    (vlax-ename->vla-object (ssname ss index))
  )
  (setq %sk1 (getdist "\n输入[正公差]+:"))
  (if (null %sk1) (setq %sk1 %am1)
    );if
  (setq %sk2 (getdist "\n输入[负公差]-:"))
  (if (null %sk2) (setq %sk2 %wk2)
    );if
  (princ "\n选择尺寸:")
  (while (setq ss (ssget ":S" '((0 . "DIMENSION"))))
  (repeat (setq i (sslength ss))
    (setq vobj (vla-ssname ss (setq i (1- i))))
    (vla-put-ToleranceDisplay vobj acTolDeviation)
    (vla-put-ToleranceUpperLimit vobj %sk1)
    (vla-put-ToleranceLowerLimit vobj %sk2)
  )
    );while
  (setq %am1 %sk1
        %wk2 %sk2);用这种方法，获的上次输入值，应该还有更好的方法
  (princ)
);progn
    );if
  );defun

alexmai

不错，很好用

liwen888888

谢谢分享源码

zhouzhiy

谢谢楼主分享！

1028882406@qq.c

谢谢楼主，支持下

vladimirputin

很不错 的资料，谢谢分享呵

greyzxy

非常感谢分享

wo870711

谢谢分享。。。。。。