(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));提取宗地编号
)
————————————————
版权声明:本文为CSDN博主「李建军」的原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/hb_ljj/article/details/91125582
页:
1
[2]