明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 10020|回复: 34

[资源] 获取打印机以及相应纸张(更新为批量打印,附件在15楼)

  [复制链接]
发表于 2014-6-9 01:40 | 显示全部楼层 |阅读模式
本帖最后由 feng582304 于 2014-11-12 01:12 编辑
  1. (defun feng:plot ( / layout file dcl nameli sizeli pr )
  2.   (setq layout (vla-get-ActiveLayout (vla-get-ActiveDocument (vlax-get-acad-object)))
  3.         file (open (setq dcl (VL-FILENAME-MKTEMP nil nil ".dcl")) "w")
  4.         )
  5.   (WRITE-LINE
  6.     "plot:dialog {\n
  7.     label = "打印配置" ;\n
  8.     width = 100 ;\n
  9.     :row {\n
  10.         :list_box {\n
  11.             label = "打印机名称:" ;\n
  12.             key = "name" ;\n
  13.         }
  14.         :list_box {\n
  15.         label = "纸张:" ;\n
  16.             key = "size" ;\n
  17.             height = 50 ;\n
  18.         }\n
  19.     }\n
  20.     ok_cancel;\n
  21.     }\n"
  22.     file
  23.     )
  24.   (close file)
  25.   (NEW_DIALOG "plot" (LOAD_DIALOG dcl))
  26.   (START_LIST "name")
  27.   (MAPCAR 'ADD_LIST (setq nameli (cdr (vlax-safearray->list (vlax-variant-value (vla-GetPlotDeviceNames layout))))))
  28.   (END_LIST)
  29.   (ACTION_TILE "name" "(setq sizeli (feng:plot:size layout nameli $VALUE))")
  30.   (ACTION_TILE "accept" "(setq pr (list (GET_TILE "name") (GET_TILE "size"))) (DONE_DIALOG 1)")
  31.   (if (= (START_DIALOG) 1) (princ (setq pr (MAPCAR 'nth (MAPCAR 'atoi pr) (list nameli sizeli)))))
  32.   )
  33. (defun feng:plot:size ( layout li nu / sizeli )
  34.   (vla-put-ConfigName layout (nth (atoi nu) li))
  35.   (vla-RefreshPlotDeviceInfo layout)
  36.   (START_LIST "size")
  37.   (MAPCAR 'ADD_LIST (setq sizeli (MAPCAR '(LAMBDA (x) (vla-GetLocaleMediaName layout x)) (vlax-safearray->list (vlax-variant-value (vla-GetCanonicalMediaNames layout))))))
  38.   (END_LIST)
  39.   sizeli
  40.   )

评分

参与人数 4明经币 +4 收起 理由
tigcat + 1 很给力!
ucuc2003 + 1 很给力!试用很不错!
smartstar + 1 很给力!
edata + 1 很好程序

查看全部评分

本帖被以下淘专辑推荐:

发表于 2020-12-16 12:21 | 显示全部楼层
feng582304 发表于 2014-11-12 01:11
之前的代码中的横竖向判断有点问题,修改了另一种判断方式,应该说现在比较理想可靠。只提供布满比例的打印 ...

不足之后就是无法保存打印设置
建议大师再增加保存设置
如CAD中选择上次打印一样
就算保存在当前图中也好
谢谢
发表于 2021-9-25 10:52 | 显示全部楼层
feng582304 发表于 2014-11-12 01:11
之前的代码中的横竖向判断有点问题,修改了另一种判断方式,应该说现在比较理想可靠。只提供布满比例的打印 ...

留着备用,需要批量打印源代码
发表于 2022-9-22 13:08 | 显示全部楼层

多谢楼主分享批量打印源码
发表于 2014-6-9 09:35 | 显示全部楼层
试用了下,效果不错,感谢楼主的分享

点评

客气,客气  发表于 2014-6-9 22:36
发表于 2014-6-9 10:46 | 显示全部楼层
很实用的程序,对于经常打印来说,结合其他源码,可以用来快速设置,判断。。。。
 楼主| 发表于 2014-6-9 22:35 | 显示全部楼层
edata 发表于 2014-6-9 10:46
很实用的程序,对于经常打印来说,结合其他源码,可以用来快速设置,判断。。。。

跟我想到一块去了!!!我就是想把之前的批量打印整合一下,使得兼容性更好一点。
发表于 2014-6-9 22:52 | 显示全部楼层
论坛有个打印配置设置的软件
http://bbs.mjtd.com/forum.php?mo ... &fromuid=338795
也很不错。。。
论坛还有秋枫的批量源码。。
论坛因为你们,资源丰富啊。。。
发表于 2014-6-10 15:22 | 显示全部楼层
好像          不会用呢
发表于 2014-9-9 18:35 | 显示全部楼层
怎么修改或增加打印机的纸张设置呢?
发表于 2014-9-9 19:36 | 显示全部楼层
不错,就是纸规格多时,有点慢
 楼主| 发表于 2014-9-18 22:52 | 显示全部楼层
hnfsf 发表于 2014-9-9 18:35
怎么修改或增加打印机的纸张设置呢?

修改或增加应该在打印机特性里弄吧,这个是获取列表的一种方式
发表于 2014-9-19 08:19 | 显示全部楼层
多谢多谢,我找了好久的代码终于有了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 15:51 , Processed in 0.181318 second(s), 30 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表