youyou3810 发表于 2019-6-7 09:53:47

cass 提取宗地信息

(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 发表于 2019-6-9 00:04:29

批量导出宗地信息
(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)

)

happy336 发表于 2019-10-27 22:41:09

执行tt后显示为参数类型错误: consp nil，怎么修改啊
页: [1]
查看完整版本: cass 提取宗地信息