柯老弟的例子程序：自动寻找图形中指定矩形区域中的文字，依次写入指定的文本文件中

xqyhome

( DEFUN C:TXT (/ SS ENMING ED I LEN ) ;
(setq ss (ssget "W" '(0 0) '(180 287))) ;创建包含在窗口中的对象的选择集
;选中在对角坐标(0 0)和(180 287)的矩形内的所有图形元素（图元）
( SETQ LEN (SSLENGTH SS)) ;选中的图元个数
( SETQ I 0) ;将数值 0 赋给变量 I
(setq FILE (open "TXT.TXT" "w")) ;创建并打开TXT.txt文件，备写；
( WHILE (< I LEN) ;变量 I循环 LEN 次
( SETQ ENMING (SSNAME SS I)) ;返回选择集中由序号I指定的那个对象（图元）的图元名,赋给ENMING
( SETQ ED (ENTGET ENMING)) ;获得对象（图元）的定义数据赋给ED
;-----------------------------------------------
( IF (EQUAL (CONS 0 "TEXT") (ASSOC 0 ED)) ;图元名称的对象数据库组码是0
(PROGN
(SETQ wz (cdr (ASSOC 1 ED)));文字内容的对象数据库组码是1
(write-line wz FILE) ;将找到的单行文字wz写入TXT.txt文件
)
)
;--------------------------------------------
( IF (EQUAL (CONS 0 "MTEXT") (ASSOC 0 ED))
(PROGN
(SETQ wz (cdr (ASSOC 1 ED)))
(write-line wz FILE);将找到的多行文字wz写入TXT.txt文件
)
)
;--------------------------------------------
( SETQ I (1+ I)) ;变量 I每循环 一 次加上1
)
(close FILE) ;关闭打开的文本文件
(gc) ;清除内存
)
;=====================================================
;SSGET根据选定对象创建选择集
;GETREAL暂停以让用户输入一个实数并返回该实数
;SSLENGTH求出一个选择集中的对象（图元）数目，并将其作为一个整数返回
;SSNAME返回选择集中由序号指定的那个对象（图元）的图元名
;ENTGET获得对象（图元）的定义数据
;EQUAL确定两个表达式的值是否相等
ROGN顺序地对每一个表达式进行求值，并返回最后那个表达式的值
;CONS向表的头部添加一个元素，或构造一个点对
;ENTMOD修改对象（图元）的定义数据
;ASSOC从关联表ED中搜索一个元素0，如果找到则返回该关联表条目ED
;SUBST在表中搜索某旧项，并将表中出现的每一个旧项用新项代替，然后返回修改后所得的表
;cdr返回去掉了第一个元素的表
;(CONS 0 "TEXT")的结果是(0 "TEXT"),
;(ASSOC 0 ED)的结果可能是(0 "TEXT")也可能是(0 "LINE")及其他。

柯梦楠

太感谢了！以后还要多多照顾啊！呵！