admini9 发表于 2020-6-1 10:17:55

自动打印执行后无反应求指教【已解决】

本帖最后由 admini9 于 2020-6-5 15:05 编辑

自己写的打印程序无反应；论坛（http://bbs.mjtd.com/thread-109647-1-1.html）下载的自动打印也无反应没找到问题。
以前打印后出进度条就打印出来了 现在进度条没有执行后无反应。
**********************命令: plp

选取需打印的对象<块>:
选择对象: 找到 1 个

选择对象: 找到 1 个，总计 2 个

选择对象:
2

命令: *取消*

**********************以上执行后命令行的反馈信息。
求大神指教。
求大神指教。
求大神指教。
(defun c:plp (/ a4l aa ll n p1 p2 plot_ss ww zhixing strprint aq fx)
(setvar "osmode" 16384)
(setvar "cmdecho" 0)
(if (=(getvar "PSTYLEMODE" ) 0)
(command "convertpstyles" ""))
(command "UCS" "")
(setq AQ "FUJI XEROX DocuCentre S2110")
(setq zhixing "A4(210x297mm)")
(prompt "\n选取需打印的对象<块>:")
(setq
    plot_ss (ssget
            (list
                (cons 2 "A3,A4")
            )
            )
)
(setq n 0)
(repeat (sslength plot_ss)
    (setq p1 (car (setq a4l (acet-ent-geomextents (ssname plot_ss n)))))
    (setq p2 (cadr a4l))
    (setq ll (abs (- (car p2) (car p1))))
    (setq ww (abs (- (cadr p2) (cadr p1))))
    (if      (> ll ww)
      (setq fx "L")
      (SETQ fx "p"))
      (command "_.PLOT"            "y"             ""
               AQ
               zhixing             "M"             fx
               "N"            "W"             p1
               p2            "f"             "C"
               "y"            "monochrome.ctb"
               "Y"            "W"             "N"
               "Y"            "N"
            )
    (setq n (1+ n))
))                                        ;repeat
(prompt
"\n <<PLP>>图块批量打印*** 完成与2008年"
)
(prin1)

烟盒迷唇 发表于 2020-6-1 11:33:17

应该是command调用PLOT那里出问题了，检查看看有没有错误了。

admini9 发表于 2020-6-1 11:41:21

烟盒迷唇 发表于 2020-6-1 11:33
应该是command调用PLOT那里出问题了，检查看看有没有错误了。

我调试了 没发现问题就是不执行打印。之前调试如有问题命令 PLOT 后提示行会出现很多错误。

烟盒迷唇 发表于 2020-6-1 12:02:17

又仔细看了一下，发现 (setq zhixing "A4(210x297mm)")改为 (setq zhixing "A4")应该就可以了，不要带规格。

admini9 发表于 2020-6-1 15:33:21

本帖最后由 admini9 于 2020-6-1 15:35 编辑

烟盒迷唇 发表于 2020-6-1 12:02
又仔细看了一下，发现 (setq zhixing "A4(210x297mm)")改为 (setq zhixing "A4")应该就可以了，不要带规格 ...
试了下不行改了 纸张型号从纸张型号哪里就开始出错了；我也是纠结了之前这个命令都是可以用的现在不行了找不到原因（打印机是新换的）以下是修改后执行报警情况。

命令: PLP
选取需打印的对象<块>:
选择对象: 找到 1 个
选择对象:
未知命令“M”。按 F1 查看帮助。
未知命令“L”。按 F1 查看帮助。
未知命令“N”。按 F1 查看帮助。
未知命令“W”。按 F1 查看帮助。
未知命令“F”。按 F1 查看帮助。
未知命令“C”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“MONOCHROME.CTB”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“W”。按 F1 查看帮助。
未知命令“N”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“N”。按 F1 查看帮助。
1

烟盒迷唇 发表于 2020-6-1 16:07:47

admini9 发表于 2020-6-1 15:33
试了下不行改了 纸张型号从纸张型号哪里就开始出错了；我也是纠结了之前这个命令都是可以用的现在不行 ...

我改了打印机、纸型、图块名称、command里面最后一个N改为Y就可以了。你试试吧。重点是最后那个N，必须要改为Y，不然没动静了。

admini9 发表于 2020-6-1 16:37:55

烟盒迷唇 发表于 2020-6-1 16:07
我改了打印机、纸型、图块名称、command里面最后一个N改为Y就可以了。你试试吧。重点是最后那个N，必须要 ...

非常感谢就是最后那个N不对 现在可以了

小小的人 发表于 2020-6-3 12:27:22

虽然我不懂   帮你顶一下
页: [1]
查看完整版本: 自动打印执行后无反应求指教【已解决】