[求助]：雷锋请进来！

游手好闲

这是个论坛发过的楼板钢筋自动编号程序，太TM难懂了，只有不耻下问你了。这是最前面的一小段：
;;;----------------------------------------------------------------------------------------------
;;;          楼板钢筋自动编号           作者 ：张越     时间：1999年12月
;;;----------------------------------------------------------------------------------------------
(defun dxf (code elist)
  (cdr (assoc code elist))
)
;-----------生成钢筋列表文件------------
(defun gjb (/ fn n gjt gjta gjtb gjt1 gjt2 ln gjl m)
  (defun txt (gjs n)
    (dxf 1 (entget (ssname gjs n)))     ＆＆＆ dxf 是什么意思？
  )
  (setq fn (open "gj.txt" "w"))
  (close fn)
  (setq fn (open "gj.txt" "a"))
  (setq gs (ssget '((0 . "TEXT"))))           ＆＆＆ ssget这么用是什么意义？
  (setq n 0)
  (setq m (sslength gs))
  (setq gjt (txt gs n))                    ＆＆＆ 刚刚定义的函数怎么用的？
  (while (/= n m)
问题可能有些弱智，你得有点雷锋精神，解答详细点！

ll_j

我来试着回答：

2. 
   
3. (defun dxf (code elist)       ;定义函数，取得实体elist组码code对应的值
   
4.   (cdr (assoc code elist))
   
5. )
   
6. ;-----------生成钢筋列表文件------------
   
7. (defun gjb (/ fn n gjt gjta gjtb gjt1 gjt2 ln gjl m)
   
8.   (defun txt (gjs n);嵌套定义，取得选择集gjs中第n+1个实体（文本）文字值
   
9.     (dxf 1 (entget (ssname gjs n)))
   
10.   )
    
11. ;;以下函数开始
    
12.   (setq fn (open "gj.txt" "w"));以覆盖方式打开文件
    
13.   (close fn) ;关闭文件，这样使用是有文件则清除文件内容，无文件则建立文件。
    
14.   (setq fn (open "gj.txt" "a"));以附加方式打开文件。
    
15.   (setq gs (ssget '((0 . "TEXT")))) ;拾取文本选择集
    
16.   (setq n 0)     ;序列
    
17.   (setq m (sslength gs))     ;选择集长度
    
18.   (setq gjt (txt gs n))  ;只要在运行此句之前，函数txt已经定义，就可以使用
    
19.   (while (/= n m)
    
20.      ...
    

<br /> (defun dxf (code elist)       ;定义函数，取得实体elist组码code对应的值<br />   (cdr (assoc code elist))<br /> )<br /> ;-----------生成钢筋列表文件------------<br /> (defun gjb (/ fn n gjt gjta gjtb gjt1 gjt2 ln gjl m)<br />   (defun txt (gjs n);嵌套定义，取得选择集gjs中第n+1个实体（文本）文字值<br />     (dxf 1 (entget (ssname gjs n))) <br />   )<br /> ;;以下函数开始<br />   (setq fn (open "gj.txt" "w"));以覆盖方式打开文件<br />   (close fn) ;关闭文件，这样使用是有文件则清除文件内容，无文件则建立文件。<br />   (setq fn (open "gj.txt" "a"));以附加方式打开文件。<br />   (setq gs (ssget '((0 . "TEXT")))) ;拾取文本选择集<br />   (setq n 0)     ;序列<br />   (setq m (sslength gs))     ;选择集长度<br />   (setq gjt (txt gs n))  ;只要在运行此句之前，函数txt已经定义，就可以使用<br />   (while (/= n m)<br />      ...<br />

游手好闲

多谢ll_j 兄：
还有一事不明。
(setq gjt (txt gs n))  这样用返回值是什么？

ll_j

最初由 游手好闲 发布
多谢ll_j 兄：
还有一事不明。
(setq gjt (txt gs n))  这样用返回值是什么？

返回选择集gn中第n+1个实体（文本）的文字值。

cy956

ll兄诲人不倦啊，给你加分不为问题的难度，
为你的精神。:)

游手好闲

最初由 cy956 发布
[B]ll兄诲人不倦啊，给你加分不为问题的难度，
为你的精神。:) [/B]

你的意思是不是我的问题很愚蠢？？？
赶紧给我的问题也加一分，要不我小心扁你！

cy956

呵呵，威胁？

你提的问题如何我不知道，
可你是青铜长老啊。再说
我给ll加分你也不忿？
论坛里面的难题有人解答，
那是精华贴，加分应该的；
论坛里的普通问题能及时
解答，加分是带鼓励的。
ll兄是高手水平是没得说的，
他能静下心来解答一些问题，
加点分我想不至于你就舞大棒了吧？

非梧桐

哈哈，菜菜，人家就说2句你竟然说了一堆，有空找我陪你练嘴。小游是说着玩的——菜头也是个顶真的人哦~

疯雪飘凌

WC, 我一看见标题是想也没想就进来了,这年头,我不雷锋谁雷锋~~进来后发觉不知所以然,想回头,发觉有人打架,这就用得着我雷锋了吧~~~游,你看人家ll那老实巴交的样儿就想欺负人家,cy,你也不对啦,人家的问题虽然是有点儿那啥,你也不该说出来啊!游兄啊,你还有点儿不对啦,这样的人民内部矛盾就不该闹到论坛来嘛,大家私下发个短消息讨论讨论不就完了,让外人看见,还以为我们论坛在搞批斗呢,传出去会影响国际名声的嘛,让友邦人士看见了又该说我们中国人不团结了~还有cy啊,人家游兄的意思分明是针对你的话里有话,你怎么扯到人家ll身上去了,跟人家完全没有关系嘛,人家游兄也没有说不该给ll加分,你的话好像是说人家嫉妒一样,可人家完全没有那个意思嘛~~非儿啊,你也真调皮,叫你不要管人家的闲事嘛,怎么说都记不住!

非梧桐

整个一多嘴婆婆。。。。

黄卫文

你们这些人呀，不要打击人家“好闲”的学习热情，对一个初学者来说能做到不耻下问确实不错，问问题也是要有勇气的：）虽说好闲同志是青铜长老那也不代表他什么方面都高人一等呀，人嘛各有所长，也有其短！帖中说雷锋请进是指一个人他的签名是叫“当代活雷锋”也比较乐于助人，所以好闲才请他进来帮助。再说CY956，你给别人加分就加分也不要说提问的人问题难与易否！这样容易挫伤人家的积极性呀。呵呵我也胡说了一通。

cy956

游手好闲
其实也是开开玩笑，勿怪。你只要熟悉各个函数的意义就
看得明白了。

非梧桐
飞儿mm，最近对老哥说话越来越没礼貌了。:)
练嘴我不敢，001时xd＋nm还斗不过你呢。

游手好闲

我的确是说着玩的，cy956兄这么热情地给ll_j 兄加分，我当然高兴了。
这以后我再问个问题，大家还不争先恐后的回答，没准还会有人发悄悄话：“游兄，求你了，你问个问题吧！我得拿点积分回家过年。”
关于雷锋，老黄理解得很正确，还有一点就是如果我没搞错的话，这个程序就是他写的，所以我才问他，不过这儿哥们这个月是不是真学雷锋去了？

zhynt

哎呀！不好意思，由于我水平有限，编程是未加说明，引得游兄大发感慨，在这里我向游兄说一万声“抱歉”希望以后多提宝贵意见。

游手好闲

zhynt兄:我看了雷锋日记上面写对同志是春天
“对待同志要象春天般的温暖，

对待工作要象夏天一样火热，

对待个人主义要象秋风扫落叶一样，

对待敌人要象严冬一样残酷无情。”