[求助]：关于层的列表问题！

sjd · 发表于 2003-7-19 23:39:22

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

最近得到一很大的设备图纸【DWG】，里面有很多层【大概数百个】。
有没有专用工具，把所有层的列表都提取出来？
请教各位斑竹！

gp8117 · 发表于 2003-7-19 23:56:13

什么意思呀？图层列表是指什么呀？

XDSoft · 发表于 2003-7-20 00:45:03

最初由 sjd 发布
[B]最近得到一很大的设备图纸【DWG】，里面有很多层【大概数百个】。
有没有专用工具，把所有层的列表都提取出来？
请教各位斑竹！ [/B]

提取出来，你要做什么？保存到哪里？

lsjjm · 发表于 2003-7-20 14:05:19

(tablelist "LAYER")

sjd · 发表于 2003-7-23 00:14:32

我要提取所有的图层的名称，最好能列表！

前生 · 发表于 2003-7-23 10:08:29

layer就是啊

sjd · 发表于 2003-7-25 21:37:25

最初由 lsjjm 发布
[B](tablelist "LAYER") [/B]

好像不能用。

柔柔 · 发表于 2003-7-27 23:42:35

编个小程序就行：
(defun c:ln (/ elist name)
(setq elist (tblnext "LAYER" T))
(while (/= elist nil)
   (setq name (cdr (assoc 2 elist)))
   (princ name)
   (princ "\n")
   (setq elist (tblnext "LAYER"))
)
)
执行完后按F2 到文本窗口，一切都有啦。

sjd · 发表于 2003-8-21 15:42:11

一切OK！谢谢！我的问题解决了！

lsjjm · 发表于 2003-8-22 07:54:04

my lisp code:
(defun tablelist (s / d r)
(while
(setq d (tblnext s (null d)))
(setq r (cons (cdr (assoc 2 d)) r))
);while
);

lt_zzy · 发表于 2003-8-24 12:41:50

在命令行中输入这句话就可以看所以的图层名称。
(setq style_list (ai_table "layer" 2))

lsjjm · 发表于 2003-8-24 15:30:54

(ai_table "layer" 2) 不是更简单?

2s6j8 · 发表于 2003-8-28 11:30:32

11、12楼兄，R14中结果显示不了。见附图。

萧山 · 发表于 2003-9-4 11:28:34

就是呀你们提供的命令显示不了哦，怎么回事？

lsjjm · 发表于 2003-9-4 13:10:32

我手头没有R14, 不知BOUNS里有无这个ai_table函数. 或者使用tablelist 函数?

账号		自动登录	找回密码
密码			立即注册

[求助]：关于层的列表问题！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [求助]：关于层的列表问题！