有没有图纸批量写块，新块名称为原来图名的程序？
今天找了一下午的图纸瘦身方法，发现都不太理想，反而是简单的wblock命令最有效！（能把图纸大小减为50%左右！）但是用这种方式有点麻烦：1.需要一张一张开图
2.需要重命名（否则出现一大堆“新块”）
有没有这样的程序，运行之后选择文件或者文件夹，把里面的dwg图形批量打开--全图block--重命名为原来图纸名称另存一个文件夹（或者加前缀“压缩-”保存在原来文件夹）
很想发悬赏，但是就2个币了，拿不出手，希望大神以拯救苍生为己任，为了广大CAD画图人员造福
要善用论坛搜索功能。
这个估计刚好是楼主要找的。
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=52271 wowan1314 发表于 2012-8-14 16:40 static/image/common/back.gif
要善用论坛搜索功能。
这个估计刚好是楼主要找的。
苍天有眼，我找了大半天~~~这个用用起来还是有问题： 错误: no function definition: ACET-UI-PICKDIR 半听可乐 发表于 2012-8-14 17:03 static/image/common/back.gif
苍天有眼，我找了大半天~~~这个用用起来还是有问题： 错误: no function definition: ACET-UI-PICKDIR
你是指院长的xcad.VLX吗？我加载了，还是不行，提示依旧 选对象 提取对象图元名 建块 基点用图元的中心 【KAIXIN】 发表于 2012-8-14 17:30 static/image/common/back.gif
选对象 提取对象图元名 建块 基点用图元的中心
开心兄，你指的是？ 这个能用吧
(defun userundo()
(setq *error* errtmp)
(setvar "cmdecho" old_cmdecho)
(setvar "acadlspasdoc" old_acadlspasdoc)
(princ)
)
(defun err (msg) (userundo))
(defun c:userwblock ( / app doc docs err errtmp file files newpath old_acadlspasdoc old_cmdecho path sset)
(setq errtmp *error*)
(setq *error* err)
(setq old_cmdecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq old_acadlspasdoc (getvar "acadlspasdoc"))
(setvar "acadlspasdoc" 0)
(setq path (getFolder "请选择目录..." "请选择目录："))
(setq files (vl-directory-files path "*.dwg" 1))
(if files (progn
(setq newpath (strcat path "处理后的\\"))
(setq scrfile (strcat newpath "batwblock.scr"))
(vl-mkdir newpath)
(setq fn (open scrfile "w"))
(foreach file files
(setq str (strcat "open \"" path file "\" wblock " newpath file " * qsave close"))
(write-line str fn)(princ)
)
(close fn)
)
(alert "所选目录无 .dwg 文件！请重新选择：")
)
(command "script" scrfile)
(userundo)
(setq *error* errtmp)
(princ)
)
ZZXXQQ 发表于 2012-8-14 21:49 static/image/common/back.gif
这个能用吧
朋友，我不会用啊，尝试了一下userwblock命令，提示no function definition: ACET-UI-PICKDIR 我也下载下来试试看 怎么我试用，提示缺少getFolder，少一个定义的函数吗
页:
[1]