[求助]：取得当前打印机、纸型、打印式样的问题

nore

在秋枫斑竹的batchplot程序中能直接输出当前图形的打印机、纸型、打印式样等
本人怎么也弄不出来，请问各位知道用的是什么方法啊？能不能得到打印机列表呢？

wufeizhi

;;;提取当前的打印设置
(defun getclayout ( /  clayout
                    currentlayout currentplotConfiguration ass *mm* plotlayout)
  (setq
    clayout (vla-get-activelayout (vla-get-ActiveDocument (vlax-get-acad-object)))
    )
   (vlax-dump-object clayout T)
  (setq currentlayout (vlax-vla-object->ename clayout)
        currentplotConfiguration (entget currentlayout)
        ass '(2 4 6 7 40 41 42 43 44 45 46 47 48 49 140 141 142 143 147 148 149 70 72 73 74 75)
        plotlayout '()
        )
    (ForEach *mm* ass             
      (SetQ  plotlayout  (Cons (assoc *mm* currentplotConfiguration) plotlayout))
    )
  (vl-bb-set 'plotlayout  plotlayout)
)
;;;复制打印设置
(defun copyclayout ( /  clayout
                    currentlayout currentplotConfiguration plotlayout)
  (setq
    clayout (vla-get-activelayout (vla-get-ActiveDocument (vlax-get-acad-object)))
    )
  (setq currentlayout (vlax-vla-object->ename clayout)
        currentplotConfiguration (entget currentlayout))
  (setq plotlayout (vl-bb-ref 'plotlayout ))
  (ForEach *mm* plotlayout             
   (setq currentplotConfiguration (subst *mm* (assoc (car *mm*)  currentplotConfiguration) currentplotConfiguration))
    )
  (entmod currentplotConfiguration)
)

userzhluserzhl

不明白楼主这样做有什么用途？