[求助]如何获得打印样式表？

yitian519

如何获得打印机的打印样式表？

祥子

<br/>(defun getpltst (/ alay aplt anam li)<br/>  (setq alay (vla-get-activelayout<br/>        (vla-get-activedocument (vlax-get-acad-object))<br/>      )<br/>  )<br/>  (vla-refreshplotdeviceinfo alay)<br/>  (setq anam (vla-GetPlotStyleTableNames alay))<br/>  (setq aplts (vlax-safearray-&gt;list (vlax-variant-value anam))<br/> li    '()<br/>  )<br/>  (if (= (getvar 'PSTYLEMODE )1)<br/>    (foreach n aplts<br/>      (if (wcmatch n "*.ctb")<br/> (setq li (cons n li))<br/>      )<br/>    )<br/>    (foreach n aplts<br/>      (if (wcmatch n "*.stb")<br/> (setq li (cons n li))<br/>      )<br/>    )<br/>  )<br/>  (REVERSE li)<br/>)<br/>

clh521

经测试没有什么问题，我也正需要，谢谢

yitian519

谢谢祥子！！