此修改标精度的程序，无法框选修改，求帮忙看看，谢谢

努力活着

此修改标精度的程序，无法框选修改，求帮忙看看，谢谢，
(defun C:CHJ ()
(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-PrimaryUnitsPrecision dimObj newTolerance)  ; 确定公差精度的改变
   (vla-put-SuppressTrailingZeros dimObj :vlax-false)
;;; 读取并显示替代标注公差精度
  (setq newTolerance (vla-get-PrimaryUnitsPrecision dimObj))
  (princ "标注精度已经设定为: ")(princ newTolerance)(princ "位小数")

  (princ)
)

香远益清

10楼的方法最好，语句简洁，测试结果很好，实现速度快。赞一个

cabinsummer

entsel本身就只能单选。如果要框选，请用
(setq ss (ssget "x" '((-4 . "<OR")(0 . "LWPOLYLINE)(0 . "DIMENSION")(-4 . "OR>"))))
(setq n 0)
(setq newTolerance (getint "\n输入标注新的公差精度[0～8]: "));;;先设置后选择，不然每次都提示输入，那框选就没有意义了
(repeat (sslength ss)
(setq str_0 (ssname n ss))
(setq n (1+ n))
(setq dimObj (vlax-ename->vla-object dimObj))
;;;接你原来改精度的部分
)

努力活着

cabinsummer 发表于 2011-9-16 06:06
entsel本身就只能单选。如果要框选，请用
(setq ss (ssget "x" '((-4 . "vla-object dimObj))
;;;接你原来 ...

非常感谢，图像是你女儿吗，很可爱呀

wangjianp

raimo

最近正好在想有这样的工具就好了。。

198526

正好想写一个按颜色修改标注的程序，谢谢！

lz123456

cabinsummer版主把你写的那加上去怎么不行。

(defun C:DJD ()
(VL-LOAD-COM)
  (setq ss (ssget "x" '((-4 . "<OR")(0 . "LWPOLYLINE")(0 . "DIMENSION")(-4 . "OR>"))))
    (setq n 0)
(setq newTolerance (getint "\n输入标注新的公差精度[0～8]: "))   
   (repeat (sslength ss)
     (setq str_0 (ssname n ss))
     (setq n (1+ n))
     (setq dimObj (vlax-ename->vla-object dimObj))

     (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-PrimaryUnitsPrecision dimObj newTolerance)  ; 确定公差精度的改变
   (vla-put-SuppressTrailingZeros dimObj :vlax-false)

;;; 读取并显示替代标注公差精度
  (setq newTolerance (vla-get-PrimaryUnitsPrecision dimObj))
  (princ "标注精度已经设定为: ")(princ newTolerance)(princ "位小数")
  (princ)
)

tm20038175

好帖，留名。。。。

xyp1964

2. (defun c:tt ()
   
3.   (if (setq ss (ssget '((0 . "DIMENSION"))))
   
4.     (progn
   
5.       (setq nt (getint "\n输入标注新的公差精度[0～8]: ")
   
6.             n  0
   
7.       )
   
8.       (repeat (sslength ss)
   
9.         (setq s1 (ssname ss n)
   
10.               n         (1+ n)
    
11.               ob (vlax-ename->vla-object s1)
    
12.               nn (COND ((= nt 0) acDimPrecisionZero)
    
13.                        ((= nt 1) acDimPrecisionOne)
    
14.                        ((= nt 2) acDimPrecisionTwo)
    
15.                        ((= nt 3) acDimPrecisionThree)
    
16.                        ((= nt 4) acDimPrecisionFour)
    
17.                        ((= nt 5) acDimPrecisionFive)
    
18.                        ((= nt 6) acDimPrecisionSix)
    
19.                        ((= nt 7) acDimPrecisionSeven)
    
20.                        ((= nt 8) acDimPrecisionEight)
    
21.                        (t nil)
    
22.                  )
    
23.         )
    
24.         (if nn
    
25.           (progn (vla-put-PrimaryUnitsPrecision ob nn)
    
26.                  (vla-put-SuppressTrailingZeros ob :vlax-false)
    
27.           )
    
28.         )
    
29.       )
    
30.       (if (< nn 9)
    
31.         (progn (princ "标注精度已经设定为: ")
    
32.                (princ nt)
    
33.                (princ "位小数")
    
34.         )
    
35.       )
    
36.     )
    
37.   )
    
38.   (princ)
    
39. )

(defun c:tt ()<br />   (if (setq ss (ssget '((0 . "DIMENSION"))))<br />     (progn<br />       (setq nt (getint "\n输入标注新的公差精度[0～8]: ")<br />             n  0<br />       )<br />       (repeat (sslength ss)<br />         (setq s1 (ssname ss n)<br />               n         (1+ n)<br />               ob (vlax-ename->vla-object s1)<br />               nn (COND ((= nt 0) acDimPrecisionZero)<br />                        ((= nt 1) acDimPrecisionOne)<br />                        ((= nt 2) acDimPrecisionTwo)<br />                        ((= nt 3) acDimPrecisionThree)<br />                        ((= nt 4) acDimPrecisionFour)<br />                        ((= nt 5) acDimPrecisionFive)<br />                        ((= nt 6) acDimPrecisionSix)<br />                        ((= nt 7) acDimPrecisionSeven)<br />                        ((= nt 8) acDimPrecisionEight)<br />                        (t nil)<br />                  )<br />         )<br />         (if nn<br />           (progn (vla-put-PrimaryUnitsPrecision ob nn)<br />                  (vla-put-SuppressTrailingZeros ob :vlax-false)<br />           )<br />         )<br />       )<br />       (if (< nn 9)<br />         (progn (princ "标注精度已经设定为: ")<br />                (princ nt)<br />                (princ "位小数")<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

xyp1964

;;直接用command的方法

2. (defun c:tt ()
   
3.   (if (and (setq nt (getint "\n输入标注新的公差精度[0～8]: "))
   
4.            (setq ss (ssget '((0 . "DIMENSION"))))
   
5.       )
   
6.     (progn
   
7.       (setvar 'DIMDEC nt)
   
8.       (command "dim" "upd" ss "" "e")
   
9.     )
   
10.   )
    
11.   (princ)
    
12. )

(defun c:tt ()<br />   (if (and (setq nt (getint "\n输入标注新的公差精度[0～8]: "))<br />            (setq ss (ssget '((0 . "DIMENSION"))))<br />       )<br />     (progn<br />       (setvar 'DIMDEC nt)<br />       (command "dim" "upd" ss "" "e")<br />     )<br />   )<br />   (princ)<br /> )