检测尺寸是否符合标注比例

iwx007

        正准备写一个这样的程序：检测图纸中所有的标注，显示的尺寸与实测尺寸不一样的话或者不符合标注样式的比例的话，特别标注出来（比如白色显示），并提示共有几个。
        正在研究中，欢迎大家赐教啊。

iwx007

http://www.mjtd.com/Codes/ArticleShow.asp?ArticleID=985
;;BY LUCAS
(defun C:TT (/ SS N VOBJ)
  (setq SS (ssget "X" '((0 . "DIMENSION")))
N  0
  )
  (repeat (sslength SS)
    (setq VOBJ (vlax-ename->vla-object (ssname SS N)))
    (if (and VOBJ
      (vlax-read-enabled-p VOBJ)
      (not (wcmatch (vla-get-textoverride VOBJ) "*<>*,"))
      (vlax-write-enabled-p VOBJ)
)
      (vla-put-textcolor VOBJ 1)
    )
    (setq N (1+ N))
  )
  (princ)
)

iwx007

此小程序即可满足要求，明经以前就有高人写过。

分析：
1.红色部分，即  "*<>*,"  ，这里的 , 很关键，具体作用大家用用就知道了。所以针对这样的小符号，在AutoCAD帮助里并没有看到，有高人指点指点吗。或者其他的符号，比如 “”，‘。

2.目前此程序只能将尺寸文字改为 红色 以提醒，我本想用 alert 函数提示一下数目，但此函数需要字符串参数，（alert N），N为不合要求的标注数目，不知道alert该怎么用才能将我的数目以警告显示，或有其他显示方法。

3.还可以修改为，将有问题的标注用 zoom来缩放，当然我目前只能做到zoom一个，再次用命令TT，再缩放一个。不过这样的话，如果有个尺寸我本身就不需要和实际尺寸一样的话，应该就会一直缩放这个标注，纠结。

4.不知道还有其他人性化、合适的提醒方式没有呢？

小妹丁

(DEFUN C:DSEE (/ SS I ENDATA tt chu num)
  (command "_.undo" "BE")
  (SETQ ss (SSGET "X" '((0 . "DIMENSION"))))
  (setq i 0)
  (setq num 0)
  (REPEAT (SSLENGTH ss)
    (SETQ ENDATA (ENTGET (SSNAME ss I)))
    (IF        (/= (CDR (ASSOC 1 ENDATA)) "")
      (PROGN
        (SETQ ENdata
               (SUBST
                 (CONS 1 (STRCAT (CDR (ASSOC 1 ENDATA)) "(" "<>" ")"))
                 (ASSOC 1 ENDATA)
                 ENdata
               )
        )
        (ENTMOD ENdata)
        (setq num (1+ num))
      )
    )
    (SETQ I (1+ I))
  )
  (COMMAND "_.UNDO" "E")
  (setq chu (rtos num 2 0))
  (setq tt (strcat "共修改尺寸" chu  "处"))
  (alert tt)
  (princ tt)
(princ)
)

(princ "dsee小妹丁2005.09")

iwx007

回复 小妹丁 的帖子

大虾，明天我根据你的去摸索摸索啊，谢谢哈，明天见

iwx007

回复 小妹丁 的帖子

用了用，大虾的程序很好用。
不过就是 (SETQ ss (SSGET "X" '((0 . "DIMENSION"))))
改成  (SETQ ss (SSGET "W" (getpoint) (getpoint)  '((0 . "DIMENSION"))))
我框选的时候没有可视效果，就像CAD里一般的选择框一样，可以看见边界。