[求助]：如何批量修改尺寸值同时加（或减）一个数值

yanbo

请高手帮忙，如何批量修改尺寸，使尺寸值同时加（或减）一个数值

carrot1983

2. 
   
3. (defun c:dimdd (/ measure plus real result ss text)
   
4.   (vl-load-com)
   
5.   (vla-endundomark
   
6.     (vla-get-activedocument
   
7.       (vlax-get-acad-object)
   
8.     )
   
9.   )
   
10.   (vla-startundomark
    
11.     (vla-get-activedocument
    
12.       (vlax-get-acad-object)
    
13.     )
    
14.   )
    
15.   (princ "\n★批量增减标注尺寸值 by carrot1983 [12/4/09]")
    
16.   (setq plus (getreal "\n输入增值<100.>: "))
    
17.   (if (and (cond ((null plus) (setq plus 100.))
    
18.                  ((eq plus 0) nil)
    
19.                  (t)
    
20.            )
    
21.            (setq ss (ssget '((0 . "DIMENSION"))))
    
22.       )
    
23.     (foreach obj
    
24.                  (mapcar
    
25.                    'vlax-ename->vla-object
    
26.                    (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
    
27.                  )
    
28.       (if (and (setq text (vla-get-textoverride obj))
    
29.                (setq measure (vla-get-measurement obj))
    
30.                (/= text "")
    
31.                (numberp (read text))
    
32.           )
    
33.         (setq real (read text))
    
34.         (setq real measure)
    
35.       )
    
36.       (and real
    
37.            (setq result (vl-princ-to-string (+ real plus)))
    
38.            (vla-put-textoverride obj result)
    
39.       )
    
40.     )
    
41.   )
    
42.   (vla-endundomark
    
43.     (vla-get-activedocument
    
44.       (vlax-get-acad-object)
    
45.     )
    
46.   )
    
47.   (princ)
    
48. )
    
49. (princ "\n本程序作者: carrot1983 转贴请注明出处、作者.")
    
50. (princ "\n本程序作命令: dimdd")
    

<br /> (defun c:dimdd (/ measure plus real result ss text)<br />   (vl-load-com)<br />   (vla-endundomark<br />     (vla-get-activedocument<br />       (vlax-get-acad-object)<br />     )<br />   )<br />   (vla-startundomark<br />     (vla-get-activedocument<br />       (vlax-get-acad-object)<br />     )<br />   )<br />   (princ "\n★批量增减标注尺寸值 by carrot1983 [12/4/09]")<br />   (setq plus (getreal "\n输入增值<100.>: "))<br />   (if (and (cond ((null plus) (setq plus 100.))<br />                  ((eq plus 0) nil)<br />                  (t)<br />            )<br />            (setq ss (ssget '((0 . "DIMENSION"))))<br />       )<br />     (foreach obj<br />                  (mapcar<br />                    'vlax-ename->vla-object<br />                    (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))<br />                  )<br />       (if (and (setq text (vla-get-textoverride obj))<br />                (setq measure (vla-get-measurement obj))<br />                (/= text "")<br />                (numberp (read text))<br />           )<br />         (setq real (read text))<br />         (setq real measure)<br />       )<br />       (and real<br />            (setq result (vl-princ-to-string (+ real plus)))<br />            (vla-put-textoverride obj result)<br />       )<br />     )<br />   )<br />   (vla-endundomark<br />     (vla-get-activedocument<br />       (vlax-get-acad-object)<br />     )<br />   )<br />   (princ)<br /> )<br /> (princ "\n本程序作者: carrot1983 转贴请注明出处、作者.")<br /> (princ "\n本程序作命令: dimdd")<br />

tanle2020

我想问下上面的精度是怎么控制的

yanbo

十分感谢carrot1983  我要好好学习

chenyizhen28

今天收H真不少啊。以前一直很少来。

xxf75412

ddddddddddddddd