iwx007 发表于 2010-12-17 21:07:09

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

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

iwx007 发表于 2010-12-19 01:38:46

本帖最后由 iwx007 于 2010-12-19 01:40 编辑

http://www.mjtd.com/Codes/ArticleShow.asp?ArticleID=985
;;BY LUCAS
(defun C:TT (/ SS N VOBJ)
(setq SS (ssget "X" '((0 . "DIMENSION")))
N0
)
(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 发表于 2010-12-19 01:45:40

本帖最后由 iwx007 于 2010-12-19 01:51 编辑

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

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

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

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

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

小妹丁 发表于 2010-12-19 22:29:06

(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 发表于 2010-12-20 23:56:54

回复 小妹丁 的帖子

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

iwx007 发表于 2010-12-23 22:54:43

回复 小妹丁 的帖子

用了用,大虾的程序很好用。
不过就是 (SETQ ss (SSGET "X" '((0 . "DIMENSION"))))
改成(SETQ ss (SSGET "W" (getpoint) (getpoint)'((0 . "DIMENSION"))))
我框选的时候没有可视效果,就像CAD里一般的选择框一样,可以看见边界。
页: [1]
查看完整版本: 检测尺寸是否符合标注比例