[求助]：[1014]如何设定"WHILE"右键返回值?
程序如下:
(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 "程序终止")
那该怎样处理呢?
希望各位高手可以帮忙解答一下
谢谢~
<P>利用<FONT face=宋体>vlax-ename->vla-object 将AutoLISP对象转换为VLA后，计算完了还要用vlax-vla-object-ename</FONT>将 VLA 对象转换为 AutoLISP 对象，才能用entdel删除呀，根据需要给while加上判断条件</P>
页:
[1]