如何判断当前有没有123.ctb打印样式

ymcui 发表于 2014-9-19 09:02:06

Gu_xl 发表于 2014-9-19 10:33:28

本帖最后由 Gu_xl 于 2014-9-19 10:39 编辑

(member(strcase "123.ctb")
(mapcar
'strcase
(vlax-safearray->list
   (vlax-variant-value
   (vla-GetPlotStyleTableNames
      (vla-get-ActiveLayout
         (vla-get-ActiveDocument (vlax-get-acad-object))
      )
   )
   )
)
)
)