669423907 发表于 2014-10-3 15:58:07

麻烦大师们帮看一下，在打印时，(setq bili "1:1")可以，(setq bili w)不行

麻烦大师们帮看一下，在打印时，(setq bili "1:1")可以，(setq bili w)不行，请问要怎么写呢？
未知命令“C”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“MONOCHROME.CTB”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“A”。按 F1 查看帮助。
未知命令“N”。按 F1 查看帮助。
未知命令“N”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。

(defun c:fa1();                铺满打印
(setq dyj "\\\\JSEWEUKPWJJTKFF\\Canon LBP3000")
(setq bili w)
(setq dyys "monochrome.ctb")
(fa?)(princ))

(defun c:fa11();        1:1打印
(setq dyj "\\\\JSEWEUKPWJJTKFF\\Canon LBP3000")
(setq bili "1:1")
(setq dyys "monochrome.ctb")
(fa?)(princ))

;两点打印
(defun fa?(/ p1 p2 pl)
(setq myprint (defultprint))   
(setq p1 (getpoint "\n指定第一点坐标："))
(setq p2 (getcorner p1 "\n指定第二点坐标："))
(if (> (abs (- (car p1) (car p2))) (abs (- (cadr p1) (cadr p2))))
(setq PL "L")(setq PL "P"))
(command ".plot" "Y" "" dyj "A4" "" PL "N" "W" p1 p2 bili "C" "Y" dyys "Y" "A" "N" "N" "Y")
(princ))

maiko 发表于 2014-10-3 16:37:08

w窗选后应该还有一个参数跟上

maiko 发表于 2014-10-3 16:40:21

直接用秋枫批打不更快?在这里烧脑细胞

669423907 发表于 2014-10-3 17:22:20

maiko 发表于 2014-10-3 16:37 static/image/common/back.gif
w窗选后应该还有一个参数跟上

还望大师明示

669423907 发表于 2014-10-3 17:25:33

maiko 发表于 2014-10-3 16:40 static/image/common/back.gif
直接用秋枫批打不更快?在这里烧脑细胞

临时打印，没有图框

maiko 发表于 2014-10-3 18:25:18

这个没啥用!
自己去调试,在开始处添加
(setq p1 (Getpoint "\r第一点:"))
(setq p2 (Getcorner p1 "\r下一点:"))
.......................
在"W"后添加 P1 P2
.......................

669423907 发表于 2014-10-3 19:00:56

maiko 发表于 2014-10-3 18:25 static/image/common/back.gif
这个没啥用!
自己去调试,在开始处添加
(setq p1 (Getpoint "\r第一点:"))


我上面写错了，(setq bili w)应该为(setq bili f)想要的是布满图纸打印

(setq bili "1:1")是1:1打印

lsjj 发表于 2014-10-3 19:50:51

f 和 "f"是不一樣的

669423907 发表于 2014-10-3 20:46:41

lsjj 发表于 2014-10-3 19:50 static/image/common/back.gif
f 和 "f"是不一樣的

请问该怎么改呢？

669423907 发表于 2014-10-3 21:57:18

谢谢Z版
(setq bili (if bili bili "F"))
页: [1]
查看完整版本: 麻烦大师们帮看一下，在打印时，(setq bili "1:1")可以，(setq bili w)不行