[讨论]：图层问题！！

wwwjyc

比如说，一个文件有20个图层，要加一个相同前缀或者和后缀，我只能一个一个加，有什么好的方法可以一下子直接加上去吗？
谢谢指教！*-*4

wzmfx

我制作了一个VBA程序，在2002版上通过，试试。

wwwjyc

多谢，我下来试试

怎么用？2004下可以吗？

wzmfx

应该可以，VBA语言应该是通用的吧。
1.工具---宏----加载工程---选中我的那个文件cmjz.dvb
2.ALT+F8，在出现的那个对话中按“运行”
3.看命令行操作就行了。
由于很长时间没用VBA了，不是很熟悉，你自己可以想法把后缀改为前缀。
加载VBA程序也可以更简单一些，具体怎么做我想不起来了，请教哪位高手教我。

lsjjm

最初由 wwwjyc 发布
[B]比如说，一个文件有20个图层，要加一个相同前缀或者和后缀，我只能一个一个加，有什么好的方法可以一下子直接加上去吗？
谢谢指教！*-*4 [/B]

[php]
(defun C:test ()
  (vl-load-com)
  (setq pre (getstring "\nEnter Layer Prefix : "))
  (setq doc (vla-get-activedocument
            (vlax-get-acad-object))
     layers (vla-get-layers doc))
  (vlax-for lay layers
    (setq lname (vla-get-name lay))
    (if (not (member lname '("0" "Defpoints")))
      (vla-put-Name lay (strcat pre lname))
    )
  )
)
[/php]

taiyuegm

autocad2000能不能用？
如果可以我也将下载下来。

wzmfx

Autocad2000以上版本均可用。