[LISP函数]：这样的公差标注lisp怎么编啊

whz_20

做模具的,常常不同的零件的公差配合很是烦恼,请各位看看有何高招

1.比如就m5的公差配合的导柱固定端,不同的直径公差不一样
   
而且模具的零件那么多,所以用标注样式是非常的烦的,而且不同的尺寸有不同

的样式,那显然给文件负担
2.能根据不同的值,公差随之改变,

3.公差的位置也是跟着文字的角度走

jxb8888

;;;;;;;;;;;;;;添加公差;;;44444444444444444444444444444444444444444
(VL-LOAD-COM)
(defun c:cs (/ AcadObject AcadDocument mSpace)
  (PrinC "\n这是铝型材高精度标注添加公差的程式...我的E-MAIL:jiangalum@163.com ,有空联系我吧！")

  (setq        AcadObject   (vlax-get-acad-object)
        AcadDocument (vla-get-ActiveDocument Acadobject)
        mSpace             (vla-get-ModelSpace Acaddocument)
  )                                        ;装载VLA程式函数

  (setq s (car (entsel)))                ;碰选标注的图元
  (setq en1 (entget s))
  (setq LWP (cdr (assoc 42 en1)))        ;取出标注的尺寸

;;;;;;;;;
  (if (<= 1 lwp)
    (progn
      (setq dimobj (vlax-ename->vla-object s)) ;把LISP对象转换成VLA对象
      (vla-put-ToleranceDisplay dimObj acTolSymmetrical) ;显示公差
      (vla-put-ToleranceLowerLimit dimObj 0.1) ;添加下公差
      (vla-put-ToleranceUpperLimit dimObj 0.1) ;添加上公差
    )
  )
;;;;;;;;;;;;;
  (if (< 2 lwp)
    (progn
      (setq dimobj (vlax-ename->vla-object s)) ;把LISP对象转换成VLA对象
      (vla-put-ToleranceDisplay dimObj acTolSymmetrical) ;显示公差
      (vla-put-ToleranceLowerLimit dimObj 0.12) ;添加下公差
      (vla-put-ToleranceUpperLimit dimObj 0.12) ;添加上公差
    )
  )
;;;;;;;;;;;;;;;
  (if (< 3 lwp)
    (progn
      (setq dimobj (vlax-ename->vla-object s)) ;把LISP对象转换成VLA对象
      (vla-put-ToleranceDisplay dimObj acTolSymmetrical) ;显示公差
      (vla-put-ToleranceLowerLimit dimObj 0.16) ;添加下公差
      (vla-put-ToleranceUpperLimit dimObj 0.16) ;添加上公差
    )
  )
;;;;;;;;;;;;;;;
  (if (< 4 lwp)
    (progn
      (setq dimobj (vlax-ename->vla-object s)) ;把LISP对象转换成VLA对象
      (vla-put-ToleranceDisplay dimObj acTolSymmetrical) ;显示公差
      (vla-put-ToleranceLowerLimit dimObj 0.18) ;添加下公差
      (vla-put-ToleranceUpperLimit dimObj 0.18) ;添加上公差
    )
  )
;;;;;;;;;;;;;;;
  (if (< 6 lwp)
    (progn
      (setq dimobj (vlax-ename->vla-object s)) ;把LISP对象转换成VLA对象
      (vla-put-ToleranceDisplay dimObj acTolSymmetrical) ;显示公差
      (vla-put-ToleranceLowerLimit dimObj 0.2) ;添加下公差
      (vla-put-ToleranceUpperLimit dimObj 0.2) ;添加上公差
    )
  )
;;;;;;;;;;;;;;;
  (if (< 12 lwp)
    (progn
      (setq dimobj (vlax-ename->vla-object s)) ;把LISP对象转换成VLA对象
      (vla-put-ToleranceDisplay dimObj acTolSymmetrical) ;显示公差
      (vla-put-ToleranceLowerLimit dimObj 0.23) ;添加下公差
      (vla-put-ToleranceUpperLimit dimObj 0.23) ;添加上公差
    )
  )
;;;;;;;;;;;;;;;
  (if (< 19 lwp)
    (progn
      (setq dimobj (vlax-ename->vla-object s)) ;把LISP对象转换成VLA对象
      (vla-put-ToleranceDisplay dimObj acTolSymmetrical) ;显示公差
      (vla-put-ToleranceLowerLimit dimObj 0.25) ;添加下公差
      (vla-put-ToleranceUpperLimit dimObj 0.25) ;添加上公差
    )
  )
;;;;;;;;;;;;;;;
  (if (< 25 lwp)
    (progn
      (setq dimobj (vlax-ename->vla-object s)) ;把LISP对象转换成VLA对象
      (vla-put-ToleranceDisplay dimObj acTolSymmetrical) ;显示公差
      (vla-put-ToleranceLowerLimit dimObj 0.3) ;添加下公差
      (vla-put-ToleranceUpperLimit dimObj 0.3) ;添加上公差
    )
  )
;;;;;;;;;;;;;;;
  (if (< 38 lwp)
    (progn
      (setq dimobj (vlax-ename->vla-object s)) ;把LISP对象转换成VLA对象
      (vla-put-ToleranceDisplay dimObj acTolSymmetrical) ;显示公差
      (vla-put-ToleranceLowerLimit dimObj 0.36) ;添加下公差
      (vla-put-ToleranceUpperLimit dimObj 0.36) ;添加上公差
    )
  )
;;;;;;;;;
  (if (< 50 lwp)
    (progn
      (setq dimobj (vlax-ename->vla-object s)) ;把LISP对象转换成VLA对象
      (vla-put-ToleranceDisplay dimObj acTolSymmetrical) ;显示公差
      (vla-put-ToleranceLowerLimit dimObj 0.61) ;添加下公差
      (vla-put-ToleranceUpperLimit dimObj 0.61) ;添加上公差
    )
  )
;;;;;;;;;;;;;;;

  (if (< 100 lwp)
    (progn
      (setq dimobj (vlax-ename->vla-object s)) ;把LISP对象转换成VLA对象
      (vla-put-ToleranceDisplay dimObj acTolSymmetrical) ;显示公差
      (vla-put-ToleranceLowerLimit dimObj 0.86) ;添加下公差
      (vla-put-ToleranceUpperLimit dimObj 0.86) ;添加上公差
    )
  )
;;;;;;;;;;;;;;;
  (if (< 150 lwp)
    (progn
      (setq dimobj (vlax-ename->vla-object s)) ;把LISP对象转换成VLA对象
      (vla-put-ToleranceDisplay dimObj acTolSymmetrical) ;显示公差
      (vla-put-ToleranceLowerLimit dimObj 1.12) ;添加下公差
      (vla-put-ToleranceUpperLimit dimObj 1.12) ;添加上公差
    )
  )

;;;;;;;;;;;;;;;;;
  (if (< 200 lwp)
    (progn
      (setq dimobj (vlax-ename->vla-object s)) ;把LISP对象转换成VLA对象
      (vla-put-ToleranceDisplay dimObj acTolSymmetrical) ;显示公差
      (vla-put-ToleranceLowerLimit dimObj 1.37) ;添加下公差
      (vla-put-ToleranceUpperLimit dimObj 1.37) ;添加上公差
    )
  )
;;;;;;;;;;;;;;;

  (princ)                                ;结束
)

rungang2002

(if (>=200 lwp)如何作呢