[求助]帮忙看看修改标注精度的程序错在哪里？

fengye3585

经常要用到查看某一个标注更精确的标注，一般在属性里改标注的精度，但是找修改精度的位置比较不好找，所以就想写个小程序来设置标注的小数位数，程序一直没有调试成功!求高人指点！谢谢

(defun C:bzjd ()

(VL-LOAD-COM)

;;; 在模型空间中选择标注对象

   (setq dimObj (car (entsel "\n选择要修改精度的尺寸标注: ")))
   (setq str_0 (cdr (assoc 0 (entget dimObj))))

   (while (and (/= str_0 "LWPOLYLINE") (/= str_0 "DIMENSION"))
      (setq dimObj (car (entsel "\n所选对象不是尺寸标注,请重新选择编辑对象: ")))
      (setq str_0 (cdr (assoc 0 (entget dimObj))))
   )

  (setq dimObj (vlax-ename->vla-object dimObj))

  (setq newTolerance (getint "\n输入标注新的公差精度[0～8]: "))
 
  (if (= newTolerance "")

    (setq newTolerance 0)

    (progn

      (COND

       ((= newTolerance 0)(setq newTolerance acDimPrecisionZero))

       ((= newTolerance 1)(setq newTolerance acDimPrecisionOne))

       ((= newTolerance 2)(setq newTolerance acDimPrecisionTwo))

       ((= newTolerance 3)(setq newTolerance acDimPrecisionThree))

       ((= newTolerance 4)(setq newTolerance acDimPrecisionFour))

       ((= newTolerance 5)(setq newTolerance acDimPrecisionFive))

       ((= newTolerance 6)(setq newTolerance acDimPrecisionSix))

       ((= newTolerance 7)(setq newTolerance acDimPrecisionSeven))

       ((= newTolerance 8)(setq newTolerance acDimPrecisionEight))

       (t(progn (princ "标注精度未改变")(VL-EXIT-WITH-VALUE 0)))

      )

    )

   )
  
   (vla-put-TextPrecision dimObj newTolerance)  ; 确定公差精度的改变

;;; 读取并显示替代标注公差精度

  (setq newTolerance (vla-get-TextPrecision dimObj))

  (princ "标注精度已经设定为: ")(princ newTolerance)(princ "位小数")

  (princ)

 )

fengye3585

自己顶一下，请知道的高人指点一下！谢谢

说的简单一点就是怎么样用lisp实现改变某一个（不是全部）标注的小数位数！

fengye3585

顶起来！希望高人能看到！

xxsheng

;;你是标注精度吧?如果没有理解错误的话,这样就可以了!
(vla-put-PrimaryUnitsPrecision dimObj newTolerance)  ; 确定公差精度的改变
   (vla-put-SuppressTrailingZeros dimObj :vlax-false)
;;; 读取并显示替代标注公差精度

  (setq newTolerance (vla-get-PrimaryUnitsPrecision dimObj))

fengye3585

谢谢！把vla-put-TextPrecision 函数换成vla-put-PrimaryUnitsPrecision函数就ok了！谢谢xxsheng

gd515542

楼主，能不能帮我写一个lisp程序，以保证每次打开CAD图纸后自动将线性和角度标注精度修改为0.000，万分感谢！

lengxiaxi

每次只能选择并修改一个。不能批量选择多个标注。这个使用场景还是有限。希望楼主开发一个批量修改标注精度的lsp。