检测尺寸是否符合标注比例
正准备写一个这样的程序：检测图纸中所有的标注，显示的尺寸与实测尺寸不一样的话或者不符合标注样式的比例的话，特别标注出来（比如白色显示），并提示共有几个。正在研究中，欢迎大家赐教啊。 本帖最后由 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:51 编辑
此小程序即可满足要求，明经以前就有高人写过。
分析：
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")
回复 小妹丁 的帖子
大虾，明天我根据你的去摸索摸索啊，谢谢哈，明天见 回复 小妹丁 的帖子
用了用，大虾的程序很好用。
不过就是 (SETQ ss (SSGET "X" '((0 . "DIMENSION"))))
改成(SETQ ss (SSGET "W" (getpoint) (getpoint)'((0 . "DIMENSION"))))
我框选的时候没有可视效果，就像CAD里一般的选择框一样，可以看见边界。
页:
[1]