[编程交流] 获取打印样式名称列表

[color=RED]([/color][color=BLUE]defun[/color] c:getplotstyles [color=RED]([/color] [color=BLUE]/[/color] pstyp psdir pslst[color=RED])[/color]
 [color=RED]([/color][color=BLUE]setq[/color] 
   pstyp [color=RED]([/color][color=BLUE]getvar[/color] [color=#a52a2a]"PSTYLEMODE"[/color][color=RED])[/color]
   psdir [color=RED]([/color][color=BLUE]vla-get-printerstylesheetpath[/color] [color=RED]([/color][color=BLUE]vla-get-Files[/color] [color=RED]([/color][color=BLUE]vla-get-Preferences[/color] [color=RED]([/color][color=BLUE]vlax-get-Acad-object[/color][color=RED]))))[/color]
 [color=RED])[/color]
 [color=RED]([/color][color=BLUE]if[/color] [color=RED]([/color][color=BLUE]=[/color] pstyp [color=#009900]1[/color][color=RED])[/color]
   [color=RED]([/color][color=BLUE]setq[/color] pslst [color=RED]([/color][color=BLUE]vl-directory-files[/color] psdir [color=#a52a2a]"*.ctb"[/color] [color=#009900]1[/color][color=RED]))[/color]
   [color=RED]([/color][color=BLUE]setq[/color] pslst [color=RED]([/color][color=BLUE]vl-directory-files[/color] psdir [color=#a52a2a]"*.stb"[/color] [color=#009900]1[/color][color=RED]))[/color]
 [color=RED])[/color]
 [color=RED]([/color][color=BLUE]princ[/color] pslst[color=RED])[/color]
[color=RED])[/color]

    (setq Layout (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object))))
   (vlax-safearray->list (vlax-variant-value (vla-GetPlotStyleTableNames Layout)))

(vlax-safearray->list (vlax-variant-value (vla-GetPlotStyleTableNames Layout)))

(vlax-invoke Layout 'GetPlotStyleTableNames)

(vlax-safearray->list)
(vlax-variant-value)
(vlax-invoke)

[color=RED]([/color][color=BLUE]defun[/color] c:getplotstyles [color=RED]([/color] [color=BLUE]/[/color] [color=RED])[/color]
 [color=RED]([/color][color=BLUE]princ[/color]
   [color=RED]([/color][color=BLUE]vl-member-if[/color] 
     [color=DARKRED]'[/color][color=RED]([/color][color=BLUE]lambda[/color] [color=RED]([/color]x[color=RED])[/color] [color=RED]([/color][color=BLUE]wcmatch[/color] x [color=RED]([/color][color=BLUE]nth[/color] [color=RED]([/color][color=BLUE]getvar[/color] [color=#a52a2a]"PSTYLEMODE"[/color][color=RED])[/color][color=DARKRED]'[/color][color=RED]([/color][color=#a52a2a]"*.stb"[/color] [color=#a52a2a]"*.ctb"[/color][color=RED]))))[/color] 
     [color=RED]([/color][color=BLUE]vlax-invoke[/color]
       [color=RED]([/color][color=BLUE]vla-get-activelayout[/color] [color=RED]([/color][color=BLUE]vla-get-activedocument[/color] [color=RED]([/color][color=BLUE]vlax-get-acad-object[/color][color=RED])))[/color]
       [color=DARKRED]'[/color]getplotstyletablenames
     [color=RED])[/color]
   [color=RED])[/color]
 [color=RED])[/color]
[color=RED])[/color]

7