获取打印样式列表

yufeng37 · 发表于 2017-6-2 21:14:00

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 yufeng37 于 2017-6-2 21:17 编辑

学习了http://bbs.xdcad.net/thread-371176-1-1.html中获取打印机列表的方法，
我改写了2行，可以获取到完整的打印样式列表。
感谢原作者。
举个例子： (printers2)

("acad.stb" "Autodesk-Color.stb" "Autodesk-MONO.stb" "monochrome.stb" "20160119ACS默认打印样式.ctb" "A3DY.ctb" "acad.ctb" "DWF Virtual Pens.ctb" "Fill Patterns.ctb" "Grayscale.ctb" "monochrome.ctb" "Screening 100%.ctb" "Screening 25%.ctb" "Screening 50%.ctb" "Screening 75%.ctb" "THvac20.ctb" "TWT.ctb" "TWT20.ctb")

(defun ax:GetPlotStyleTableNames ()
  (vlax-safearray->list
(vlax-variant-value
   (vla-GetPlotStyleTableNames
      (vla-item (vla-get-layouts
                  (vla-get-activedocument (vlax-get-acad-object))
               ) ;_ 结束vla-get-layouts
               "Model"
      ) ;_ 结束vla-item
   ) ;_ 结束vla-getplot
) ;_ 结束vlax-variant-value
  ) ;_ 结束vlax-safearray->list
) ;_ 结束defun
(defun printers2       ()
  (setq printer (ax:GetPlotStyleTableNames))
) ;_ 结束defun

dnbcgrass · 发表于 2017-6-2 21:18:27

回复学习学习！

Lisphk · 发表于 2017-6-2 21:36:33

谢谢楼主，学习

laiz3000 · 发表于 2017-6-2 22:10:18

谢谢楼主，学习一下

itoboy · 发表于 2017-6-2 22:42:57

来学习学习

sicky111 · 发表于 2017-6-3 00:04:24

谢谢分享。

longer1000 · 发表于 2017-6-3 00:15:26

回复学习学习！

pxt2015 · 发表于 2017-6-3 07:26:44

希望楼主再接再厉，罗列相关函数：系统打印机列表，创建页面设置，当前打印机，当前打印机对应的图纸列表。

HLCAD · 发表于 2017-6-3 07:58:53

回复，向楼主学习！

yzhyxh · 发表于 2017-6-3 08:04:30

ymcui2005 · 发表于 2017-6-3 13:55:15

回复学习学习！

508000096 · 发表于 2017-6-3 19:31:11

不知这里面有没有我所要的。

819534890 · 发表于 2017-6-4 22:34:38

回复学习学习

qyming1996 · 发表于 2017-6-5 13:39:30

学习学习！

monianfly1 · 发表于 2017-6-6 10:44:01

学习下........

账号		自动登录	找回密码
密码			立即注册

[每日一码] 获取打印样式列表

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分