(defun c:ym () (setq tht (getreal "\n文字高度:")) (setq spage (getint "开始页码:")) (setq tpage (getint "总页数:")) (setq pt (getpoint "插入点:\n")) (setq andpage (strcat "第" (itoa spage) "页" " " "共" (itoa tpage) "页")) (command "text" pt tht 0 andpage) (while pt (setq spage (1+ spage)) (setq andpage(strcat "第" (itoa spage) "页" " " "共" (itoa tpage) "页")) (if (> spage tpage) (setq pt nil) (command "text" pause andpage) ) ) (princ) )