社区 › AutoLISP/Visual LISP 编程技术 › 秘技-纯Autolisp使用command命令批量*前台*开图关图处理！！可实现多图纸批量打印

yunfengning 发表于 2013-12-17 12:56:55

借此应可以实现批量打印，大家可以自行测试

cad1111 发表于 2013-12-17 13:16:49

学习一下

EL_JAY 发表于 2013-12-17 13:50:58

一定要看看。。。。。。。

yjtdkj 发表于 2013-12-17 17:04:55

一般说都是少用或不用COMMAND，你是反其道行之啊

ggdlove 发表于 2013-12-17 17:36:21

老猫的好东西，要顶才能看的。

pzweng 发表于 2013-12-17 17:41:11

支持一下

mandala 发表于 2013-12-17 18:16:06

讨厌的回复

flowerson 发表于 2013-12-17 19:28:02

猫老师 又出新东西了！出差今天，错过了最热闹的时间.

flowerson 发表于 2013-12-17 19:57:01

建议 第一行多加一句： (command "qsave") 要不在画图还没有保存时候测试总是出现 请回答“是”或“否”。
; 错误: 函数被取消
是否确实要放弃对图形所做的全部修改？? <N>

当然一般很少人不保存原图就测试的。刚刚我试试是这样。

(defun c:tt ()
(command "qsave")
(setq color 3)
(setvar "sdi" 1)
(setvar "lispinit" 0)
(setq files (list "drawing1.dwg" "drawing2.dwg" "drawing3.dwg"))
(foreach file files
    (command "open")
    (command (strcat "c:\\" file))
    (-批量修改图纸 color)
)
(setvar "sdi" 0)
(setvar "lispinit" 1)
(command "close")
)

FANGZHENG158 发表于 2013-12-17 21:28:48

回复，认真学习猫老师的大作！

查看完整版本: 秘技-纯Autolisp使用command命令批量*前台*开图关图处理！！可实现多图纸批量打印