急！你能改进一些lisp吗？

ndian

在编图中 我都是以“块”的方式插入，例如 陡坎的牙齿方向的问题，我用下面LISP只能改变一条直线（AB-》BA），不能改变块的 希望 大虾能改进一下！！急啊 qq:42808710 下面lisp是实现了: 直线AB ---->直线BA (defun c:changeline ()

(setq ent (car (entsel)) ) ;car 取出序列的第一个元素
(setq ents (entget ent)) ;entget 取出对象的数据序列
(setq dxf10 (cdr (assoc 10 ents))) ;cdr 取出点对序列的第二元素，
;或一般序列第一元素除外的子序列
(setq
ents (subst (cons 10 (cdr (assoc 11 ents))) (assoc 10 ents) ents)
)

;
; subset 函数置换序列变量的数据项。或用cons函数加入新的数据项。
; cons 函数组合出新的数据项，或是用assoc函数从别的对象数据序列中取出新的数据项
; assoc 函数取出要修改的数据项，并判断该项目是否存在
;
(setq ents (subst (cons 11 dxf10) (assoc 11 ents) ents)) ; dxf10 是一个变量

(entmod ents) ;entmod 函数更新该对象
(princ)
)