cass 提取宗地信息

youyou3810

(defun c:tt ()

(setq en1_data(cdr (assoc -3 (entget (car (entsel)) '("*")))));获取宗地扩展属性

）



提取宗地编号

(defun c:tt ()
(setq en1_data(cdr (assoc -3 (entget (car (entsel)) '("*")))))
  (setq g (assoc "SOUTH" en1_data))
  (cdr (nth 2 g));提取宗地编号
)

youyou3810

批量导出宗地信息

1. (defun c:tt ()
   
2.   (setq dat_file (getfiled "写文件" "c:\lsptools\numtest1" "num" 1))
   
3.   (setq ff (open dat_file "w"))
   
4. (setq ss (ssget))
   
5. (setq n 0)
   
6. (repeat (sslength ss)
   
7. (setq en (ssname ss n))
   
8.    (setq en1_data(cdr (assoc -3 (entget en '("*")))))
   
9.    (setq en1_zdbh(cdr (nth 2 (assoc "SOUTH" en1_data))));提取宗地编号
   
10.    (setq en1_qlr(cdr (nth 3 (assoc "SOUTH" en1_data))));提取权利人
    
11.    (setq en1_zl(cdr (nth 1 (assoc "TXDZ" en1_data))));坐落
    
12.    (setq en1_sfz(cdr (nth 1 (assoc "FRDBZMS" en1_data))));坐落
    
13.    (setq en1_fwzh(cdr (nth 1 (assoc "TDZH" en1_data))));房屋证号
    
14.    (setq kg "        ")
    
15.   ; (strcat en1_zdbh kg en1_qlr)
    
16. (write-line  (strcat en1_zdbh kg en1_qlr kg en1_zl kg en1_sfz kg en1_fwzh) ff)
    
17. (prin1 en1_zdbh)
    
18. (setq n (1+ n))
    
19. )
    
20.   (close ff)
    
21. 
    
22. )

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

happy336

执行tt后显示为  参数类型错误: consp nil，怎么修改啊