AutoLisp入门基础教程(3)

这是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)
)