[求助]问个弱弱的问题，关于多个语句顺序执行

babyred

(setq s (entget (car (entsel))));
(setq v1 (cdr(assoc 10 s)));
(setq v2 (cdr(assoc 11 s)));
(setq x0(nth 0 v1));
(setq y0(nth 0 v1));
(setq x1(nth 0 v2));
(setq y1(nth 0 v2));

我想让这几个语句顺序执行，放在哪啊，在控制台一次只能执行一个
我想显示出x0，y1值怎么显示啊

phoenixdjq

用princ(princ,prin1)可以显示,用alter也可以显示

可以参考以下这几个函数

如果你想选择一个实体,显示一回,那就要用到WHILE函数了

yshf

用程序。

在控制台中改为如下：

(progn
   (setq s  (entget (car (entsel)))
         v1 (cdr(assoc 10 s))
         v2 (cdr(assoc 11 s))
         x0 (nth 0 v1)
         y0 (nth 0 v1)
         x1 (nth 0 v2)
         y1 (nth 0 v2)
   )
   (princ (strcat "\nx0=" (rtos x0) "  y1=" (rtos y1)))
   (princ)
)