求助！读取内容并判断，麻烦大家帮我看看，是哪里出错了。

cz78873559

;读取内容并判断
(defun c:dq()
   (setq strPath "D:/我的文档/桌面/" );定义默认路径
   (setq f1 (getfiled "选择数据文件" strPath "txt" 0));显示选择文件窗口并得到文件路径
   (setq ss (open f1"r"));以只读方式打开文件并储存到SS中
   (setq fhz nil)
   ;循环读出文件中的每一行内容,并储存到fhz中
   (while (setq zfc (read-line ss))
       (setq fhz (cons zfc fhz))
       ;(princ "\n")(princ zfc);显示文件中每行的内容
;(setq ss1 (ssget "X" '((0 . "*TEXT") (1 . zfc))));判断是否包含
(if (/= ss1 nil)
(command "change" ss1 ""  "p" "C" "2" ""));条件成立则变色

   )
   ;(setq fhz (reverse fhz))
   (princ)
)

Andyhon

先试
;(setq ss1 (ssget "X" '((0 . "*TEXT") (1 . zfc))));
==>
(setq ss1 (ssget "X" (list '(0 . "*TEXT") (cons 1 zfc))))

cz78873559

谢谢Andyhon！问题似乎已经解决。

cz78873559

我还有个问题，怎样读取图中选择的文本，并按行写入到指定的TXT中？