想改变直线属性，改变直线长度，问什么改变不了，高手看下程序
(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)
变量wall_left_line1_date_e根本没有定义！
页:
[1]