cadamrao 发表于 2022-7-6 07:17:40

打印所有布局

先生
 
我有一个lisp打印布局图；它的作品：极客：伟大的打印单一布局；
但我需要打印出图纸中的所有布局。请修改所附的lisp以打印所有布局。目前，我们正在使用基于服务器的打印机A3（FX ApeosPort IV C5575 L13），需要根据我的页面设置A3或A1或。。。。
 
提前谢谢
文基
布局图。lsp

rkmcswain 发表于 2022-7-6 07:28:09

为什么不直接使用“发布”命令，或者选择所有布局，然后右键单击并选择“发布”？

cadamrao 发表于 2022-7-6 07:42:00

 
你好
 
我知道发布命令；但它需要更快的速度。
 
谢谢

maratovich 发表于 2022-7-6 07:49:23

我们使用它。
试试看，能到你就会走近。

BIGAL 发表于 2022-7-6 07:58:32

看看这个帖子http://www.cadtutor.net/forum/showthread.php?69132-正在打印LISP帮助&高亮显示=打印LISP此处还有其他pot。对于这种方法，只需将PDF更改为您的打印机名称

pmxcad 发表于 2022-7-6 08:06:09

我使用以下脚本：
（foreach lay（layoutlist）（setvar“CTAB”lay）（命令“\u PLOT”“N”“”“”“”“Y”“））
 
确保已设置所有页面设置。
 
PmxCAD

SLW210 发表于 2022-7-6 08:15:18

pmxcad，
 
请对代码段使用代码标记。

BrianTFC 发表于 2022-7-6 08:21:12

这是我们在我工作的地方使用的，效果很好。好的是页面不必设置。它也不会打印“模型”选项卡。
 
 
(defun c:Tab ( / )
(foreach layoutname (vl-remove "Model" (layoutlist))
   (command "._layout" "set" layoutname)
   (command "-plot"
"yes"
layoutname
"TFC-ENGXER6204.pc3"
"Arch C (18x24 in.)"
"Inches"
"LANDSCAPE"
"NO" ;PLOT UPSIDE DOWN
"LAYOUT"
"1:1"
"0.00,0.00"
"YES" ;PLOT WITH PLOTSYTLES
"MONOCHROME.CTB"
"NO" ;PLOT WITH LINEWEIGHTS
"NO" ;SCALE LINEWEIGHTS WITH PLOT SCALE
"YES" ;PLOT PAPER SPACE LAST
"NO" ;REMOVE HIDDEN LINES
"NO" ;WRITE THE PLOT TO A FILE
"NO" ;SAVE CHANGES TO LAYOUT
"YES");PROCEED WITH PLOT
)
(princ)
)
页: [1]
查看完整版本: 打印所有布局