打印单个布局多个t
你好我不确定这是否是这个问题最合适的论坛，但我希望有人能帮我/为我指出正确的方向？
我已经创建了一个布局（A4大小），我想打印多次到一个pdf文档。每页之间的唯一区别是页面左下象限中心的页码。
我想制作的文件需要有1-999页。
有没有办法从单个AutoCAD布局生成此文档？
或者，用户可能会以某种方式输入一个范围（比如200-299），然后用这些页码生成一个pdf文档？
一如既往，我们非常感谢您的帮助。
谢谢
抢劫 你想要一个有新页码的空白页，这样人们就可以手动填写等吗？
如果单个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)
页:
[1]