画图图框页码工具

弘毅

(defun C:ppp()
  (setq TextHeight (getreal"\n文字高度："))
  (setq StartPage (getint"开始页码："))
  (setq TotalPage (getint"总页数："))
  (setq pt (getpoint "插入点：\n"))
  (while pt
    (COMMAND "TEXT" pt TextHeight 0 (strcat "第" (itoa StartPage) "页"  " 共" (itoa TotalPage) "页\n"))
    (setq StartPage (1+ StartPage))
    (if (> StartPage TotalPage)
      (setq pt nil)
      (setq pt (getpoint "\n插入点：\n"))
    )
  )
)

请前辈们多多指点啊！

freedake

感觉很实用啊！！

77077

试试这个呢1.建议加入局部变量,运行完了释放,这样减少内存占用,不至于打扰到其他程序.
2.变量尽量设置短一些,弄得清楚就行.
3.尽量少用command,用entmake 速率高些,尤其是处理大量数据时.
4.编写代码尽量规范一些,这样便于以后自己修改,看着排版很好的代码页面,编代码也算是一种享受~

2. 
   
3. (defun C:p1( / h n m pt)
   
4.   (setq h (getreal "\n文字高度<3.5>：")
   
5.         n (getint "\n开始页码<1>：")
   
6.         m (getint "\n总页数<10>："))
   
7.    (if (not h) (setq h 3.5))
   
8.    (if (not n) (setq n 1))
   
9.    (if (not m) (setq m 10))
   
10.   (while (and (<= n m) (setq pt (getpoint "\n插入点：")))
    
11.     (entmake(list '(0 . "TEXT")
    
12.                (cons 1 (strcat "第" (itoa n) "页   共" (itoa m) "页"))
    
13.                (cons 10 pt)
    
14.                (cons 40 h)
    
15.             ))
    
16.     (setq n (1+ n))
    
17.   )
    
18. )
    

<br /> (defun C:p1( / h n m pt)<br />   (setq h (getreal "\n文字高度<3.5>：")<br />         n (getint "\n开始页码<1>：")<br />         m (getint "\n总页数<10>："))<br />    (if (not h) (setq h 3.5))<br />    (if (not n) (setq n 1))<br />    (if (not m) (setq m 10))<br />   (while (and (<= n m) (setq pt (getpoint "\n插入点：")))<br />     (entmake(list '(0 . "TEXT")<br />                (cons 1 (strcat "第" (itoa n) "页   共" (itoa m) "页"))<br />                (cons 10 pt)<br />                (cons 40 h)<br />             ))<br />     (setq n (1+ n))<br />   )<br /> )<br />

弘毅

77077 发表于 2014-8-14 18:48
试试这个呢1.建议加入局部变量,运行完了释放,这样减少内存占用,不至于打扰到其他程序.
2.变量尽量设置短一 ...

第一次发帖就有大神回复，太荣幸了！多谢大神给修改！

zinah

感觉挺好的，顶一个。。。。。

wozhengjia

错误: 读入的 (八进制) 字符不正确: 0