lisp 获取宗地信息

(defun c:tt ()
(setq a (entsel))
  (setq b (car a))
  (setq d (entget b))
  (setq c (entget b '("*")))
  (setq e (assoc -3 c))
  (setq f (cdr e))

(setq g (assoc "SOUTH" f))
(setq h (cddr g))
 (setq i (assoc 1000 h))
  (setq j (cdr i))
)

(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));提取宗地编号
)

cass提取宗地编号下载lisp代码