[求助]为什么要点两次才行？

chupj

(defun c:bb (/ e)
  (vl-load-com)
  (while (setq e (car (entsel "\n")))
    (princ  (setq area1(vla-get-area(vlax-ename->vla-object(car(entsel"\n"))))))
  )
 
)

要点两次才能出来结果？

怎么会这样？

那位高手指点小弟一二。。。。。。。

谢谢。。。。

小弟初学。。。。

BDYCAD

(defun c:bb (/ e)
  (vl-load-com)
  (while (setq e (car (entsel "\n")))
    (princ(vla-get-area(vlax-ename->vla-object e)))
  )
 
)

wdabo

因为程序中(entsel "\n"))代码出现了两次，出现一次就要点一次。