[求助]：用LISP控制打印可不可以?

tjchkys

是否可以用LISP编写代码的方法控制打印输出呢?

比如可以用程序指定窗选的左下角和右上角坐标

纸张大小的设置,打印份数等等

可不可以呀?

dulinlin

用LISP控制打印是不是麻烦了一点,直接用CTRL+p就行,可以设打印份数

ljpnb

参考一下，这是我在用的。
[php]
(DEFUN C:test ()
  (setq p1 (getpoint "\n 请选择打印范围的第一点:"))
  (setq p2 (getcorner p1 "\n 请选择打印范围的第二点:"))
  (setq l1 (abs (- (car p2) (car p1))))
  (setq l2 (abs (- (cadr p2) (cadr p1))))
  (setq aa "\\\\mjb-3\\hp laserjet 1010")
  (if (> l1 l2)
    (command "-plot"           "y"          ""         aa        ""     ""     "L"
             ""            "W"           P1          P2         "F"        "center"      "Y"
             "acad.ctb"           ""          ""         "N"        "Y"    "Y"
            )
    (command "-plot"           "y"          ""         aa        ""     ""     "p"
             ""            "W"           P1          P2         "F"        "center"      "Y"
             "acad.ctb"           ""          ""         "N"        "Y"    "Y"
            )

  )
  (princ)
)
  [/php]