Lisp以绘制所有布局Malfu
我正在办公室的一台电脑上工作，上面有完整的AutoCAD，我正试图为有能力使用它的人编写一个LISP例程。然而，它的实际绘图部分不起作用。我可以让PDF部分工作，这里是问题所在：(defun c:DPA ()
(foreach lay (layoutlist)
(setvar 'CTab lay)
(COMMAND"-plot"
"y"
""
"FED.pc3"
"Letter"
"Inches"
"Landscape"
"n"
"Extents"
"1=1"
"Center"
"y"
"don.ctb"
"y"
"n"
"n"
"n"
"n"
"y" )
)
)
我已经有大约一年没有做Lisp程序了，这是我在办公室的第一次尝试。谢谢你的帮助。 很可能存在icorrect输入。是美联储吗。pc3配置可用且有效？
请确保CMDECHO系统变量设置为1并运行代码；当失败时，按查看失败的地方和原因。
为了确保所有输入都是正确的，请调用-PRINT（即提示器版本）命令并记下所需的答案。 8） 你应该看看这里http://autocadtips.wordpress.com/2013/09/17/autolisp-print-all-layout-tabs/
pc3文件可用。我有一个完全相同的PDF格式，可以很好地工作。莫斯塔法，那是我用过的。对于PDF来说，它工作得很完美，对于实际的纸上打印来说，目前还不太理想。 代码失败时发出的消息是什么？ 命令：
命令：
命令：DPA
-打印详细的打印配置？[是/否]：y
输入布局名称或[？]：输入输出设备名称或[？]：联邦调查局人员。pc3输入纸张大小或[？]：字母输入纸张单位[英寸/毫米]：英寸输入绘图方向[纵向/横向]：横向打印倒置？[是/否]：n输入打印区域[显示/范围/布局/视图/窗口]：范围输入打印比例（打印英寸=图形单位）或[拟合]：1=1输入打印偏移（x，y）或：使用打印样式居中打印？[是（y）/否（N）]：y输入打印样式表名称或[？]（输入。表示无）：唐。带线宽的ctb绘图？[是/否]：用打印比例y缩放线宽？[是/否]：先打印图纸空间？[是/否]：n隐藏图纸空间对象？[是/否]：n将绘图写入文件[是/否]：n将更改保存到页面设置[是/否]？继续绘图[是/否]：重新生成布局。重新生成模型-缓存视口。
-绘图
是或否。
; 错误：功能已取消
它位于命令行上，等待我确认是否要继续绘图。 似乎您只需要在最后一个提示中添加一个答案！
...
"n"
"n"
"y"
"y" )
)
)
让我再试一次。我已经试过一次了。 我发现这在我的办公室很有用。然而，如果我想切换回模型空间，保存，然后关闭图形，那么应该在末尾添加什么。都使用相同的例程。谢谢大家。 我想这是一个问题，所以你在寻找这样的东西：
(setvar "CTAB" "MODEL")
(if (= (getvar "DWGTITLED") 1)
(command "_QSAVE" "_CLOSE")
)
页:
[1]
2