nzl1116 发表于 2009-6-15 19:40:00

acad.cfg文件在哪里？

<p>在getcfg和setcfg的函数参考里，提到了acad.cfg文件，但我始终没找到这个文件，不知道它在哪里？</p><p>有谁知道吗？</p>

wuweirat 发表于 2009-6-15 19:47:00

<p>用Ctrl+F在你的盘里面找</p>

nzl1116 发表于 2009-6-15 19:55:00

<p>谢谢楼上的回复，你说的是在 windows 中的搜索功能吧，别提它了，就连我自己编的搜索文件的函数都没找到。</p>

nzl1116 发表于 2009-6-15 19:59:00

<p>发一下我自己的搜索文件的函数：</p><p>(defun f-all-folders (dirname&nbsp; /&nbsp;&nbsp;&nbsp;&nbsp; addlist&nbsp;&nbsp;&nbsp; testlist<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; firstitem&nbsp; fldlist&nbsp;&nbsp;&nbsp; count&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; n<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dirlist&nbsp; someitem&nbsp;&nbsp; acaddir<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp; (if (vl-file-directory-p dirname)<br/>&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq addlist&nbsp; nil<br/>&nbsp;&nbsp;&nbsp;&nbsp; testlist (list dirname)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (while testlist<br/>&nbsp;(setq firstitem&nbsp;(car testlist)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; addlist&nbsp;(append addlist (list firstitem))<br/>&nbsp;)<br/>&nbsp;(if (setq fldlist (vl-directory-files firstitem nil -1))<br/>&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq count&nbsp;&nbsp; (length fldlist)<br/>&nbsp;&nbsp;&nbsp; n&nbsp;&nbsp; 0<br/>&nbsp;&nbsp;&nbsp; dirlist nil<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; (while (&lt; n count)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq someitem (nth n fldlist)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; acaddir&nbsp; (vl-filename-base<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vl-filename-directory<br/>&nbsp;&nbsp;&nbsp;&nbsp; (findfile "acad.exe")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;; and 后面列出了你不想寻找的目录<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (and (not (equal someitem "."))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (not (equal someitem ".."))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (not (equal someitem "Windows"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (not (equal someitem acaddir))<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;(setq someitem (strcat firstitem "\\" someitem)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dirlist&nbsp; (append dirlist (list someitem))<br/>&nbsp;&nbsp;)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq n (1+ n))<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq testlist (append testlist dirlist))<br/>&nbsp;&nbsp; )<br/>&nbsp;)<br/>&nbsp;(setq testlist (cdr testlist))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; addlist<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (alert "指定的目录名是无效的。")<br/>&nbsp; )<br/>)<br/>(defun f-all-files (dire&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /&nbsp;&nbsp; allfolders allfiles<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; first&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; localfiles basename&nbsp;&nbsp; ffname<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp; (if (equal (type dire) 'STR)<br/>&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq allfolders<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (f-all-folders dire)<br/>&nbsp;&nbsp;&nbsp;&nbsp; allfiles nil<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (while allfolders<br/>&nbsp;(setq first&nbsp; (car allfolders)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; localfiles (vl-directory-files first nil 1)<br/>&nbsp;)<br/>&nbsp;(while localfiles<br/>&nbsp;&nbsp; (setq&nbsp;basename&nbsp;&nbsp; (car localfiles)<br/>&nbsp;&nbsp;ffname&nbsp;&nbsp;&nbsp; (strcat first "\\" basename)<br/>&nbsp;&nbsp;allfiles&nbsp;&nbsp; (append allfiles (list ffname))<br/>&nbsp;&nbsp;localfiles (cdr localfiles)<br/>&nbsp;&nbsp; )<br/>&nbsp;)<br/>&nbsp;(setq allfolders (cdr allfolders))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; allfiles<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (alert "参数类型错误，不是字符串。")<br/>&nbsp; )<br/>)<br/>(defun f-find (dirspec basename / filedata surfiles matchstr firstfile)<br/>&nbsp; (if (equal (type basename) 'STR)<br/>&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq filedata (f-all-files dirspec)<br/>&nbsp;&nbsp;&nbsp;&nbsp; surfiles nil<br/>&nbsp;&nbsp;&nbsp;&nbsp; matchstr (strcat "*" basename)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (while filedata<br/>&nbsp;(setq firstfile (car filedata))<br/>&nbsp;(if (wcmatch (strcase firstfile) (strcase matchstr))<br/>&nbsp;&nbsp; (setq surfiles (append surfiles (list firstfile)))<br/>&nbsp;)<br/>&nbsp;(setq filedata (cdr filedata))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; surfiles<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (alert "参数类型错误，不是字符串。")<br/>&nbsp; )<br/>)</p><p>速度有点慢，请高手改进。</p>

NetBee 发表于 2010-4-13 20:23:00

<p>搜索acad*.cfg一定能找到＾＿＾</p><p></p>

你好啊了 发表于 2010-4-14 14:01:00

新手学习 多多指教

muwind 发表于 2021-10-27 22:28:52

cad2010+win7是acad2010.cfg，在C:\Users\用户名\AppData\Local\Autodesk\AutoCAD 2010\R18.0\chs
页: [1]
查看完整版本: acad.cfg文件在哪里？