[求助]：批量打开CAD图形处理

寒光四射 · 发表于 2009-5-5 13:08:38

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

批量打开CAD图形,
打开某一目录下的图形,程序运行处理一系列操作,处理完毕,关掉当前文件,继续打开下一幅.
关闭的时候总出错.或者不能关闭........

hawnn · 发表于 2009-5-5 21:39:08

第一步: 选择所有图元,用"Ssget _X"
第二步: 改变所有图元的图层和颜色用(command "change" ……)
第三步: 存盘用(command "save")
新建图层用 (command "layer" "N"……)
要想图层随层也行把目标层的图层颜色设好，图元转过来后颜色改为Bylayer就OK了
这个。。。我怎么觉得超级简单？
作为一个超级会员，这个……应该难不倒你吧！

寒光四射 · 发表于 2009-5-5 22:03:38

回楼上,不好意思,我是冒牌的'超级会员'啊
有两个问题啊：1，用Bylayer，有的块无法改色
2，几千幅图呢，如何自动打开，处理存盘后，自动关闭
请高手指点，指点

zml84 · 发表于 2009-5-6 13:08:59

ok？

liu_lang · 发表于 2009-5-6 19:12:31

批处理

zctao1966 · 发表于 2009-5-8 22:43:07

zml84版主怎么不说下你是怎么样解决的呢？
期待中。。。

zml84 · 发表于 2009-5-14 08:23:26

使用 lisp 写 scr 文件，然后执行scr 即可。
scr是可以跨图档的。

fl202 · 发表于 2009-5-14 10:15:34

最初由 zml84 发布
[B]使用 lisp 写 scr 文件，然后执行scr 即可。
scr是可以跨图档的。 [/B]

能否详细说下，或者编写个简单的例子？谢谢。

zml84 · 发表于 2009-5-14 19:43:53

[php]
(defun c:dy ()
  (setq lodlen (strlen
   (setq fname1 (getfiled "选择要打印的文件(注意：文件编号只能为一位数)" "f:/" "dwg" 8))
         )
  )
  (setq newlen (- lodlen 5))
  (setq fname (substr fname1 1 newlen))
(setq qsy 1 zzy 0)

  (while (> qsy zzy)
(setq qsy (getint "\n请输入起始页码："))
(setq zzy (getint "\n请输入终止页码："))
  )

  (setq dk (open "C:\\批量打印.scr" "w"))

  (setq dqy qsy) ;将开始页码赋予当前页
  (while (<= dqy zzy)
(if (= dqy qsy)
   (setq cc (strcat "open " fname (itoa dqy)))
   (setq cc (strcat "\nopen " fname (itoa dqy)))
)

(princ cc dk)
(princ cc)
;***************************************************
;(princ "\n(command \"text\" '(12 236) 10 30 \"商丘吴勒线\")" dk)
(princ "\n(command \"-STYLE\" \"standard\" \"宋体\" 4 0.8 0 \"n\" \"n\")" dk)
(princ "\n(command \"_qsave\")" dk)
;****************************************************
;(princ "\ndelay 30000" dk)
;(princ "\ndelay 30000" dk)
;(princ "\ndelay 30000" dk)
;(princ "\ndelay 30000" dk)
;(princ "\ndelay 30000" dk)
;(princ "\ndelay 30000" dk)
;(princ "\ndelay 30000" dk)
;(princ "\ndelay 30000" dk)
;(princ "\ndelay 30000" dk)
;(princ "\ndelay 30000" dk)
;(princ "\ndelay 30000" dk)
(princ "\n(command \"plot\" \"e\" \"\")" dk)
;;*************************************************
(setq dqy (1+ dqy))
  )

  ;(princ "\n(command \"new\" \"\")" dk)

  (princ "\n(alert \"打印完毕！点击<确定>按纽可退出CAD；要继续使用，请按<Esc>键。\")" dk)
  (princ "\t" dk)
  (close dk)

  (command "script"
   "C:\\批量打印.scr"
  )
  (princ)
)
[/php]

qihoho · 发表于 2009-5-19 19:54:33

学习学习

pan20035 · 发表于 2009-5-21 07:31:38

见识到好东西了~

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

[求助] [求助]：批量打开CAD图形处理

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子