【K:GetPlotStyleLst 】获取打印样式表名称

kucha007

打印样式表全获取会包含stb，利用系统变量判断当前文件的样式模式，然后过滤样式表。
秋枫大佬的批量打印只能选择ctb，估计就是这里做判断了

1. (defun K:GetPlotStyleLst (/ DOC Layout ALLPlotStyleLst)
   
2.   (vl-load-com)
   
3.   (setq DOC    (vla-get-ActiveDocument (vlax-get-acad-object))
   
4.         Layout (vla-get-activeLayout DOC)
   
5.   )
   
6.   (vla-RefreshPlotDeviceInfo Layout) ;更新打印机、规范介质和打印样式表信息
   
7.   (setq ALLPlotStyleLst (vlax-safearray->list (vlax-variant-value (vla-GetPlotStyleTableNames layout)))) ;获取<打印样式>列表
   
8.   ;从列表中移除不含关键词的字符串
   
9.   (defun k:Remove-NoChar (Lst Char / item NewLst)
   
10.     (setq NewLst '())
    
11.     (foreach item Lst
    
12.       (if (vl-string-search (strcase Char) (strcase item))
    
13.         (setq NewLst (cons item NewLst))
    
14.       )
    
15.     )
    
16.     (reverse NewLst)
    
17.   )
    
18.   (if (= (getvar "PSTYLEMODE") 1);CTB颜色样式表
    
19.     (princ (k:Remove-NoChar ALLPlotStyleLst ".ctb"))
    
20.     (princ (k:Remove-NoChar ALLPlotStyleLst ".stb"))
    
21.   )
    
22.   (princ)
    
23. )
    

(defun K:GetPlotStyleLst (/ DOC Layout ALLPlotStyleLst) <br />   (vl-load-com)<br />   (setq DOC    (vla-get-ActiveDocument (vlax-get-acad-object))<br />         Layout (vla-get-activeLayout DOC)<br />   )<br />   (vla-RefreshPlotDeviceInfo Layout) ;更新打印机、规范介质和打印样式表信息<br />   (setq ALLPlotStyleLst (vlax-safearray->list (vlax-variant-value (vla-GetPlotStyleTableNames layout)))) ;获取<打印样式>列表<br />   ;从列表中移除不含关键词的字符串<br />   (defun k:Remove-NoChar (Lst Char / item NewLst) <br />     (setq NewLst '())<br />     (foreach item Lst <br />       (if (vl-string-search (strcase Char) (strcase item)) <br />         (setq NewLst (cons item NewLst))<br />       )<br />     )<br />     (reverse NewLst)<br />   )<br />   (if (= (getvar "PSTYLEMODE") 1);CTB颜色样式表<br />     (princ (k:Remove-NoChar ALLPlotStyleLst ".ctb"))<br />     (princ (k:Remove-NoChar ALLPlotStyleLst ".stb"))<br />   )<br />   (princ)<br /> )<br />

wangsr

有点看不明白。