你想要一个有新页码的空白页，这样人们就可以手动填写等吗？
如果单个PDF可以，这里有一些答案。第一个示例是如何使用lisp绘制PDF。第二个示例是如何更改两个标题栏详细信息中的各个项目，在您的情况下，它将是页码。第三位是更改已发布的例程，以在每次运行时增加页码，然后绘制I以输入开始-结束页码。
你了解lisp吗。你能贴一张图纸吗。
http://www.cadtutor.net/forum/showthread.php?65411-匹配线参考图纸-编号/页码2&突出显示=布局
- ; changes to issued for construction
- : thanks to lee mac for original code
- (vl-load-com)
- ; 1. Get current date in mm/dd/yy format.
- (defun ddmmyy (/ x today)
- (setvar "cmdecho" 0)
- (setq x (getvar "CDATE")) ; get current date
- (setq today ( rtos x 2 4)) ; convert to a string
- (setq date (strcat (substr today 7 2) "." (substr today 5 2) "." (substr today 3 2) ))
- )
- (setq oldtag1 "DRAWING_STATUS") ;attribute tag name
- (setq newstr1 "ISSUED FOR CONSTRUCTION")
- (setq oldtag2 "REV_NO") ;attribute tag name
- (setq newstr2 "0")
- (setq ss1 (ssget "x" '((0 . "INSERT") (2 . "DA1DRTXT"))))
- (setq inc (sslength ss1))
- (repeat inc
- (foreach att (vlax-invoke (vlax-ename->vla-object (ssname SS1 (setq inc (1- inc)) )) 'getattributes)
- (if (= oldtag1 (strcase (vla-get-tagstring att)))
- (vla-put-textstring att newstr1)
- ) ; end if
- (if (= oldtag2 (strcase (vla-get-tagstring att)))
- (vla-put-textstring att newstr2)
- ) ; end if
- ) ; end for
- ) ;end repeat
- (setq oldtag1 "REV-NO")
- (setq newstr1 "0")
- (ddmmyy)
- (setq oldtag2 "DATE")
- (setq newstr2 date)
- (setq oldtag3 "AMENDMENT")
- (setq newstr3 "ISSUED FOR CONSTRUCTION")
- (setq ss2 (ssget "x" '((0 . "INSERT") (2 . "REVTABLE"))))
- (setq inc (sslength ss2))
- (repeat inc
- (foreach att (vlax-invoke (vlax-ename->vla-object (ssname ss2 (setq inc (1- inc)))) 'getattributes)
- (if (= oldtag1 (strcase (vla-get-tagstring att)))
- (vla-put-textstring att newstr1)
- )
- (if (= oldtag2 (strcase (vla-get-tagstring att)))
- (vla-put-textstring att newstr2)
- )
- (if (= oldtag3 (strcase (vla-get-tagstring att)))
- (vla-put-textstring att newstr3)
- )
- )
- )
- (setq ss1 nil)
- ; (setq ss2 nil)
- (princ)
| 
置顶卡
