尺寸检查之二

自贡黄明儒

;;4、手写尺寸变红色,并亮显

1. ;;4、手写尺寸变红色,并亮显______________________________________
   
2.   (defun DimensionRedColor (/ ss)
   
3.     (setq ss (ssget "X"
   
4.                     '((0 . "*DIMENSION")
   
5.                       (-4 . "<AND")
   
6.                       (-4 . "<NOT")
   
7.                       (1 . "")
   
8.                       (-4 . "NOT>")
   
9.                       (-4 . "<NOT")
   
10.                       (1 . "*<>*")
    
11.                       (-4 . "NOT>")
    
12.                       (-4 . "AND>")
    
13.                      )
    
14.              )
    
15.     )
    
16.     (if        ss
    
17.       (vlax-for        x
    
18.                   (vla-get-ActiveSelectionSet
    
19.                     (vla-get-ActiveDocument (vlax-get-acad-object))
    
20.                   )
    
21.         (vla-put-textcolor x 1)
    
22.         (vla-Highlight x 3)
    
23.       )
    
24.     )
    
25.   )

;;4、手写尺寸变红色,并亮显______________________________________<br />   (defun DimensionRedColor (/ ss)<br />     (setq ss (ssget "X"<br />                     '((0 . "*DIMENSION")<br />                       (-4 . "<AND")<br />                       (-4 . "<NOT")<br />                       (1 . "")<br />                       (-4 . "NOT>")<br />                       (-4 . "<NOT")<br />                       (1 . "*<>*")<br />                       (-4 . "NOT>")<br />                       (-4 . "AND>")<br />                      )<br />              )<br />     )<br />     (if        ss<br />       (vlax-for        x<br />                   (vla-get-ActiveSelectionSet<br />                     (vla-get-ActiveDocument (vlax-get-acad-object))<br />                   )<br />         (vla-put-textcolor x 1)<br />         (vla-Highlight x 3)<br />       )<br />     )<br />   )

paulpipi

非常好的程序，谢谢！

oistre

大神牛牛牛牛！

ly8zx2109

flytoday

最好能选择范围

flytoday

有时打开一个文件包含量几十张图纸~~~~~~~~~~~~~~~~~``

200853006

顶起  尺寸检查一可解决了好大麻烦

USER2128

期待黄大侠的待续研究

ymcui

期待黄大侠的待续研究

完整武器

不能下载，不知道咋回事！文件无法读取

自贡黄明儒

换个浏览器，你多半用的360

xiaxiang

附件似乎无法下载，请老黄再看一下？