框选图元，修改图元，麻烦师傅帮忙看看

54525596

(defun c:aa ()
    (setq i 0)
    (if (setq ss (ssget '((0 . "insert"))))
        (setq xx (ssget '((0 . "line"))))
    )   
   
     (repeat (sslength ss)
      
          (setq xq (cdr (assoc 10 (entget (ssname ss i)))));获取块的坐标列表
          (setq xq1 (car xq)
             yq1 (cadr xq)
             zq1 (caddr xq)
             xyq1 (list xq1 yq1);列表用来比较判断
             q1xy (list xq1 yq1 zq1)
           );获取块的坐标表

        (setq hh1 (entget (ssname xx i)))
          (setq g1 (assoc 10 hh1))
          (setq s1 (cdr g1));获取直线的坐标列表
          (setq xs1 (car s1)
               ys1 (cadr s1)
               zs1 (caddr s1)
               xys1 (list xs1 ys1);列表用来比较判断
               s1xy (list xs1 ys1 zq1);直线起点新列表中已有块的高程
          );;获取直线起点坐标列表
         (if (equal xyq1 xys1) (setq hh1 (subst (cons 10 s1xy) g1 hh1))
           
         )
        (entmod hh1)
         (setq g2 (assoc 11 hh1))
         (setq s2 (cdr g2))  
         (setq xs2 (car s2)
               ys2 (cadr s2)
               zs2 (caddr s2)
               xys2 (list xs2 ys2);列表用来比较判断
               s2xy (list xs2 ys2 zq1);直线端点新列表中已有块的高程
          );获取直线端点坐标列表
         (if (equal xyq1 xys2) (setq hh1 (subst (cons 11 s2xy) g2 hh1))
            
         )
        (entmod hh1)
         
  
        (setq i (1+ i))
         
       );repeat
     (princ)
)
现在弄出来，直线上的端点坐标可以修改出来了，但起点坐标总是修改不了。。。。
直线两端的块各有不同的Z值，把Z值赋值到直线的起点和端点。