Lisp以绘制所有布局Malfu

mwade93 · 发表于 2022-7-5 22:22:32

我正在办公室的一台电脑上工作，上面有完整的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程序了，这是我在办公室的第一次尝试。谢谢你的帮助。

MSasu · 发表于 2022-7-5 22:27:47

很可能存在icorrect输入。是美联储吗。pc3配置可用且有效？
请确保CMDECHO系统变量设置为1并运行代码；当失败时，按查看失败的地方和原因。
为了确保所有输入都是正确的，请调用-PRINT（即提示器版本）命令并记下所需的答案。

mostafa badran · 发表于 2022-7-5 22:30:03

8）你应该看看这里http://autocadtips.wordpress.com/2013/09/17/autolisp-print-all-layout-tabs/

mwade93 · 发表于 2022-7-5 22:34:27

pc3文件可用。我有一个完全相同的PDF格式，可以很好地工作。莫斯塔法，那是我用过的。对于PDF来说，它工作得很完美，对于实际的纸上打印来说，目前还不太理想。

MSasu · 发表于 2022-7-5 22:38:05

代码失败时发出的消息是什么？

mwade93 · 发表于 2022-7-5 22:41:14

命令：
命令：
命令：DPA
-打印详细的打印配置？[是/否]：y
输入布局名称或[？]：输入输出设备名称或[？]：联邦调查局人员。pc3输入纸张大小或[？]：字母输入纸张单位[英寸/毫米]：英寸输入绘图方向[纵向/横向]：横向打印倒置？[是/否]：n输入打印区域[显示/范围/布局/视图/窗口]：范围输入打印比例（打印英寸=图形单位）或[拟合]：1=1输入打印偏移（x，y）或：使用打印样式居中打印？[是（y）/否（N）]：y输入打印样式表名称或[？]（输入。表示无）：唐。带线宽的ctb绘图？[是/否]：用打印比例y缩放线宽？[是/否]：先打印图纸空间？[是/否]：n隐藏图纸空间对象？[是/否]：n将绘图写入文件[是/否]：n将更改保存到页面设置[是/否]？继续绘图[是/否]：重新生成布局。重新生成模型-缓存视口。
-绘图
是或否。
; 错误：功能已取消

它位于命令行上，等待我确认是否要继续绘图。

MSasu · 发表于 2022-7-5 22:42:01

似乎您只需要在最后一个提示中添加一个答案！

copy

...
 "n"
 "n"
 "y"
 [color=red]"y"[/color]      )
   )
)

mwade93 · 发表于 2022-7-5 22:46:25

让我再试一次。我已经试过一次了。

tmelancon · 发表于 2022-7-5 22:48:10

我发现这在我的办公室很有用。然而，如果我想切换回模型空间，保存，然后关闭图形，那么应该在末尾添加什么。都使用相同的例程。谢谢大家。

MSasu · 发表于 2022-7-5 22:53:40

我想这是一个问题，所以你在寻找这样的东西：

copy

(setvar "CTAB" "MODEL")
(if (= (getvar "DWGTITLED") 1)
(command "_QSAVE" "_CLOSE")
)

[编程交流] Lisp以绘制所有布局Malfu

发表回复

精选推荐