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

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

[求助]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:00static/image/common/back.gif文章才七啊多看下书，你看我的文章篇数就知道我多用功了

<p></p><p>。。。都笑了</p><p>文章多 /= 水平高</p><p>文章少 /= 水平低</p>

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

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

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

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

liminnet发表于2009-8-24 23:38:00static/image/common/back.gif我是高手来的哟

<p>我相信是发帖子高手，水平不晓得</p>

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

有这样的人！！。。

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

cauin发表于2009-8-24 23:47:00static/image/common/back.gif我相信是发帖子高手，水平不晓得

<p>支持哦</p>

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

文如其人，帖如其人……
页: [1] 2
查看完整版本: [求助]lisp怎样将所有图层名写进一个txt文本