尺寸检查之二

/db_自贡黄明儒_

;;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 />   )

ll_j

(ssget "X" '((0 . "DIMENSION") (1 . "*[~<>]*")))           ;选择包括非自动标注的所有

HLCAD

支持黄大侠的源程序！期待黄大侠继续创作！

/db_自贡黄明儒_

ll_j 发表于 2013-6-26 17:15
(ssget "X" '((0 . "DIMENSION") (1 . "*[~]*")))           ;选择包括非自动标注的所有

元老就是厉害!!

haoryh

这个还蛮实用的

sooma@126.com

这个很实用，有的人画图尺寸都是手改，别人使用时会出现错误。

FT272296734

怎么在文字上圆形啊

/db_自贡黄明儒_

FT272296734 发表于 2015-1-16 14:52
怎么在文字上圆形啊

http://bbs.xdcad.net/thread-676666-1-1.html
这是我是求文字周围的方框，看这些方框是否相交

FT272296734

答非所问，等待高手/

yiyu_ye

很实用啊   谢谢··