357785513 发表于 2011-1-6 13:26:36

批量按图层存文件,

各位高人,我有一个CAD文件,这个CAD文件里有各类图层,我想把这些图层按层存成单个的图,比如我这张图里有图层A.D.C.D.E.F.G.H.I.J.等图层,我想有A的图层存成一个文件,B的文件存成一个文件,C的文件存成一个文件,D的文件存成一个文件,E的文件存成一个文件,F的文件存成一个文件,G的文件存成一个文件,H的文件存成一个文件,I的文件存成一个文件,J的文件存成一个文件,各位看看有没有什么办法不,

ZZXXQQ 发表于 2022-12-13 00:14:19

论坛有取得目录下文件名的帖子。
在空白图中运行程序
程序简单加个循环，逐个插入文件，运行上面的代码，执行完毕后清空图形，在插入下个文件……

shiyj 发表于 2022-12-11 21:40:09

本帖最后由 shiyj 于 2022-12-11 21:41 编辑

ZZXXQQ 发表于 2011-1-6 14:42

老师好，这个帖子好久了，估计你都忘了。如果批处理文件夹下多个文件，需要如何修改？导出成文件名+层名

ZZXXQQ 发表于 2011-1-6 14:42:52

本帖最后由 ZZXXQQ 于 2011-1-6 14:44 编辑


;按层存文件 明经 ZZXXQQ 2011.1.6
(defun c:tt ()
(setvar "CMDECHO" 0)
(setq lnm nil)
(while (setq lnm (tblnext "LAYER" (not lnm)))
(if (setq ss (ssget "X" (list (cons 8 (cdr(assoc 2 lnm))))))
   (command ".WBLOCK" (strcat "NewLayer=" (cdr(assoc 2 lnm))) "" "0,0" ss "")
)
)
(setvar "CMDECHO" 1)
(princ)
)

xiaxiang 发表于 2011-1-6 15:27:12

学习了

crazylsp 发表于 2011-1-6 20:27:54

学习了

357785513 发表于 2011-1-7 12:51:33

ZZXXQQ 神人，佩服佩服

display18 发表于 2011-1-7 12:59:38

学习了，支持

236004 发表于 2011-1-7 13:08:00

111111111111111111

lichunyu 发表于 2011-4-15 21:06:01

文件存到哪里去了啊

zark 发表于 2011-4-15 23:56:19

果然是神人

lichunyu 发表于 2011-4-24 14:05:00

文件不知道存到哪了
页: [1] 2 3 4 5
查看完整版本: 批量按图层存文件,