这是AutoLisp入门教程的第三部分，在教程的第二部分，我们编写了一个绘制瓦楞板多段线的小程序。这个Autolisp小程序涉及了一些重要常见的函数，例如polar，repeat和while等（其语法和返回值可以参考：常见函数1，常见函数2，常见函数3）。
再来回忆一下我们使用这个程序的时候是如何操作的：1）加载这个程序，并输入wlb调用这个程序；2）按照提示选取起始点，然后选取终点，屏幕上画出一条多段线；3）继续拾取起始点和终点，再次划出一条多段线线；4）若想终止程序，按ESC或Enter即可。
也许你已经想到了，这个程序的操作能不能改成这个样子：选取一条直线，根据这个直线的两个端点，自动生产一条多段线。这样就涉及了对AutoCAD对象属性的读取。
重点来了！！！
实际上，你所绘制的每一个AutoCAD对象（如line、circle、arc、text、block、polyline、dimension等）都有其专属的属性列表。
在入门教程的第三部分，我们将使用AutoLisp中相关函数对AutoCAD对象的属性进行选择、获取、修改和更新。常用的对象属性函数如下表：
| 函数 | 功能 |
|---|---|
(entsel [提示]) |
请求选择一个对象，返回包括对象名称及选点坐标的列表 |
(car 列表) |
返回列表中的第一个元素 |
(cadr 列表) |
返回列表的第二个元素 |
(caddr 列表) |
返回列表的第三个元素 |
(cdr 列表) |
返回除去第一个元素后的列表 |
(entlast) |
返回最新创建的对象的对象名称 |
(entget 对象名称 [应用程序列表]) |
返回对象名称的属性联合列表 |
(assoc 关键元素 联合列表) |
联合列表中关键元素对用的属性 |
(subst 新项 旧项 列表) |
返回替换就列表后的列表 |
(cons 新元素 列表) |
将新元素结合到列表 |
(entmod 对象列表) |
按更新的属性列表更新屏幕上的对象 |
(list 元素 元素 ...) |
将元素合并成一个列表 |
对AutoCAD对象属性的修改实际上就是对AutoCAD对象属性列表的修改。
获取对象联合属性列表和群码分析
获得对象联合属性列表
(setq en_data (entget (car (entsel "select a entity\n"))))
; 选择一个对象，并把它的对象联合属性列表赋值给en_data
对象属性修改和更新
(setq oldr (assoc 40 en_data))
; 返回群码为40的子列表，并赋值给oldr
(setq newr (cons 40 23.8))
;建立一个新的表对
(setq en_data (subst newr oldr en_data))
;更属性列表，但是屏幕上的对象未更新
(entmod en_data)
;更新屏幕上的对象
例子1
编写一个chgrad.lsp程序，用来修改半径。
(defun c:chgrad()
(setvar "cmdecho" 0)
(setq en (entsel "选择已知圆:"))
(setq en_data (entget (car en))) ;获得对象属性列表
(setq old_rad_list (assoc 40 en_data)) ;得到半径子列表
(setq old_rr (cdr rad_list)) ;得到半径，这里必须使用cdr，不能使用cadr
(princ “\n旧半径=”)(princ old_rr)
(setq cenpt (cdr (assoc 10 en_data))) ;得到圆心
(setq new_rr (getdist cenpt "New Radius:")) ;指定一个新的半径
(setq new_rad_list (cons 40 new_rr)) ;产生新的半径子列表
(setq en_data (subst new_rad_list old_rad_list en_data)) ;更新属性列表
(entmod en_data) ;更新图形
(prin1)
)
在原来的基础上画一个瓦楞板程序，要求选择一条线段，以此为轴线画一个瓦楞板。
(defun c:wlb ()
;定义瓦楞板的尺寸
(setq x 250 y 50 h 50)
(setq en_data (entget (car (entsel "选择一条线段\n"))))
; 获得线段的属性列表
(setq ps (cdr (assoc 10 en_data)))
(setq pe (cdr (assoc 11 en_data)))
;获得该线段的起点和终点
(setq
alpha (angle ps pe)
dstc (distance ps pe)
dstc_e (+ x y x y)
)
(setq nn (1+ (fix (/ dstc dstc_e))))
(setq pa (polar ps (+ alpha (/ pi 2)) (/ h 2)))
(setq oldsnap (getvar "osmode"))
(setvar "osmode" 0)
(command "pline")
(repeat nn
(setq
pb (polar pa alpha x)
p_temp (polar pb (- alpha (/ pi 2)) h)
pc (polar p_temp alpha y)
pd (polar pc alpha x)
)
(command pa pb pc pd)
(setq pa (polar pa alpha dstc_e))
)
(command "")
(setvar "osmode" oldsnap)
(prin1)
)
