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

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

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

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

学习一下

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

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

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

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

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

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

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

支持一下

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

讨厌的回复

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

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

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

建议第一行多加一句： (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

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

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

[【不死猫】] 秘技-纯Autolisp使用command命令批量*前台*开图关图处理！！可实现多图纸批量打印

[【不死猫】] 秘技-纯Autolisp使用command命令批量前台开图关图处理！！可实现多图纸批量打印