本帖最后由 004 于 2013-1-9 10:18 编辑
 - (defun c:tt (/ sum)
- (setq sum 0.)
- (princ "\n程序已启动...")
- ;;; (princ)
- (princ "\n正在运行请稍后...")
- ;;; (princ)
- (repeat 5000000 (setq sum (1+ sum)))
- (princ)
- )
如果取消掉注释,两行提示会立即显示.
princ 能立即显示的后续命令:princ print getXXX command
请高手说明缘由,总结下.
|