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: :<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尺寸图纸。图纸

FranknBeans 发表于 2022-7-5 16:46:53

也许是这个？
注：当用户按enter键时，括号中的值通常是默认值，您的原始代码似乎默认为我复制的相反值

FranknBeans 发表于 2022-7-5 17:00:59

哎呀，错过了括号

AQucsaiJr 发表于 2022-7-5 17:08:13

成功了。。。非常感谢。你做了我认为需要做的事情，但是我不知道如何设置条件，将11x17更改为分类账（11 X 17）。
 
 
非常感谢。

tmelancon 发表于 2022-7-5 17:20:05

对不起，我只是想谈谈这一点，很高兴你能得到你需要的！当你得到你想要的东西时，这是一种很棒的感觉！干杯
页: [1]
查看完整版本: 简单窗口图