帮我看看求中心线这个程序问题出在哪？谢谢啦

longyi1230

(defun c:mid2pline (/ a b en1 en2 en1_data  en2_data pts1 pts2 px1 px2 py1 py2 pte1 pte2 tx1 tx2 ty1 ty2 mx1 mx2 my1 my2 mpt1 mpt2);求中心线
 (setvar "cmdecho" 0)
 (setvar "blipmode" 0)
 (setq en1 (entsel"\n选择第一条复合线："))
 (setq en2 (entsel"\n选择第二条复合线："))
 (setq en1_data (entget (car en1)));取得对象属性列表
 (setq en2_data (entget (car en2)));取得对象属性列表
 (setq pts1 (assoc 10 en1_data));取得群码10的子列表
 (setq pts2 (assoc 10 en2_data));取得群码10的子列表
 (setq px1 (cdr pts1));取得px1坐标x的值
 (setq py1 (cadr pts1));取得py1坐标y的值
 (setq px2 (cdr pts2));取得px2坐标x的值
 (setq py2 (cadr pts2));取得py2坐标y的值 
 (setq pte1 (assoc 11 en1_data));取得群码11的子列表
 (setq pte2 (assoc 11 en2_data));取得群码11的子列表 
 (setq tx1 (cdr pte1));取得tx1坐标x的值
 (setq ty1 (cadr pte1));取得ty1坐标y的值
 (setq tx2 (cdr pte2));取得tx2坐标x的值
 (setq ty2 (cadr pte2));取得ty2坐标y的值 
 (setq mx1 (/ (+ px1 px2) 2));求得mx1值
 (setq my1 (/ (+ py1 py2) 2));求得my1值
 (setq mpt1 (list mx1 my1));结合mx1与my1成mpt1
 (setq mx2 (/ (+ tx1 tx2) 2));求得mx2值
 (setq my2 (/ (+ ty1 ty2) 2));求得my2值
 (setq mpt2 (list mx2 my2));结合mx2与my2成mpt2
 (command "line" mpt1 mpt2 "")
 (prin1)
) 
 注释太多，希望不要看花眼，谢谢啦~

ZZXXQQ

复合线无11群码。