[求助]：如何取得当前图层列表？

nore · 发表于 2004-12-24 19:03:27

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

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

×

如题

0451doctor · 发表于 2004-12-24 19:33:56

(LAYOUTLIST)

nore · 发表于 2004-12-24 19:58:40

最初由 0451doctor 发布
[B](LAYOUTLIST) [/B]

你这是提取布局名称表啊

qjcpj · 发表于 2004-12-24 20:44:22

;;;取得当前图层列表
(defun GetLayerList (/ snl sll)
(setq snl '()
sll (tblnext "layer" t)
)
(while (setq snl (cons (cdr (assoc 2 sll)) snl)
sll (tblnext "layer" nil)
)
)
(eval 'snl)
)

自由的鱼 · 发表于 2004-12-24 22:29:32

VBA方法：

Sub tt()
Dim i As Integer
For i = 0 To ThisDrawing.Layers.Count - 1
Debug.Print ThisDrawing.Layers.Item(i).Name
Next

End Sub

winabcd · 发表于 2004-12-27 08:16:46

这是我找到的更通用的方法

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

加载后运行:
(tablelist "layer")

这是求图层，线形，快。。。。。的通用办法。

nore · 发表于 2004-12-27 09:44:31

谢谢楼上各位，问题搞定了

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

[求助] [求助]：如何取得当前图层列表？

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

相关帖子

浏览过的版块