下面是狂刀程序的启发 - ;;ERRNO变量的使用源自狂刀程序的启发
- (defun C:KKK (/ TXTEN ERN ENT)
- (while (not TXTEN)
- (setvar 'ERRNO 0)
- (setq TXTEN (entsel "\n选择单行文字: ")
- ERN (getvar 'ERRNO)
- )
- (cond
- ((= ERN 7) ;选择为空
- (princ "\n未选择对象。")
- )
- ((= ERN 52) ;用户输入ENTER
- (setq TXTEN T) ;满足while退出条件
- )
- ((if (and (setq TXTEN (car TXTEN)
- ENT (entget TXTEN)
- )
- (/= (cdr (assoc 0 ENT)) "TEXT")
- )
- (progn
- (princ "\n选定的对象不是单行文字。")
- (setq TXTEN nil) ;确保while继续
- )
- )
- )
- )
- )
- (if (and TXTEN (/= TXTEN T))
- (alert "\n单行文字选择完成")
- ))
|