文件支持路径

comcu · 发表于 2022-7-6 14:31:23

有没有办法设置文件支持路径，使您输入的路径不到块所在的最后一个文件夹？

基本上，我有20个文件夹在一个叫做cad块的文件夹中

路径示例如下

p \公司名称\绘图室\设计\工具选项板\ cad块\结构
p \公司名称\绘图室\设计\工具选项板\ cad块\固定件-Teks
p\company name\drawing office\design\tool palettes\cad blocks\Fixings-Scws
p \公司名称\绘图室\设计\工具选项板\ cad块\硅胶密封件
等
等
等
等

有没有办法只走一条路

p \公司名称\绘图室\设计\工具选项板\ cad块

然后autocad将在其余文件夹中搜索块？

非常感谢，

科林

lpseifert · 发表于 2022-7-6 14:46:16

我认为你是索尔·科林；AFIK Autocad的支持路径必须明确，它不会搜索子目录。

SLW210 · 发表于 2022-7-6 14:56:47

最简单的解决方案是将所有块放在Cad块文件夹中，而忽略子文件夹。

VovKa · 发表于 2022-7-6 15:04:04

尽管如此，你仍然可以自动化你的工作

copy


(vl-load-com)
(defun Test (Path / SupportPath FilesObj)
 (setq FilesObj (vla-get-Files (vla-get-Preferences (vlax-get-acad-object))))
 (setq SupportPath (strcat (vla-get-SupportPath FilesObj) ";"))
 (foreach Folder (vl-remove-if-not
            'vl-file-directory-p
            (mapcar (function (lambda (f) (strcat Path "\" f)))
                    (cddr (vl-directory-files Path))
            )
          )
   (if        (not (vl-string-search (strcat Folder ";") SupportPath))
     (setq SupportPath (strcat SupportPath (strcat Folder ";")))
   )
 )
 (vla-put-SupportPath FilesObj SupportPath)
 (vlax-release-object FilesObj)
 (princ)
)
(test "P:\\company name\\drawing office\\design\\tool palettes\\cad blocks")

需要测试！

BIGAL · 发表于 2022-7-6 15:10:33

我制作了一个包含所有块的mnu，然后可以直接从屏幕上拾取，路径是硬编码的，所以没有问题，包括ech块的幻灯片图像，以便轻松拾取。

[沟槽]
[COGGSLD（SD101，路缘）]^C^C（openblk S:/ACADSTDS/CIVIL STANDARDS/CGG101”）

需要更多代码

ssg · 发表于 2022-7-6 15:18:26

VovKa似乎对vla xxxx函数很在行！这对许多情况都有效。但我有一个简单的例程，结果是一样的：

copy


;;;Add Full Search Path for all sub directories in s
(defun add_fsp(s / dL x)
(setq dL (vl-remove "." (vl-remove ".." (vl-directory-files s "*.*" -1))))
(foreach x dL (setenv "ACAD" (strcat (getenv "ACAD") ";" s "\" x)))
)

VovKa · 发表于 2022-7-6 15:29:22

尼斯ssg
我没有怀疑Acad足够聪明，可以检查给定的支持路径是否已经存在

alrob · 发表于 2022-7-6 15:39:07

我不是一个程序员，只是一个用户，你能给我介绍一下这个过程吗。此外，我使用的是08版

[编程交流] 文件支持路径

发表回复

精选推荐