[建议]：请教：自编的一个批量打印lsp，有两个问题总解决不了

yinzhenyu

有几千张图纸要打印，纸张、线宽、比例（偶尔会变）、打印机均不变，因此自编一个简单的非通用批量打印。
现在有两个问题一直弄不明：
1。打印比例要输入“1/80”才能正常打印
2。大家都使用接在“chu”这台电脑上的共享打印机5100，现在有些机子打印很正常，而有些机子却总提示找不到打印机\\Chu\HP LaserJet 5100 PCL 6。
但是使用plot对话框却能正常打印，用命令行手动输入参数却又不行，很头疼。



[PHP]
;;;取得pline图框的包围盒，返回左下角，右上角坐标
;;;返回一个单独图元的范围
   (defun ax:GetBoundingBox (ss / ll ur)
     (vla-getboundingbox (vlax-ename->vla-object ss) 'll 'ur)
     (mapcar 'vlax-safearray->list (list ll ur))
   )

(defun c:mp (/ sc sct  ent aa bd x1 x2 y1 y2 zx ys l n a b h1 as cont)
   (setvar "cmdecho" 0)
   (setq sc (getreal "\n 输入打印比例?<80>"))
   (if (null sc) (setq sc 80))
   (princ "\n")
   (princ "打印机:HP5100、纸张:A4、线宽:aaa\n")
   (princ (strcat "打印比例1:" (rtos sc 2 1)))
   (princ "\n")
   (princ "选择要打印的图框：\n")
   (setq ent (ssget '((-4 . "<OR")(0 . "POLYLINE")(0 . "LWPOLYLINE")(-4 . "OR>"))))
   (setq l 0 n (sslength ent))
(while (< l n)
  (setq a (ssname ent l))
      (setq bd (ax:GetBoundingBox a))
       (setq x1 (caar bd)
             x2 (caadr bd)
             y1 (cadar bd)
             y2 (cadadr bd)
       )
       (setq zx (list  x1 y1))
       (setq ys (list  x2 y2))
(command "-plot" "y" "" "\\Chu\HP LaserJet 5100 PCL 6" "" "A4" "M" "L" "N" "W" zx ys sc "C" "Y" "aaa.ctb" "Y" "N" "N" "N" "y")
  (setq l (+ 1 l))
)
(princ "共 ")(princ n)(princ " 张图打印完毕\n")
  (princ)
)
[/PHP]

小菜

可以尝试生成文件，然后传到打印机上

zml84

建议使用ip替代机器名称；打印机共享名称别留空格。
例如：
\\192.168.1.125\HP5100\

zml84

建议使用ip替代机器名称；打印机共享名称别留空格。
例如：
\\192.168.1.125\HP5100\

yinzhenyu

好的，等我试试。
还有现在比例要输入1/80才能正常打印，导致打印比例显示成0.0125：1，这样很不直观，不知怎么调整？