不大会写这种b类型的lisp
胡弄了一个小时，才算搞定
程序如下
用的时候，dwgs.txt里面应该是类似k:seen2.dwg的字样
版主说的问题主要出现在information这一段，其他的块，层，文字式样都
是没有问题的。
原问题的出错的地方在于其information段与layerprint等段不一样
它采用了(setq linesel (ssget “X” ‘((0 . “LINE”))))这种语句
而其他的子程序采用的是 (setq layersel (la-get-layers doc))
(lax-for layerObj layersel）
这样子的L语句，因此information段出现了在当前图形内进行找线
找文字的做法。
现在我主要是修改成为(setq mSpace (la-get-ModelSpace doc))
(LAX-FOR entry mSpace）
的L写法，这样子就不会导致文件空间的混乱
试了一下，大概是没有问题的。
不知道在楼主那里如何
文章关键字 ‘图层样式’
一个导出图形的线，文本，图块，图层，文字样式的程序问题
2010年09月3日，星期五关于切换图层与标注样式
2010年03月18日，星期四如图，给一个命令，点选图中的尺寸标注，就可以把尺寸标注所在的图层置为当前图层，并且尺寸标注所用的标注样式也置为当前标注样式。
哪位大侠帮忙写个LSP？
我一开始只是想切换标注样式，但是忽然发觉图层并且标注样式一起切换会更方便，
先谢谢啦，帮帮我
按：已由柔柔帮助解决问题
