【请教】有什么函数可以擦看和添加cad打印机

Source_Liu · 发表于 2010-8-22 15:53:00

先擦看有无HP7600 355，没有就添加，用于打印plt文件，不知用什么函数。急

AMTONNY · 发表于 2010-8-22 19:15:00

呵呵，点击打印就好了

Source_Liu · 发表于 2010-8-22 21:50:00

我是说用lisp如何实现！！！

lenlenq · 发表于 2010-8-23 08:18:00

读注册表

xshrimp · 发表于 2010-8-23 08:55:00

;;;取得系统默认打印机:
;;;dos_getprn fsxm-getprn 这个函数思路源自：xshrimp
(defun fsxm-getprn (/ strprint) ;Windows NT
(setq strprint
(vl-registry-read
(strcat
"HKEY_CURRENT_USER\\Software\\Microsoft\"
"Windows NT\\CurrentVersion\\Windows"
)
"Device"
)
)
(substr strprint 1 (vl-string-search "," strprint))
)
;;;取得系统全部打印机:
;;;dos_printers => fsxm-printers
(defun fsxm-printers (/ return wshnetwork printlst i)
(vl-catch-all-apply
'(lambda ()
(setq WshNetwork (vlax-create-object "wscript.Network"))
(setq return (vlax-invoke WshNetwork 'EnumPrinterConnections))
(setq i 1)
(vlax-release-object WshNetwork)
(repeat (/ (vlax-get return 'length) 2)
(setq printlst (cons (vla-item return i) printlst))
(setq i (+ 2 i))
)
)
)
printlst
)
;;;设置系统默认打印机:
;;;dos_setprn => fsxm-setprn
(defun fsxm-setprn (printername / wshnetwork)
(if (null
(vl-catch-all-apply
'(lambda ()
(setq WshNetwork (vlax-create-object "wscript.Network"))
(vlax-invoke WshNetwork 'SetDefaultPrinter printername)
)
)
)
t
)
)

;;;取得系统默认打印机:
;;;dos_getprn  fsxm-getprn 这个函数思路源自：xshrimp
(defun fsxm-getprn (/ strprint)  ;Windows NT
  (setq strprint
  (vl-registry-read
    (strcat
      "HKEY_CURRENT_USER\\Software\\Microsoft\"
      "Windows NT\\CurrentVersion\\Windows"
    )
    "Device"
  )
  )
  (substr strprint 1 (vl-string-search "," strprint))
)
;;;取得系统全部打印机:
;;;dos_printers => fsxm-printers
(defun fsxm-printers (/ return wshnetwork printlst i)
  (vl-catch-all-apply
    '(lambda ()
       (setq WshNetwork (vlax-create-object "wscript.Network"))
       (setq return (vlax-invoke WshNetwork 'EnumPrinterConnections))
       (setq i 1)
       (vlax-release-object WshNetwork)
       (repeat (/ (vlax-get return 'length) 2)
  (setq printlst (cons (vla-item return i) printlst))
  (setq i (+ 2 i))
       )
     )
  )
  printlst
)
;;;设置系统默认打印机:
;;;dos_setprn => fsxm-setprn
(defun fsxm-setprn (printername / wshnetwork)
  (if (null
 (vl-catch-all-apply
   '(lambda ()
      (setq WshNetwork (vlax-create-object "wscript.Network"))
      (vlax-invoke WshNetwork 'SetDefaultPrinter printername)
    )
 )
      )
    t
  )
)

xshrimp · 发表于 2010-8-23 08:56:00

;| (getlocprns) = 获取本地打印机. --------by 狂刀.2007.8
返回: (打印机名1 端口1 印机名2 端口2....) 列表
实例:
(getlocprns)
;返回: ("Canon BJC-6500 (BJRSTR)" "LPT1:" "hp deskjet 695c series" "LPT1:")
|;
(defun getlocprns (/ wsn prn i lst)
(setq wsn (vla-GetInterfaceObject (vlax-get-acad-object)
"WScript.Network")
prn (vlax-invoke wsn 'EnumPrinterConnections)
i -1)
(repeat (vlax-invoke-method prn 'count)
(setq lst (cons (vla-item prn (setq i (1+ i))) lst))
)
)

Source_Liu · 发表于 2010-8-23 13:10:00

谢谢！！！非常好的程序。但是我的hp7600 355 是acad打印机，由文件->打印机管理器内添加的。不是windows系统打印机。请问如何查找。如果没有时，还要自动添加打印机。不知道

如何添加

xshrimp · 发表于 2010-8-23 15:13:00

查看命令: -plot是否需要详细打印配置？[是(Y)/否(N)] <否>: y
输入布局名或 [?] <布局1>:输入输出设备的名称或 [?] <HP Designjet 4020 HPGL2.pc3>: ?
可用打印设备。 "pdfFactory Pro" "Microsoft XPS Document Writer" "\\Czmy-rtx\HP Designjet 4020 HPGL2" "\\Czmy-rtx\HP5200" "\\Czmy-rtx\Kyocera KM-4850w" "A0图纸.pc3" "A1图纸.pc3" "A2图纸.pc3" "Default Windows System Printer.pc3" "DWF6 ePlot.pc3" "HP Designjet 4020 HPGL2.pc3" "KM-4850w.pc3" "pdfFactory Pro.pc3" "

ublishToWeb JPG.pc3" "

ublishToWeb PNG.pc3"

(defun Plots ()(VL-LOAD-COM)
(setq AcadObject (vlax-get-acad-object)
AcadDocument (vla-get-ActiveDocument AcadObject)
mSpace (vla-get-ModelSpace AcadDocument)
)
(setq preferenceSel (vla-get-Preferences AcadObject))
(setq ACADPref (vla-get-Files preferenceSel))
(setq originaValue (vla-get-PrinterConfigPath ACADPref))
(vl-directory-files originaValue ".pc3" 1)
)

账号		自动登录	找回密码
密码			注册