想改变直线属性，改变直线长度，问什么改变不了，高手看下程序

剪刀石头布遛了

(setq wall_left_line1 (entsel "\n选择左边墙体1:"))
(setq wall_left_line2 (entsel "\n选择左边墙体2:"))
;(
(setq wall_left_line1_date (entget (car wall_left_line1)));
(setq wall_left_line1_date_s (assoc 10 wall_left_line1_date));
   
   (setq wall_left_line1_date_s1 (cdr wall_left_line1_date_s));wall_left_line1_date_s1代表一个点
  (setq wall_left_line1_date_e1 (cdr wall_left_line1_date_e))
(setq x (car wall_left_line1_date_s1))
(setq y (cadr wall_left_line1_date_s1))
;(princ (strcat "\n这两条线段交点为：X=" (rtos x) " Y=" (rtos y) "!"))
;产生新的端点坐标
(setq new1  (mapcar '+ wall_left_line1_date_s1 (list 0 high1)))
(setq wall_left_line1_date (subst new1 wall_left_line1_date_s1 wall_left_line1_date))
  (entmod wall_left_line1_date)

zyhandw

变量wall_left_line1_date_e根本没有定义！