CAD家园

不大会写这种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写法，这样子就不会导致文件空间的混乱
试了一下，大概是没有问题的。
不知道在楼主那里如何