弱弱的问下如何获取宗地和界址线属性？

夏思恩

提示字体文件不存在

happy336

谢谢分享，支持

skg123

https://blog.csdn.net/hb_ljj/article/details/91125582

(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