有无办法使程序命令AA后不提示C:ND

zfsaaa

有无办法使程序加载命令AA后,不出现提示C:ND

(defun c:aa()
(setq flag t)
(if flag (load"C:/kk/kk.lsp"))
;序号加一 明经 ZZXXQQ 2008.5.26,2008.6.3
(defun c:nd ()
   (setvar "CMDECHO" 0)
   (setq sc (getdist "\nselect a point to point 从一点到另一点确定字体高度 :"))
   (setq bn (getint "\nInput begin number 输入起始序号："))
   (setq sc1 (* sc 0.53))
   (while (setq p1 (getpoint "\nInsert Point :"))
    (command "text" "j" "m" p1 sc1 "" bn)
    (setq s1 (entlast))
    (setq txtn (itoa bn))
    (setq bn (1+ bn))
    (while (and (setq ss (ssget "X" (list '(0 . "TEXT") (cons 1 txtn))))
           (= (sslength ss) 2))
     (setq ss (ssdel s1 ss)
           s1 (ssname ss 0)
           ent (entget s1)
           txtn (itoa (1+ (atoi txtn)))
           ent (subst (cons 1 txtn) (assoc 1 ent) ent))
     (entmod ent)
    )
   )
   (setvar "CMDECHO" 1)
   (princ)
)

)

Andyhon

(defun c:aa .....
.....
)
(Princ)   ; Add this line

zfsaaa

Andyhon发表于2010-4-9 17:26:00(defun c:aa ..........)(Princ)   ; Add this line

是加错位啦,现不那样提示,谢谢！