还是这个版块的版主好，求改可以框选的lsp,在另外一个版块晒了好几天啦，人都没见过

hzj526

楼主这是什么意思？

pipi2

？？？？？没搞懂

caoyin

      (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)))
      )

上面的代码为什么这么复杂，直接改为

      (if (not (and newTolerance
                    (>= newTolerance 0)
                    (<= newTolerance 8)
               ))
        (progn (princ "标注精度未改变")(VL-EXIT-WITH-VALUE 0))
      )

就可以了，因为

acDimPrecisionZero=0

acDimPrecisionOne=1

...

caoyin

学会怎么将选择集转换为图元列表，自己就可以改了

ZZXXQQ

3. (defun C:djd ()
4. (VL-LOAD-COM)
5. (princ"\n程序功能：标注尺寸中数字的小数位精度"); 在模型空间中选择标注对象
6. (if (and (setq newTolerance (getint "\n输入标注新的公差精度[0～8]: "))
7.           (<= 0 newTolerance 8)) (progn
8.   (princ "标注精度已经设定为: ")
9.   (princ newTolerance)
10.   (princ "位小数")
11.   (if (and (princ "\n选择要修改精度的尺寸标注: ")
12.            (setq ss (ssget '((0 . "DIMENSION"))))) (progn
13.    (setq i 0)
14.    (repeat (sslength ss)
15.     (setq dimObj (ssname ss i) i (1+ i))
16.     (setq dimObj (vlax-ename->vla-object dimObj))
17.     (vla-put-PrimaryUnitsPrecision dimObj newTolerance); 确定公差精度的改变
18.     (vla-put-SuppressTrailingZeros dimObj :vlax-false);;; 读取并显示替代标注公差精度
19.     (setq newTolerance (vla-get-PrimaryUnitsPrecision dimObj))
20.    )
21.   ))
22. )
23.   (princ "标注精度未改变")
24. )
25. (princ)
26. )

(defun C:djd () (VL-LOAD-COM) (princ"\n程序功能：标注尺寸中数字的小数位精度"); 在模型空间中选择标注对象 (if (and (setq newTolerance (getint "\n输入标注新的公差精度[0～8]: "))           (<= 0 newTolerance 8)) (progn   (princ "标注精度已经设定为: ")   (princ newTolerance)   (princ "位小数")   (if (and (princ "\n选择要修改精度的尺寸标注: ")            (setq ss (ssget '((0 . "DIMENSION"))))) (progn    (setq i 0)    (repeat (sslength ss)     (setq dimObj (ssname ss i) i (1+ i))     (setq dimObj (vlax-ename->vla-object dimObj))     (vla-put-PrimaryUnitsPrecision dimObj newTolerance); 确定公差精度的改变     (vla-put-SuppressTrailingZeros dimObj :vlax-false);;; 读取并显示替代标注公差精度     (setq newTolerance (vla-get-PrimaryUnitsPrecision dimObj))    )   )) )   (princ "标注精度未改变") ) (princ) )

danxingpen

(&gt;= 8&#160; newTolerance 0)