为什么不使用命名页面设置?
您可以为需要打印的每个尺寸设置一个,这些尺寸可以添加到模板中,供自动发布使用(在每个布局中设置一个当前尺寸),或者根据需要从“发布”对话框中选择/导入。
如果在图形中具有所需的命名页面设置,并且要将其同时设置为所有布局中的当前页面,可以使用此选项。
干杯
[编辑]-示例:
- (defun c:A2 ()
- (foreach layoutname (layoutlist)
- (vla-SetActivePageSetup layoutname "[color="red"]MyA2PageSetup[/color]")
- )
- (princ)
- )
- (defun c:A3 ()
- (foreach layoutname (layoutlist)
- (vla-SetActivePageSetup layoutname "[color="red"]MyA3PageSetup[/color]")
- )
- (princ)
- )
- (defun c:A4 ()
- (foreach layoutname (layoutlist)
- (vla-SetActivePageSetup layoutname "[color="red"]MyA4PageSetup[/color]")
- )
- (princ)
- )
- ;; This code assumes that the vla-SetActivePageSetup LispFunction is loaded.
|