批量输出宗地信息

(defun c:tt ()
  (setq dat_file (getfiled "写文件" "c:\lsptools\numtest1" "num" 1))
  (setq ff (open dat_file "w"))
(setq ss (ssget))
(setq n 0)
 (repeat (sslength ss)
(setq en (ssname ss n))
   (setq en1_data(cdr (assoc -3 (entget en '("*")))))
   (setq en1_zdbh(cdr (nth 2 (assoc "SOUTH" en1_data))));提取宗地编号
   (setq en1_qlr(cdr (nth 3 (assoc "SOUTH" en1_data))));提取权利人
   (setq en1_zl(cdr (nth 1 (assoc "TXDZ" en1_data))));坐落
   (setq en1_sfz(cdr (nth 1 (assoc "FRDBZMS" en1_data))));坐落
   (setq en1_fwzh(cdr (nth 1 (assoc "TDZH" en1_data))));房屋证号
   (setq kg "	")
  ; (strcat en1_zdbh kg en1_qlr)
(write-line  (strcat en1_zdbh kg en1_qlr kg en1_zl kg en1_sfz kg en1_fwzh) ff)
(prin1 en1_zdbh)
(setq n (1+ n))
)
  (close ff)

)