简单窗口图

AQucsaiJr · 发表于 2022-7-5 16:14:57

我已经使用下面的代码一段时间了，没有任何问题，但是我的打印机被更改了，现在打印机中的11x17打印大小被称为“Ledger（11 x 17）”，我不知道如何处理空白。有人能帮我吗？


(DEFUN C:WP (/ size p1 p2 )
(initget "Letter 11x17 ")
(or(setq size (getkword "Paper Size: [Letter/11x17]:<11x17> "))
   (setq size "Letter"))
       (setq p1 (getpoint "\nPick first corner of window: \n"))
       (setq p2 (getcorner p1 "\nPick opposite corner of window: \n")) 
(COMMAND "-PLOT" "YES" "model" "KLP1500_BLACK.pc3" size "INCHES" "LANDSCAPE" "NO" "WINDOW" P1 P2 "FIT" "CENTER" "YES" "monochrome.ctb" "YES" "W" "NO" "NO" "NO")
(PRINC)
)

tmelancon · 发表于 2022-7-5 16:26:26

你介意寄一张样图吗？我会快速查看一下，看看我是否能为您的困境增加价值。

AQucsaiJr · 发表于 2022-7-5 16:43:05

此打印工具可用于打印任何图形的窗口打印。我附上了一个我使用的测试文件。

而且
在这个LISP中，我关闭了“-plot”函数，在“Continue plot”行中加了一个NO，以避免在测试时浪费纸张。我的问题是，我需要将“Ledger（11 x 17）”发送到纸张大小，但我不知道如何处理该纸张大小名称中的空白。我已尝试在打印机设置中修改名称，但我的IT部门不会授予我这样做的适当权限，他们也不理解我的需要。

谢谢
B尺寸图纸。图纸