A.延津微姐(百事帮)-2:
提供两种方法:1.lisp程序(defunC:ppp()(setqTextHeight(getreal"文字高度:"))(setqStartPage(getint"开始页码:"))(setqTotalPage(getint"总页数:"))(setqpt(getpoint"插入点:"))(whilept(COMMAND"TEXT"ptTextHeight0(strcat"第"(itoaStartPage)"页""共"(itoaTotalPage)"页"))(setqStartPage(1+Star....