添加支持路径乐筑天下 - Powered by Discuz! Archiver

TimothyDel 发表于 2022-7-6 15:23:18

添加支持路径

尊敬的大师，
在阅读了您关于在Autocad中添加支持路径的许多帖子，然后尝试简化编码并将其设置为我自己的后，我失败了。

我只是想通过我们的office下拉菜单添加来自服务器的支持路径。我试着运行一个脚本，加载一个lisp，该lisp读取一个文本文件，其中硬编码的服务器路径由分号分隔。运气不好，因为通常有太多的东西我试图简化，我剪掉了错误的东西。

以下是目录：
T： \030\u CADD资源\ADT资源\ADT支持\层脚本\JPA层脚本；
T： \030\u CADD资源\ADT资源\ADT支持\菜单；
T： \030\u CADD资源\ADT资源\DimStyles；
T： \030\u CADD资源\ADT资源\图形符号\附件；
T： \030\u CADD资源\ADT资源\图形符号\注释；
T： \030\u CADD资源\ADT资源\图形符号\电气；
T： \030\u CADD资源\ADT资源\图形符号\设备；
T： \030\u CADD资源\ADT资源\图形符号\机械；
T： \030\u CADD资源\ADT资源\图形符号\管道

最后，在我把这些工作，我想设置的东西，如绘图模板，绘图仪描述等。。第一件事。

如果您能在菜单文件和lisp例程中写下这行代码，我们将不胜感激！

非常感谢。
蒂莫西

lpseifert 发表于 2022-7-6 15:37:49

也许这会有帮助。。。
http://afralisp.net/vl/vlbegin2.htm

TimothyDel 发表于 2022-7-6 15:48:07

不。被卡在“控制台窗口”我把
_$（设置路径（strcat thePath）“C:\\TEMP”））
在命令行中，获取了错误的参数类型。然后我将文件复制到记事本中，并将其命名为AddSupportPaths。lsp。然后我加载了文件，但什么都没有。我想是因为我什么都没做。
如果可以的话，如果可能的话，请简化你的解释。
非常感谢。

lpseifert 发表于 2022-7-6 15:56:38

我不能完全相信。。。
我试过一次，这对我很有效。

(defun c:asp ()
(vl-load-com)
(setq acadObject (vlax-get-acad-object)
prefsObject (vlax-get-property acadObject 'Preferences)
tabnameObject (vlax-get-property prefsObject 'Files)
thePath       (vlax-get-property tabnameObject 'SupportPath)
) ;_ end of setq
(setq thePath
(strcat
   thePath
   ";"
   "T:\\030_CADD Resources\\ADT Resources\\ADT Support\\Layer Scripts\\JPA Layer Scripts;
T:\\030_CADD Resources\\ADT Resources\\ADT Support\\Menus;
T:\\030_CADD Resources\\ADT Resources\\DimStyles;
T:\\030_CADD Resources\\ADT Resources\\Graphic Symbols\\Accessories;
T:\\030_CADD Resources\\ADT Resources\\Graphic Symbols\\Annotation;
T:\\030_CADD Resources\\ADT Resources\\Graphic Symbols\\Electrical;
T:\\030_CADD Resources\\ADT Resources\\Graphic Symbols\\Equipment;
T:\\030_CADD Resources\\ADT Resources\\Graphic Symbols\\Mechanical;
T:\\030_CADD Resources\\ADT Resources\\Graphic Symbols\\Plumbing"
) ;_ end of strcat
) ;_ end of setq
(vlax-put-property tabnameObject 'SupportPath thePath)
(princ)
) ;_ end of defun

TimothyDel 发表于 2022-7-6 16:03:13

真的！！！非常感谢。经过大约一周的试用，你的帖子效果很好。

最后一个问题：如何从office mnu文件调用和运行lisp？

（这是我的最后一块拼图。）

lpseifert 发表于 2022-7-6 16:12:32

如果需要宏，请将代码另存为AddSupportPaths。lsp，然后将其用作宏

(if (not c:asp)(load "AddSupportPaths"));asp;

BIGAL 发表于 2022-7-6 16:18:50

嘿，这太棒了，我们刚刚更新了8份autocad，我们发现复制arg文件和其他东西可能很困难。我们的电脑上有多个用户，必须为每个新用户设置，但只需一次性设置所有搜索路径、打印机设置等，我们的生活就会轻松得多。明天试试！！

有时我们的cad人员也会把事情搞砸，所以越按按钮越好。

TimothyDel 发表于 2022-7-6 16:30:32

非常感谢！这非常有效！

真诚地
蒂莫西

页: [1]

乐筑天下's Archiver

添加支持路径