简易的批量打印

统一网名

代码是通过学习自己拼凑的，如果有侵权请联系删除。

统一网名

south 发表于 2023-9-7 15:42
我也说不上来，大概就是识别pline,line,rectang的外框去打印

你说的功能最后只能一个一个点选，不像图框可以按名称框选 ，你也可以选先把矩形框 转换成你图框。

muai2010

未知命令“C”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“CTB”。按 F1 查看帮助。
未知命令“PP”。按 F1 查看帮助。
未知命令“PP”。按 F1 查看帮助。
未知命令“N”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“PP”。按 F1 查看帮助。
未知命令“L”。按 F1 查看帮助。
未知命令“PP”。按 F1 查看帮助。
未知命令“W”。按 F1 查看帮助。
未知命令“F”。按 F1 查看帮助。
未知命令“C”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“CTB”。按 F1 查看帮助。
未知命令“PP”。按 F1 查看帮助。
未知命令“PP”。按 F1 查看帮助。
未知命令“N”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“PP”。按 F1 查看帮助。
未知命令“L”。按 F1 查看帮助。
未知命令“PP”。按 F1 查看帮助。
未知命令“W”。按 F1 查看帮助。
未知命令“F”。按 F1 查看帮助。
未知命令“C”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“CTB”。按 F1 查看帮助。
未知命令“PP”。按 F1 查看帮助。
未知命令“PP”。按 F1 查看帮助。
未知命令“N”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“PP”。按 F1 查看帮助。
未知命令“L”。按 F1 查看帮助。
未知命令“PP”。按 F1 查看帮助。
未知命令“W”。按 F1 查看帮助。
未知命令“F”。按 F1 查看帮助。
未知命令“C”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“CTB”。按 F1 查看帮助。
未知命令“PP”。按 F1 查看帮助。
未知命令“PP”。按 F1 查看帮助。
未知命令“N”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“PP”。按 F1 查看帮助。
未知命令“L”。按 F1 查看帮助。
未知命令“PP”。按 F1 查看帮助。
未知命令“W”。按 F1 查看帮助。
未知命令“F”。按 F1 查看帮助。
未知命令“C”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“CTB”。按 F1 查看帮助。
未知命令“PP”。按 F1 查看帮助。
未知命令“PP”。按 F1 查看帮助。
未知命令“N”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“PP”。按 F1 查看帮助。
未知命令“L”。按 F1 查看帮助。
未知命令“PP”。按 F1 查看帮助。
未知命令“W”。按 F1 查看帮助。
未知命令“F”。按 F1 查看帮助。
未知命令“C”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“CTB”。按 F1 查看帮助。
未知命令“PP”。按 F1 查看帮助。
未知命令“PP”。按 F1 查看帮助。
未知命令“N”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。

统一网名

xieling888 发表于 2023-12-15 16:28
选择对象:
未知命令“PP”。按 F1 查看帮助。
未知命令“L”。按 F1 查看帮助。

cad 版本高于2020的话把
(command "-plot"  "y"  ""   dyj  tufu  ""  st
                                                ""   "W"  P1    P2   "F"  "C"      "Y"
                                                dyys  ""    ""   "N"  "Y"    "Y"
                                        )               
代码中 的 command 换成 command-s 试一下，若不是只有自己摸索一下。

zm880928

我怎么一用就死机了，还有，打印机总说回复默认，我设置好了，再打开，还是默认

统一网名

zm880928 发表于 2023-9-6 13:11
我怎么一用就死机了，还有，打印机总说回复默认，我设置好了，再打开，还是默认

看代码里面的注释内容自己改一下，改成你的打印机名称，其它的应当没有啥问题。
(setq mr1 "EPSON L1800 Series")
;向打印机列表中 加入想要的默认打印机，作用是吧该打印机放在列表的第一位，当初加这行代码是因为自己默认的打印机不是显示在第一位每次还要手选。
(if (= dyj nil)(setq dyj "EPSON L1800 Series"));当你没有选择打印机默认用列表第一个打印机时 dyj 是空的，设置 dyj 为列表第一个打印机。

F海市蜃楼

怎么选择不了A1和A2的，而且在布局选择图框显示0个打印对象

zm880928

好像选不中对象啊，怎么样才能选中呢

统一网名

F海市蜃楼 发表于 2023-9-6 15:06
怎么选择不了A1和A2的，而且在布局选择图框显示0个打印对象

label = \"A1\" ;
key = \"d_A1\" ;
is_enabled = false ;
}"


把对话框文件 中  is_enabled = false ; 删除了就可以 选A1,A2了，
(if (or(= tkmz "hzA3h")(= tkmz "hzA3s")(= tkmz "hztk")(= tkmz "DSDSAD")(= tkmz "hzjxk"));判断图框名字来过滤图框，把这里的图框名称换成你的图框名称       

行天下

PP
未知命令“PP”。按 F1 查看帮助。
未知命令“N”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。
未知命令“Y”。按 F1 查看帮助。

怎么回事呢

xiangganglv

这简易代码需要一定脚本基础。

统一网名

行天下 发表于 2023-9-6 17:04
PP
未知命令“PP”。按 F1 查看帮助。
未知命令“N”。按 F1 查看帮助。

可能是版本问题吧，我的是 win7系统，cad2020

• (command "-plot"  "y"  ""   dyj  tufu  ""  st
•             ""   "W"  P1    P2   "F"  "C"      "Y"
•             dyys  ""    ""   "N"  "Y"    "Y"
•           )  
• 出现的"N" "Y" 应该是 "-plot" 命令的参数，也就是 "-plot" 命令的问题。
  

cfc

感谢分享！