打印所有布局

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

这是我们在我工作的地方使用的，效果很好。好的是页面不必设置。它也不会打印“模型”选项卡。

copy

(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)
)

[编程交流] 打印所有布局

发表回复

精选推荐