求助帮忙分析修改标注文字的LISP程序漏洞

qjfwade

由于工程加工精度的要求要改变，本人有几百张横料加工图要做以下修改，把标注为
107的改为106
38的改为39
40的改为39.5
50的改为49.5
48的改为47.5
58的改为57
由于修改量太大，图纸太多，这么多尺寸改起来也容易漏。故做了个程序。
DEFUN c:md()
  (vl-load-com)
 
(setq MODDIM (ssget "x" '((0 . "dimension"))))        

(setq count 0)
(setq qty (sslength MODDIM))
  (repeat qty
  (setq ename (ssname MODDIM count))
  (setq objname (vlax-ename->vla-object ename))
    (setq txttest (vla-get-TextOverride objname))
    (setq meatest (vla-get-Measurement objname))
   (if (= meatest 107.0)
    (vla-put-textoverride objname 106)
     )
    (if (= txttest "107")
     (vla-put-textoverride objname 106)
      )
    (if (= meatest 38.0)
    (vla-put-textoverride objname 39)
     )
    (if (= txttest "38")
     (vla-put-textoverride objname 39)
      )
    (if (= meatest 40.0)
    (vla-put-textoverride objname 39.5)
     )
    (if (= txttest "40")
     (vla-put-textoverride objname 39.5)
      )
    (if (= meatest 50.0)
    (vla-put-textoverride objname 49.5)
     )
    (if (= txttest "50")
     (vla-put-textoverride objname 49.5)
      )
    (if (= meatest 48.0)
    (vla-put-textoverride objname 47.5)
     )
    (if (= txttest "48")
     (vla-put-textoverride objname 47.5)
      )
    (if (= meatest 58.0)
    (vla-put-textoverride objname 57)
     )
    (if (= txttest "58")
     (vla-put-textoverride objname 57)
      )
   (setq count (+ count 1))

    )

) 
但此程序在我的加工图纸中不能正确运行。出现有的尺寸改了，有的尺寸就是改不了。不知为什么，小弟特来此找高手求救。望快快解答，不胜感激。附加工图和程序。大家帮我。

龙龙仔

3. ;;批量处理就交给你做
4. (defun C:MD (/ COUNT LST MEATEST MODDIM OBJ TXTTEST WW)
5.   (vl-load-com)
6.   (if (setq MODDIM (ssget "x" '((0 . "dimension"))))
7.     (progn
8.       (setq COUNT 0)
9.       (setq LST '(("107" . 106)
10.     ("38" . 39)
11.     ("40" . 39.5)
12.     ("50" . 49.5)
13.     ("48" . 47.5)
14.     ("58" . 57)
15.    )
16.       )
17.       (repeat (sslength MODDIM)
18. (setq OBJ (vlax-ename->vla-object (ssname MODDIM COUNT)))
19. (setq TXTTEST (vla-get-textoverride OBJ))
20. (setq MEATEST (rtos (vla-get-measurement OBJ) 2 0))
21. (if (or (setq WW (assoc MEATEST LST))
22.   (setq WW (assoc TXTTEST LST))
23.      )
24.    (vla-put-textoverride OBJ (cdr WW))
25. )
26. (setq COUNT (+ COUNT 1))
27.       )
28.     )
29.   )
30.   (princ)
31. )

;;批量处理就交给你做 (defun C:MD (/ COUNT LST MEATEST MODDIM OBJ TXTTEST WW)   (vl-load-com)   (if (setq MODDIM (ssget "x" '((0 . "dimension"))))     (progn       (setq COUNT 0)       (setq LST '(("107" . 106)     ("38" . 39)     ("40" . 39.5)     ("50" . 49.5)     ("48" . 47.5)     ("58" . 57)    )       )       (repeat (sslength MODDIM) (setq OBJ (vlax-ename->vla-object (ssname MODDIM COUNT))) (setq TXTTEST (vla-get-textoverride OBJ)) (setq MEATEST (rtos (vla-get-measurement OBJ) 2 0)) (if (or (setq WW (assoc MEATEST LST))   (setq WW (assoc TXTTEST LST))      )    (vla-put-textoverride OBJ (cdr WW)) ) (setq COUNT (+ COUNT 1))       )     )   )   (princ) )

qjfwade

老师，太感谢你了，我不知道怎么表达我的谢谢，我本来是没有想到有这么快的。我太感谢论坛了，我决定捐款支持论坛，因为我感到论坛的速度有点太慢了。我的程序写的太小儿科了，向老师学习。

oohen

龙龙仔 发表于 2006-5-10 17:05

大哥能把标注文字直接改成EQ吗？EQ是平分的意思我们专业经常用