获得系统打印机!!

lovelilin

各位有没有什么函数可以直接获得我连接的网络打印机的名称如： 我连的是"\\ty04\hp"的打印机怎样在CAD里面不要开启打印的设定对话框，写一个程式就可以把打印机的名称设定我想要的.

秋枫

(vla-get-configname clayout)

alin

下面是我的代码段，仅作参考： (defun CH_PRINTER(/ acaddocument acadobject)
(setq acadobject (vlax-get-acad-object)
acaddocument (vla-get-activedocument acadobject))
(setq layoutsel (vla-get-layouts acaddocument))
(if (/= (vla-get-configname (objsel layoutsel "Paper")) "\\\\CCICAUDIRS2A\\Drawings Printer PS")
(progn
(alert "Current plotter configuration name is not \"Drawings Printer PS\", press ENTER to change...")
(vla-put-configname (objsel layoutsel "Paper") "\\\\CCICAUDIRS2A\\Drawings Printer PS")
)
);end_if
(princ)
)
(defun objsel(cltns objname / temp)
(vlax-for obj cltns
(if (vlax-property-available-p obj 'Name)
(if (= (vla-get-name obj) objname)
(setq temp obj)
)
)
)
(eval temp)
)

BDYCAD

可以用程序上去判出打印机是开了还是关了吗？?