图元坐标修改，麻烦师傅帮看看，有劳了。。。

54525596

(defun c:tt ()
  (setq qq (entget (car (entsel"\n请选择块:"))))
  (setq xq (cdr (assoc 10 qq)))
  (setq xq1 (car xq)
        yq1 (cadr xq)
        zq1 (caddr xq)
        xyq1 (list xq1 yq1)
        q1xy (list xq1 yq1 zq1)
   )
  (setq ss (entget (car (entsel"\n请选择线:"))))
(setq s1 (cdr (assoc 10 ss)))
  (setq xs1 (car s1)
        ys1 (cadr s1)
        zs1 (caddr s1)
        xys1 (list xs1 ys1)
   )
  (setq s2 (cdr (assoc 11 ss)))
  (setq xs2 (car s2)
        ys2 (cadr s2)
        zs2 (caddr s2)
        xys2 (list xs2 ys2)
   )
  (if (= xq1 xs1) (progn (subst (cons 10 q1xy) (assoc 10 ss) ss)
(entmod ss))
   )
(if (= xq1 xs2) (progn (subst (cons 10 q1xy) (assoc 11 ss) ss)
(entmod ss))
   )
  (princ)
)
我想选择块，然后把块的Z值赋值给直线的端点或者终点，可能这方法不好，但也是一点一滴学习的结果，但为什么我弄不出来？？？麻烦各位师傅帮我看看，唉，，，，我也是晚上有点时间学习，实践，经常要加班，弄了两个小时了。。。。

x_s_s_1

(if (= xq1 xs1) (progn (setq ss(subst (cons 10 q1xy) (assoc 10 ss) ss) )(entmod ss))
   )
试试

54525596

x_s_s_1 发表于 2013-5-15 08:55
(if (= xq1 xs1) (progn (setq ss(subst (cons 10 q1xy) (assoc 10 ss) ss) )(entmod ss))
   )
试试

谢谢哟，发现这里能让我有更大的兴趣学习下去，，哈哈，，谢谢