1、简要画一个宗地，并为它赋值一些属性。如下图。
2、一般在命令行中输入(setq a (entsel))，回车选择宗地线后如图。
3、 命令行中输入(setq b (car a))，回车结果如图
4、名行中输入（setq d (entget b))回车后得到如图，并没有宗地的一些属性代码。
5、要得到属性代码可以这样输入(setq c (entget b '("*")))回车后如图
6、如下图可知选中部分是一体的，选出来可以这样(setq e (assoc -3 c))
7、现在调用内部的某一项如TUFU。先（setq f (cdr e)),这样去除了前边的-3
8、继续操作(setq g (assoc "TUFU" f)),如图
9、输入(cdr (assoc 1000 (cdr g)))如图
10、综上为(cdr (assoc 1000 (cdr (assoc "TUFU" (cdr (assoc -3 (entget (car (entsel)) '("*"))))))))
11、现在举例更新变量g,输入(subst (cons 1000 "1.00-5.00" ) (assoc 1000 (cdr g)) g)，如下图。注意这里并没有更新宗地的属性只是g的值变化了。
