2008年10月1日 星期三

判定是否有點選

;判定是否有點選
(setq pt1 (GETPOINT "\n 在畫面點選一下:"))
(if pt1
(progn
(prompt "有.")(print pt1)
)
(progn
(prompt "取消.")
)
)
;end lisp

沒有留言:

Search Google

Google

熱門文章