社区 › AutoLISP/Visual LISP 编程技术 › 尺寸检查之二

自贡黄明儒 发表于 2013-6-26 16:44:58

尺寸检查之二

本帖最后由 自贡黄明儒 于 2013-6-29 09:44 编辑

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

paulpipi 发表于 2018-8-26 08:23:27

非常好的程序，谢谢！

oistre 发表于 2018-8-26 03:07:09

大神牛牛牛牛！

ly8zx2109 发表于 2013-6-26 16:49:27

flytoday 发表于 2013-6-26 17:24:18

最好能选择范围

flytoday 发表于 2013-6-26 17:50:33

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

200853006 发表于 2013-6-26 18:19:13

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

USER2128 发表于 2013-6-27 08:06:20

期待黄大侠的待续研究

ymcui 发表于 2013-6-27 08:41:33

期待黄大侠的待续研究

完整武器 发表于 2013-6-28 22:03:45

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

自贡黄明儒 发表于 2013-6-28 22:26:11

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

xiaxiang 发表于 2013-6-29 09:41:16

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

查看完整版本: 尺寸检查之二