能不能实现 标注尺寸 加减，请大侠给个思路？

lidaxiu

在画加工图时发现好多图形状是一样的，只是总尺寸不一样，想搞个 标注尺寸 加减，
能不能实现，请大侠给个思路？
是不是得先从尺寸标注中提取尺寸，然后进行，加减运算，再放回标注中？

lidaxiu

呵呵不好意思刚发贴，自己就找到思路找到答案 了

haoryh

如何做到的？能共享下不？

vlisp2012

就是啊，思路呢？

xyp1964

2. 
   
3. ;; 尺寸数值增减
   
4. ;; 伪源码需要e派工具箱(XCAD)的支持
   
5. (defun c:tt ()
   
6.   (CMDLA0)
   
7.   (setq NO1 (UREAL 1 "" "增减数值" NO1))
   
8.   (princ "\n选择尺寸标注: ")
   
9.   (setq ss (ssget '((0 . "DIMENSION")))i  -1)
   
10.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
11.     (xyp-SubUpd s1 1 (rtos (+ (xyp-dxf 42 s1) no1) 2 0))
    
12.   )
    
13.   (CMDLA1)
    
14. )
    

<br /> ;; 尺寸数值增减<br /> ;; 伪源码需要e派工具箱(XCAD)的支持<br /> (defun c:tt ()<br />   (CMDLA0)<br />   (setq NO1 (UREAL 1 "" "增减数值" NO1))<br />   (princ "\n选择尺寸标注: ")<br />   (setq ss (ssget '((0 . "DIMENSION")))i  -1)<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (xyp-SubUpd s1 1 (rtos (+ (xyp-dxf 42 s1) no1) 2 0))<br />   )<br />   (CMDLA1)<br /> )<br />