一个图纸瘦身程序，我怎么用不了呢？
论坛里的一个图纸瘦身程序，我怎么用不了呢？命令: userpurge ; 错误: no function definition: ACET-UI-PICKDIR
命令: userwblock ; 错误: no function definition: ACET-UI-PICKDIR
;图纸瘦身
;在命令行中输入userpurge或userwblock，选择文件夹，就可以了；
;userpurge对目标文件夹下的每个文件执行purge后保存文件；
;userwblock将目标文件夹下的每个文件执行wblock，写入目标文件夹下的"处理后的"子文件夹文件中，文件名不变；
(vl-load-com)
(defun getFolder (str_title str_prompt /)
(strcat
(vl-string-right-trim
"\\"
(strcase
(acet-ui-pickdir str_prompt (vl-string-right-trim "\\" (getvar "dwgprefix")) str_title)
)
)
"\\"
)
)
(defun makeDirectory (dir / )
(vl-mkdir dir)
)
(defun userundo()
(setq *error* errtmp)
(setvar "cmdecho" old_cmdecho)
(setvar "acadlspasdoc" old_acadlspasdoc)
(princ)
)
(defun err (msg)
(userundo)
)
(defun c:userpurge ( / 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 scrfile (strcat path "batpurge.scr"))
(setq fn (open scrfile "w"))
(foreach file files
(setq str (strcat "open \"" path file "\" purge all * no qsave close"))
(write-line str fn)(princ)
)
(close fn)
)
(alert "所选目录无 .dwg 文件！请重新选择：")
)
(command "script" scrfile)
(userundo)
(setq *error* errtmp)
(princ)
)
(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"))
(makeDirectory 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)
)
http://bbs.mjtd.com/thread-88334-1-1.html
http://bbs.mjtd.com/thread-28568-1-1.html 错误: no function definition: ACET-UI-PICKDIR
--------------------------
ACET-UI-PICKDIR Required ET
Ref:
http://www.google.com/search?as_q=&as_epq=ACET+UI+PICKDIR&as_oq=&as_eq=&as_nlo=&as_nhi=&lr=&cr=&as_qdr=all&as_sitesearch=http%3A%2F%2Fbbs.mjtd.com Andyhon 发表于 2012-8-25 09:05 static/image/common/back.gif
错误: no function definition: ACET-UI-PICKDIR
--------------------------
ACET-UI-PICKDIR Requir ...
找了半天没找到一个能用的 CAD2004 ET工具，朋友能提供一个吗？ 虽然自己已经找到了，但还是感谢你的热心帮助！ 本帖最后由 半听可乐 于 2012-8-25 11:05 编辑
Andyhon 发表于 2012-8-25 09:05 http://bbs.mjtd.com/static/image/common/back.gif
错误: no function definition: ACET-UI-PICKDIR
--------------------------
ACET-UI-PICKDIR Requir ...
我发现装了这个工具后有些命令冲突了，反而不方便（仅为了图纸瘦身这个功能装et），能不能直接对症下药，针对性的解决程序运行不了的原因呢？比如说是不是在CAD安装文件中加几句程序？（胡诌，纯不懂）
http://bbs.mjtd.com/thread-73964-1-1.html 貌似这里有答案，但不知道具体如何操作
也可用等效的函数 ....
http://www.google.com/search?as_q=&as_epq=%28defun+qf_getFolder
more:
http://www.google.com/search?as_q=&as_epq=defun+getFolder 那ET怎么瘦身呢？ Andyhon 发表于 2012-8-25 11:50 static/image/common/back.gif
也可用等效的函数 ....
http://www.google.com/search?as_q=&as_epq=%28defun+qf_getFolder
太专业了，不懂，朋友麻烦给个成品吧~~ 学习中，路过。
页:
[1]