有什么好的书籍介绍autocad lisp 编程？

陈伯雄 《Visual LISP技巧与范例》
铁道出版社

;;d1 d2 d3 d4分别为立方体底面四点，u1 u2 u3 u4为顶面对应四点
(defun c:lft( / d1 d2 d3 d4 u1 u2 u3 u4)
(setq os (getvar "osmode"))
(setq cm (getvar "cmdecho"))
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(setq d1 (list 0 0 0))
(setq d2 (list 1000 0 0))
(setq d3 (list 1000 1000 0))
(setq d4 (list 0 1000 0))
(setq u1 (list 0 0 1000))
(setq u2 (list 1000 0 1000))
(setq u3 (list 1000 1000 1000))
(setq u4 (list 0 1000 1000))
(command "vpoint" "1,-1.5,1")
(command "line" d1 d2 d3 d4 d1 u1 u2 u3 u4 u1 "")
(command "line" d2 u2 "")
(command "line" d3 u3 "")
(command "line" d4 u4 "")
(setvar "osmode" os)
(setvar "cmdecho" cm)
(princ)
)

AutoLISP在建筑结构设计中的应用