[求助]lisp怎样将所有图层名写进一个txt文本

zqlitie · 发表于 2009-8-24 21:44:00

[求助]lisp怎样将所有图层名写进一个txt文本，哪位朋友帮下忙，谢谢了！

3527188 · 发表于 2009-8-24 22:22:00

多看看书吧

liminnet · 发表于 2009-8-24 22:53:00

提示: 作者被禁止或删除内容自动屏蔽

cauin · 发表于 2009-8-24 23:08:00

liminnet发表于2009-8-24 22:53:00文章才七啊多看下书，你看我的文章篇数就知道我多用功了

。。。都笑了

文章多 /= 水平高

文章少 /= 水平低

liminnet · 发表于 2009-8-24 23:38:00

提示: 作者被禁止或删除内容自动屏蔽

cauin · 发表于 2009-8-24 23:42:00

(defun c:aaa (/ file lay)
(setq file (open "c:\\111111111.txt" "w"))
(while (setq lay (tblnext "LAYER" (not lay)))
(write-line (cdr (assoc 2 lay)) file)
)
(close file)
(princ)
)

cauin · 发表于 2009-8-24 23:47:00

liminnet发表于2009-8-24 23:38:00我是高手来的哟

我相信是发帖子高手，水平不晓得

淮上 · 发表于 2009-8-25 16:44:00

有这样的人！！。。

AMTONNY · 发表于 2009-8-25 18:18:00

cauin发表于2009-8-24 23:47:00我相信是发帖子高手，水平不晓得

支持哦

xhq1954425 · 发表于 2009-8-25 18:41:00

文如其人，帖如其人……

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

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2009-8-24 22:53:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2009-8-24 23:38:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

[求助]lisp怎样将所有图层名写进一个txt文本

本帖子中包含更多资源