打印lisp帮助

Millsy29 · 发表于 2022-7-6 10:39:00

我在调色板上创建了一个按钮，用于绘制A0、a1和a3 pdf。

如何将其转换为lisp例程，该例程允许我将#（全尺寸可能是一张宽卡）绘制到打印机，并将pdf和a3比例绘制到打印机。

-绘图
对
PDFCREATOR公司
A0
景观
不
范围
1=1
居中
对
BLL-STD.stb
对
对
不
不
不
不
对

我想我已经掌握了如何将其设置到自己的系统中，但如果有人能帮我，这将节省我很多时间。。

米尔西

Freerefill · 发表于 2022-7-6 10:51:55

到现在为止，一直都还不错。您正走在正确的轨道上，这段代码几乎就是您所需要的全部。把这一切都写进（命令…）函数，然后复制并粘贴所需的所有不同打印设置和样式。

例如：

copy


(defun c:millsyplot( / )
(command "-PLOT" "YES" "PDFCREATOR" "A0" "LANDSCAPE" "NO" "EXTENTS" "1=1" "CENTER" "YES" "BLL-STD.stb" "YES" "YES" "NO" "NO" "NO" "NO" "YES")
)

viviancarvalho · 发表于 2022-7-6 11:00:12

嗨，米莉。
打印的工作是在模型空间中完成dwg后，在图纸空间中完成页面设置。完成后，只需运行一个简短的lisp例程。无论何时要打印图形，只要打开dwg，转到要打印的布局，键入pp并单击enter。

;代码开始
（defun c:pp（）
（princ）键入PP以运行命令。
\n只要设置了布局，一次点击即可打印。
\n Vivian Carvalho的Lisp”）
（setvar“cmdecho”0）
（命令“plot”“n”“”“”“n”“n”“y”）
;代码结束。

Millsy29 · 发表于 2022-7-6 11:13:53

我的输出设备有问题（\\ukman04ma401\UK-MAN-04-01-KIP5000）

Lisp程序

（定义c:plotsA0 nil
（vl load com）
（命令“_.-plot”“yes”“PDFCREATOR”“A0”“m”“LANDSCAPE”“NO”“extensts”“1=1”“CENTER”“yes”“BLL-STD.stb”“yes”“yes”“NO”“NO”“NO”“yes”）
（命令“_.-plot”“yes”“”“\\ukman04ma401\UK-MAN-04-01-KIP5000”“A0\u 841x189mm”“M”“LANDSCAPE”“NO”“extensts”“1=1”“CENTER”“yes”“BLL-STD.stb”“yes”“yes”“NO”“NO”“NO”“yes”）
（命令“_.-plot”“yes”“”“ukman04mz401\UK-RO-MAN-04-03 HPLJ5550 Design Printer”“A3”“M”“LANDSCAPE”“NO”“EXTENTS”“FIT”“CENTER”“yes”“BLL-STD.stb”“yes”“yes”“NO”“NO”“yes”）
（普林斯）
)

AutoCAD文字窗口

命令：_-打印详细的打印配置？[是/否]：是
输入布局名称或[？]：输入输出设备名称或[？]
\\ukman04ma401\UK-MAN-04-01-KIP5000>：
>未找到。

当退出时，它像这样出现，它似乎与的问题

有人知道怎么避开这个吗？

米尔西

Freerefill · 发表于 2022-7-6 11:24:35

这是一种常见的情况。反斜杠是LISP中的一个控制代码。您可能看到过这样的代码：

（entsel“\n选择实体：”）

“反斜杠n”的意思是“在这里插入新行”。如果没有反斜杠，它将只打印“n”。TL；DR，这意味着你不能在一个文本字符串中放一个反斜杠，否则当你运行代码时，它期望那个反斜杠指示一个控制代码。

您可以通过使用控制代码创建特殊角色来修复此问题。想在文本字符串中加引号吗？你这样做：“something \”somethingelse“。那个“反斜杠引号”说，“不要在这里停止文本字符串，在其中放一个引号！“通过遵循相同的逻辑，我们可以做到这一点：“something\\somethingelse”。

这里有一个方法让你自己看看它是如何工作的。将这些代码复制并粘贴到AutoCAD上的命令行中：

（原理“控制代码：\”）
（princ“反斜杠：\ \”）
（原理“双反斜杠：\ \”）

简而言之，你的问题的答案是：
将\\ukman04ma401\UK-MAN-04-01-KIP5000替换为\\\\ukman04ma401\\UK-MAN-04-01-KIP5000

Millsy29 · 发表于 2022-7-6 11:35:46

谢谢你的免费充值。。。全部排序：-）

jcap91163 · 发表于 2022-7-6 11:43:48

谢谢你，这对我有很大帮助，特别是现在我正在尝试使用lisp来打印我的图形，而不使用恼人的窗口打印，我成功地将图形打印到pdf文档，也打印了A1图纸，但我在尝试打印到个性化图纸时遇到了麻烦，总是显示在尝试打印时，在纸张大小之后，找不到尺寸表，发现错误，无法识别例程的其余部分。

如果你能帮我做这件事，我正在写例行程序，看看出了什么问题：

（定义c:toto nil
（vl load com）
（命令“_.-plot”“yes”“HP DesignJet 500 24 by HP”“Pers.5:594 x 1150 mm。”“m”“LANDSCAPE”“NO”“EXTENTS”“fit”“CENTER”“YES”“ba2.ctb”“NO”“wireframe”“NO”“YES”“YES”）
（普林斯）
)

非常感谢。

此外，如果我有格式之外的元素，当我在“范围”模式下打印时，这将打印模型中的所有内容，有没有办法选择“窗口”而不是“范围”？

[编程交流] 打印lisp帮助

发表回复

精选推荐