添加支持文件路径lisp

prodromosm · 发表于 2022-7-5 23:09:28

您好，可以编写一个lisp来添加以下路径吗。

工具->选项->支持文件路径

c： \地形CAD
c： \topocad\topohatch
c： \ topocad\符号
c： \拓扑CAD\树
c： topocad

和

工具->选项->QNew的默认模板文件新建

c： \topocad\topocad。载重吨

问题是，当我加载菜单时，我在工具->选项->支持文件中有很多路径要添加，所以我想要一个lisp来运行它并添加这些路径。

谢谢

ROBP · 发表于 2022-7-5 23:18:29

我看不到lisp的使用，因为每次打开cad时，您添加的路径都会保留在cad中。

对于模板，为什么不将其添加到enu文件中已有的模板中，以便每次选择新图形时都有机会选择它？

prodromosm · 发表于 2022-7-5 23:20:28

我希望lisp只在第一次加载菜单后运行一次

ROBP · 发表于 2022-7-5 23:24:45

c： \topocad\topohatch
c： \ topocad\符号
c： \拓扑CAD\树
c： topocad

图案填充与cad中已有的图案填充不同？
符号和树可以在块中完成，并使用插入命令来实现需要。
线条是cad已经拥有的线条，除非您可以在使用记事本创建后加载特殊的线条。

除非我错了，或者op说的是与他需要使用的不同程序相关的特殊mnu。

prodromosm · 发表于 2022-7-5 23:32:18

我使用图像幻灯片菜单，文件、线条、树和符号是我的幻灯片

Tharwat · 发表于 2022-7-5 23:35:35

您将只加载一次，除非您想将代码提供给其他您想用相同的lisp加载它们的人，否则不需要lisp。

prodromosm · 发表于 2022-7-5 23:44:05

像这样的但我需要一点帮助

copy

(defun c:setpaths()
(setq pref_files (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
(setq paths
(apply 'strcat
(list
"C:\Users\Administrator\appdata\autodesk\autocad 2010\r18.0\enu\support;"
"C:\program files\autocad 2010\support;"
"C:\program files\autocad 2010\fonts;"
"C:\program files\autocad 2010\help;"
"C:\program files\autocad 2010\express;"
"C:\program files\autocad 2010\support\color;"
;I want to add only the follow not change all the other settings in the paths
"C:\topocad;"
"C:\topocad\lines;"
"C:\topocad\trees;"
"C:\topocad\symbols;"
"C:\topocad\topohatch;"
(getvar "ROAMABLEROOTPREFIX") ";"
(getvar "LOCALROOTPREFIX") ";"
))
)
; Default Template File for QNew
(vla-put-QNewTemplateFile pref_files "c:\topocad\topocad.dwt")
   (princ)
)

ROBP · 发表于 2022-7-5 23:44:37

论坛成员中有一些lisp专家可能可以帮助解决这个问题。

但是，使用记事本加载和生成的树、符号和线的块，以及可以使用自定义工具hatch命令生成的自定义图案填充，不是更好吗？

对于模板（如果存在），如我所写，只需将其添加到enu文件模板文件中，并在cad打开时加载它，您使用新的绘图选项和模板选择选定的dwt文件？

hmsilva · 发表于 2022-7-5 23:53:42

看看李的LM:sfsp+it可能会有帮助。。。

亨里克

BlackBox · 发表于 2022-7-5 23:59:10

这显然是一个很好的例程，用于动态添加路径（并解释重复项等），但就生产环境的CAD标准实施而言（即在启动时标准化路径，或防止用户修改等），最好在Acad中简单地设置SupportPath属性。以我的经验来看，是lsp，FWIW。

我最初是从R.K.的文章中学会的：通过lisp设置支持路径

... 我的0.02美元

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

发表回复

精选推荐