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

admini9

自己写的打印程序无反应；论坛（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)

烟盒迷唇

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

admini9

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

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

烟盒迷唇

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

admini9

烟盒迷唇 发表于 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

烟盒迷唇

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

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

admini9

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

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

小小的人

虽然我不懂   帮你顶一下