Autolisp与宗地属性调用-Autolisp学习举例

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 (asso罕铞泱殳c 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的值变化了。