[求助]：[1014]如何设定"WHILE"右键返回值?

viz528

程序如下:

3. (DEFUN C:TEST ()
4. (WHILE
5. (setq pt (getpoint "\n 选取封闭空间:"))
6. (command "-BOUNDARY" pt "")
7. (setq en (entlast))
8. (IF (/= en nil)
9. (PROGN
10. (setq vla_en_AREA (vla-get-Area (LA-TO-VLA EN)))
11. (setq TXT (strcat "\n Area="
12. (rtos (/ vla_en_AREA 10000) 2 2)" (㎡)"))
13. (princ TXT)
14. (ENTDEL en)
15. ) ;_ 结束progn
16. ) ;_ 结束if
17. )
18. )

(DEFUN C:TEST () (WHILE (setq pt (getpoint "\n 选取封闭空间:")) (command "-BOUNDARY" pt "") (setq en (entlast)) (IF (/= en nil) (PROGN (setq vla_en_AREA (vla-get-Area (LA-TO-VLA EN))) (setq TXT (strcat "\n Area=" (rtos (/ vla_en_AREA 10000) 2 2)" (㎡)")) (princ TXT) (ENTDEL en) ) ;_ 结束progn ) ;_ 结束if ) )

当在程序执行时
按下"ESC"键
返回 [函数被取消]
按下"滑鼠右"键
返回 指令:
若想要返回 (princ "程序终止")
那该怎样处理呢?
希望各位高手可以帮忙解答一下
谢谢~

leonlxr

利用vlax-ename->vla-object 将AutoLISP对象转换为VLA后，计算完了还要用vlax-vla-object-ename将 VLA 对象转换为 AutoLISP 对象，才能用entdel删除呀，根据需要给while加上判断条件