关于打印的问题

Andyhon

还得回归到 myprint 的对映上
您得 榫接好

llsheng_73

注册表里边读取到的打印设备它能一定和你的CAD里边所能用的打印设备名称完全一致么，现在看样子好象是其中一个跟CAD里边的有一台打印机它名称不一样？

simpleye

感谢各位，这个问题我已解决了，呵呵，就是把"A4"改成""，具体原因我也不太清楚。

669423907

楼主你好，请问如何将下面的打印程序改成自动获取系统打印机呢？
我不会改，诚请帮忙，谢谢

;蓝色横打
(defun c:fa()
(setq ss(ssget '((8 . "打印框"))))
(setq n 0)
(repeat (sslength ss)
(setq en (ssname ss n))
(setq obj (vlax-ename->vla-object en))
(vla-GetBoundingBox obj 'minpt 'maxpt)
(setq minPt (vlax-safearray->list minPt))
(setq maxPt (vlax-safearray->list maxPt))
(setq minptx (car minpt))
(setq minpty (cadr minpt))
(setq maxptx (car maxpt))
(setq maxpty (cadr maxpt))
(if (< (- maxptx minptx) (- maxpty minpty))
(dayin5 minpt maxpt)
(dayin6 minpt maxpt))
(setq n (1+ n)))(PRINC))
(defun dayin5(p1 p2);打印机名称,纸张,毫米,横向,反向,窗口,范围(P1,P2),布满,居中,按打印样式,线宽,按显示,不打印到文件,保存,继续打印
(command "plot" "y" "模型" "\Canon iP1100 series" "A4" "M" "P" "y" "W" P1 P2 "F" "C" "Y" "DWF Virtual Pens.ctb" "y" "a" "n" "y" "y"))
(defun dayin6(p1 p2)
(command "plot" "y" "模型" "\Canon iP1100 series" "A4" "M" "L" "y" "W" P1 P2 "F" "C" "Y" "DWF Virtual Pens.ctb" "y" "a" "n" "y" "y"))

simpleye

代码我放出来了，在8楼，自动获取系统打印机，横向，纵向也自动识加别。

669423907

simpleye 发表于 2013-3-29 12:30
代码我放出来了，在8楼，自动获取系统打印机，横向，纵向也自动识加别。

真的不会改吖

simpleye

669423907 发表于 2013-3-29 10:11
楼主你好，请问如何将下面的打印程序改成自动获取系统打印机呢？
我不会改，诚请帮忙，谢谢

   (defun defultprint (/ device)
      (vl-load-com)
     (substr (setq device
      (vl-registry-read
        "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Windows"
        "Device"
      )
      )
      1
      (vl-string-search "," device)
     )
   )
   
(defun c:fa()
(setq ss(ssget '((8 . "打印框"))))
(setq n 0)
(repeat (sslength ss)
(setq en (ssname ss n))
(setq obj (vlax-ename->vla-object en))
(vla-GetBoundingBox obj 'minpt 'maxpt)
(setq minPt (vlax-safearray->list minPt))
(setq maxPt (vlax-safearray->list maxPt))
(setq minptx (car minpt))
(setq minpty (cadr minpt))
(setq maxptx (car maxpt))
(setq maxpty (cadr maxpt))
(if (< (- maxptx minptx) (- maxpty minpty))
(dayin5 minpt maxpt)
(dayin6 minpt maxpt))
(setq n (1+ n)))(PRINC))
(defun dayin5(p1 p2);打印机名称,纸张,毫米,横向,反向,窗口,范围(P1,P2),布满,居中,按打印样式,线宽,按显示,不打印到文件,保存,继续打印
(setq myprint (defultprint))
(command "plot" "y" "模型" myprint "A4" "M" "P" "y" "W" P1 P2 "F" "C" "Y" "DWF Virtual Pens.ctb" "y" "a" "n" "y" "y"))
(defun dayin6(p1 p2)
(setq myprint (defultprint))
(command "plot" "y" "模型" myprint "A4" "M" "L" "y" "W" P1 P2 "F" "C" "Y" "DWF Virtual Pens.ctb" "y" "a" "n" "y" "y"))

669423907

simpleye 发表于 2013-3-29 20:56
(defun defultprint (/ device)
      (vl-load-com)
     (substr (setq device

非常感谢你的帮助

guisu771

我估计是纸张配对问题，，你重点查一下


"A4" 对某些打印机可以，，对某些型号的打印机是不行的，程序要求完全匹配，，差一个空格都不行的
你查”打印机““首选项”里面的东东看看，，

我以前编A3打印机碰到过类似问题，，A4的没编过，，是估计的，，不一定对