能否提取图纸所有图层名及个数？

redapple · 发表于 2003-9-17 09:19:11

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

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

×

如题，还有图块！谢谢！

snsj · 发表于 2003-9-17 10:07:11

最初由 redapple 发布
[B]如题，还有图块！谢谢！ [/B]

看下这个帖子：
http://www.xdcad.net/forum/showt ... d=276012#post276012

lsjjm · 发表于 2003-9-18 06:49:44

Try this:
(defun c:test ()
(vl-load-com)
(setq adoc (vla-get-activedocument (vlax-get-Acad-Object)))
(setq layers (vla-get-layers adoc))
(vlax-for item layers
(setq layerl (cons (vla-get-Name item) layerl))
)
(if layerl (reverse layerl))
)
(vla-get-count layers)

redapple · 发表于 2003-9-19 10:46:56

请问vla-get-layers函数哪里有？在帮助里面好象查到。

lsjjm · 发表于 2003-9-19 11:24:54

你还可以用google查.

redapple · 发表于 2003-9-19 15:19:40

帮助里面我没有查到，google没有详细的函数说明.帮助里面有没？哪里有详细的介绍？急！谢！

snsj · 发表于 2003-9-19 15:31:49

查看VBA和ACTIVX函数，上面我的链接里NEWER给出了纯AUTOLISP遍历图块的方法

redapple · 发表于 2003-9-19 16:21:20

我试了，怎么还是找不到呢？再详细些好不好？3x!

snsj · 发表于 2003-9-19 17:09:07

看本版置顶帖[下载]：AutoLISP/VLISP函数说明及用户手册(中文)，下载就可以查到了

ll_j · 发表于 2003-9-19 17:36:39

提取层的代码：

(defun layerlist(/ laylst tmp)
(setq laylst (list (cdr (assoc 2 (tblnext "layer" t)))))
(while (setq tmp(tblnext "layer"))
(setq laylst(cons (cdr (assoc 2 tmp)) laylst))
)
(reverse laylst)
)

将“layer”改为“block”可以查找图中定义的块，不是插入的块，插入的块是“insert”实体，可以使用“(ssget "X" '((0 . "INSERT") (2 . "块名")))”查找。

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

能否提取图纸所有图层名及个数？

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

相关帖子

Re: 能否提取图纸所有图层名及个数？

浏览过的版块