添加支持文件路径lisp
您好，可以编写一个lisp来添加以下路径吗。工具->选项->支持文件路径
c： \地形CAD
c： \topocad\topohatch
c： \ topocad\符号
c： \拓扑CAD\树
c： topocad
和
工具->选项->QNew的默认模板文件新建
c： \topocad\topocad。载重吨
问题是，当我加载菜单时，我在工具->选项->支持文件中有很多路径要添加，所以我想要一个lisp来运行它并添加这些路径。
谢谢 我看不到lisp的使用，因为每次打开cad时，您添加的路径都会保留在cad中。
对于模板，为什么不将其添加到enu文件中已有的模板中，以便每次选择新图形时都有机会选择它？ 我希望lisp只在第一次加载菜单后运行一次 c： \topocad\topohatch
c： \ topocad\符号
c： \拓扑CAD\树
c： topocad
图案填充与cad中已有的图案填充不同？
符号和树可以在块中完成，并使用插入命令来实现需要。
线条是cad已经拥有的线条，除非您可以在使用记事本创建后加载特殊的线条。
除非我错了，或者op说的是与他需要使用的不同程序相关的特殊mnu。 我使用图像幻灯片菜单，文件、线条、树和符号是我的幻灯片 您将只加载一次，除非您想将代码提供给其他您想用相同的lisp加载它们的人，否则不需要lisp。 像这样的但我需要一点帮助
(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)
)
论坛成员中有一些lisp专家可能可以帮助解决这个问题。
但是，使用记事本加载和生成的树、符号和线的块，以及可以使用自定义工具hatch命令生成的自定义图案填充，不是更好吗？
对于模板（如果存在），如我所写，只需将其添加到enu文件模板文件中，并在cad打开时加载它，您使用新的绘图选项和模板选择选定的dwt文件？ 看看李的LM:sfsp+it可能会有帮助。。。
亨里克
这显然是一个很好的例程，用于动态添加路径（并解释重复项等），但就生产环境的CAD标准实施而言（即在启动时标准化路径，或防止用户修改等），最好在Acad中简单地设置SupportPath属性。以我的经验来看，是lsp，FWIW。
我最初是从R.K.的文章中学会的：通过lisp设置支持路径
... 我的0.02美元
页:
[1]
2