"rongyifei"大侠请进

zhaomc520

(defun c:test ()
  (vl-load-com)
  (setq cendoc (vla-get-ActiveDocument (vlax-get-acad-object))
 layers (vla-get-layers cendoc)
  )
  (vlax-for layer layers
    (if (not (wcmatch (vla-get-name layer) "*XK1E*"))
      (if (/= (vla-get-color layer) 9)
 (vla-put-color layer 9)
      )
    )
  )
)

您的这段程序太好了，很实用。

小弟还想请教您一个问题，如果我要反选的条件不止"*XK1E*"一个，还有“keyplan*”、“g-anno*”

我该怎么修改上面的程式呢？

麻烦您了

rongyifei

(defun c:test ()
  (vl-load-com)
  (setq cendoc (vla-get-ActiveDocument (vlax-get-acad-object))
 layers (vla-get-layers cendoc)
  )
  (vlax-for layer layers
    (if (not (wcmatch (vla-get-name layer) "*XK1E*,*keyplan*,*g-anno*"))
      (if (/= (vla-get-color layer) 9)
 (vla-put-color layer 9)
      )
    )
  )
)

试试上面这样!

zhaomc520

我刚刚试了一下，好像和第一次的程式一样，只能把*XK1E*过滤掉，不知道为什么？

再请您帮忙修改一下，非常感谢

rongyifei

按照上面的方法应该不会出错,你再仔细看一下你所提供的关键字是否完全正确!