aihuyujian 发表于 2015-5-6 17:41:22

感觉把command里面名字那一步用(strcat "name" (vl-princ-to-string i))代替 这样循环的时候就不会覆盖了吧

zzyong00 发表于 2015-5-6 22:06:54

用图纸集功能，发布为pdf，一键搞定

ucuc2003 发表于 2015-5-7 00:53:20

顶起来，学习下源码！

wenhua 发表于 2015-5-7 07:54:02

aihuyujian 发表于 2015-5-6 17:41 static/image/common/back.gif
感觉把command里面名字那一步用(strcat "name" (vl-princ-to-string i))代替 这样循环的时候就不会覆盖了吧

谢谢，但用command命令，没有输入名字啊，名字是默认的

Casa小宝 发表于 2015-5-7 12:06:32

可以参考下我的帖子 http://bbs.mjtd.com/thread-107692-1-1.html

ygp820601 发表于 2015-5-7 16:20:14

(vl-file-copy pdffile filename)
pdffile是打印生成的文件
filename是你指定的文件名
当然都是有路径的，如：
(setq pdffile (strcat "C:\\Documents and Settings\\Administrator\\My Documents\\" (vl-filename-base (GETVAR "DWGNAME")) " "(getvar 'ctab)" (1).pdf"))
(setq filename (strcat dir (substr (acet-dxf 1 ent) (+ gn 1)) "-" (vl-filename-base (GETVAR "DWGNAME")) ".pdf"))
(setq filename (strcat dir "G" (acet-dxf 1 ent) "-" (vl-filename-base (GETVAR "DWGNAME")) ".pdf"))

wenhua 发表于 2015-5-8 09:21:33

ygp820601 发表于 2015-5-7 16:20 static/image/common/back.gif
(vl-file-copy pdffile filename)
pdffile是打印生成的文件
filename是你指定的文件名


非常感谢，我烦恼了十几天没解决的问题您三句就给我解决了！再次谢谢

wenhua 发表于 2015-5-8 09:23:58

问题彻底解决了，谢谢各位大家的热心，感谢高手的指点

林小林子 发表于 2017-11-2 19:16:48

vladimirputin 发表于 2017-11-6 14:07:38

批量打印确实很不错，谢谢啊
页: 1 [2]
查看完整版本: lisp编程：请问高手们，CAD批量打印时能实现不弹出对话框、自动命名和保存吗？